VBNet - Форум

Вопрос: MAPI Send Добавлено: 26.11.02 16:48

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

Народ, что не так делаю? %-()
Me.MAPISession1.SignOn

    With Me.MAPIMessages1
            .SessionID = Me.MAPISession1.SessionID
            .Compose
            .RecipAddress = "email"
            .MsgSubject = "Тестирование"
            .MsgNoteText = "Это тело письма"
            .Send False
    End With

    Me.MAPISession1.SignOff
Если в данный момент не запущен Outlook, просит выбрать конфигурацию, а потом в любом случае вываливается с ошибкой: Unspecified Failure has Occurred. Error # 32002.
Windows XP, Office XP, VB 6

Ответить

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

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

Sergey

Вопросов: 14
Ответов: 8

Профиль | | #1

Добавлено: 26.11.02 18:01

Отвечаю сам себе. См. пример ниже. Теперь другая пакость: вылетает Аутлуковское сообщение, что предпринимается попытка несанкционированной отправки почты, где после паузу в несколько сек. надо нажать ок. Как это победить?

Public Function sendMail(recipient As String, subject As String, text As String) As Boolean

On Error GoTo mailSendError

    With Form1.MAPISession1
            .UserName = "Microsoft Outlook"
            .SignOn
    End With

    With Form1.MAPIMessages1
            .SessionID = Form1.MAPISession1.SessionID
            .Compose
            .RecipAddress = recipient
            .MsgSubject = subject
            .MsgNoteText = text
            .AddressResolveUI = True
            .ResolveName
            .Send False
    End With

Form1.MAPISession1.SignOff
sendMail = True

    On Error GoTo 0
    Exit Function

mailSendError:
    MsgBox "Cannot send e-mail to " & recipient
    sendMail = False
    Exit Function
End Function

Ответить

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

LIS

Вопросов: 7
Ответов: 256

Профиль | | #2

Добавлено: 26.11.02 21:28

MAPIMessages1.Compose
    MAPIMessages1.RecipAddress = Trim(emailAddress)
    MAPIMessages1.MsgSubject = "Import PO"
    MAPIMessages1.MsgNoteText = Space(1)

    If Trim(note) <> vbNullString Then MAPIMessages1.MsgNoteText = Trim(note)
    ' Attachment
    MAPIMessages1.AttachmentPathName = "c:\imsDir\temp\image.pdf"

    '*** send e-mail
    MAPIMessages1.ResolveName
    MAPIMessages1.Send

Good luck !

Ответить

Номер ответа: 3 Автор ответа: ZEP Вопросов: 2 Ответов: 10	Профиль \| \| #3	Добавлено: 27.11.02 08:15
	Меня тоже очень интересует проблема с аутлуковским сообщением, что предпринимается попытка несанкционированной отправки почты, где после паузы в несколько сек. надо нажать ОК. Это проявляется только в Outlook 2002. Быть может кто-то нашел решение? Ответить

Номер ответа: 4 Автор ответа: Sergey Вопросов: 14 Ответов: 8	Профиль \| \| #4	Добавлено: 27.11.02 13:57
	Эта фигня появляется и в Outlook 2000. Может кто-нибудь знает, как пофиксить. Где копать надо? В аутлуке или в VB? Ответить

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

Sergey

Вопросов: 14
Ответов: 8

Профиль | | #5

Добавлено: 27.11.02 15:04

Забавно получилось! Стоят 2 машины. На обоих Win2k & Outlook 2000. Запускаем прогу на 1-й: кричит о несанкционированной отправке, запускаем на 2-й, прекрасно работает. Облазил Outlook вдоль и поперек, нигде в настройках ничего интересного не нарыл. Где же собака порылась?

Ответить

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