VBNet - Форум - Ошибка в Microsoft Mapi Control

Вопрос: Ошибка в Microsoft Mapi Control Добавлено: 03.09.03 16:03

Автор вопроса: shkip

Привет, возникла такая проблема: на пустую форму кладем компоненты этого самого mapi control, после чего пишется такой код:

Private Sub Form_Load()

MAPISession1.SignOn

MAPIMessages1.SessionID = MAPISession1.SessionID

MAPIMessages1.Compose

MAPIMessages1.MsgSubject = "User's CONFIG.SYS File"

MAPIMessages1.MsgNoteText = "Here is the CONFIG.SYS File" + Chr(13) + " "

MAPIMessages1.AttachmentPosition = Len(MAPIMessages1.MsgNoteText)

MAPIMessages1.AttachmentType = mapData

MAPIMessages1.AttachmentName = "System Configuration File"

MAPIMessages1.AttachmentPathName = "C:\CONFIG.SYS"

MAPIMessages1.Send True

MAPISession1.SignOff

End

End Sub

после чего генерируется следующая ошибка:

unspecified failure has occured

Если строчки аттача заремировать то будет полный порядок. В чем проблема? Заранее благодарю за помощь.

Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

Paul

Вопросов: 19
Ответов: 11

Профиль | Цитата | #1

Добавлено: 04.09.03 12:00

Точно не могу ответить. Вроде всё правильно

(у меня твой код работает)

Такая ошибка может, например, возникать, если такого файла

нет на диске. (хотя config.sys...)

(Я ставлю условие проверки на наличие файла)

Ответить

Номер ответа: 2
Автор ответа:

shkip

Вопросов: 5
Ответов: 3

Профиль | Цитата | #2

Добавлено: 04.09.03 13:45

Хммм... Но у меня то точно не работает!!! Причем все с той же ошибкой! Вы под NT работали?

Ответить

Номер ответа: 3
Автор ответа:

Paul

Вопросов: 19
Ответов: 11

Профиль | Цитата | #3

Добавлено: 04.09.03 15:50

Нет, работает и под Win98

Написал как ниже и не вдаваясь в подробности использую

Public Function fSendeMailAX(sRecipt() As String, sSubject As String, Optional sText As String, Optional sFileAttachPathName As String, Optional bShow As Boolean)
On Error GoTo err:
    Dim oMAPIS As New MAPISession, oMAPIM As New MAPIMessages
    Dim i As Integer
    sSubject = Mid(sSubject, 1, 61)
    oMAPIS.DownLoadMail = False
    oMAPIS.SignOn
    With oMAPIM
        .SessionID = oMAPIS.SessionID
        .Compose
        .MsgSubject = sSubject
        .MsgNoteText = sText
        If sFileAttachPathName <> "" And Dir(sFileAttachPathName) <> "" And InStr(1, sFileAttachPathName, Dir(sFileAttachPathName)) > 0 Then
            .AttachmentType = 0
            .AttachmentName = Dir(sFileAttachPathName)
            .AttachmentPosition = Len(.MsgNoteText)
            .AttachmentPathName = sFileAttachPathName
        End If
        For i = 0 To UBound(sRecipt) - 1
            .RecipIndex = i
            '.RecipType = 1
            .RecipAddress = sRecipt(i)
        Next
        .Send bShow
    End With
    oMAPIS.SignOff

sExit:
    Set oMAPIM = Nothing
    Set oMAPIS = Nothing
    Exit Function

err:
    MsgBox err.Description, vbCritical, "Error #" & err.Number
    err.Clear
    Resume sExit
End Function

Ответить

Страница: 1 |