Отправка электронной почты Outlook из формы MS Access - PullRequest
Новая
       4

Отправка электронной почты Outlook из формы MS Access

1 голос
/ 27 января 2020

Я хочу составить электронное письмо Outlook из формы доступа и отобразить его, чтобы я мог редактировать и отправлять его из Outlook.

Код ниже работает: 

Private Sub Command210_Click()
Dim OlApp As Object
Dim olMailItem As Object

    Set OlApp = CreateObject("Outlook.Application")
    Set olMailItem = OlApp.CreateItem(0)

    With olMailItem
      .Subject = Me.CPN & " " & Me.WBPN
      .Body = "this is a test"
      .Display
   End With

End Sub

Но я получаю ошибка времени выполнения, когда я пытаюсь использовать текст из текстового поля формы (с именем WBEmailFU) для тела письма. 

Private Sub Command210_Click()
Dim OlApp As Object
Dim olMailItem As Object

    Set OlApp = CreateObject("Outlook.Application")
    Set olMailItem = OlApp.CreateItem(0)

    With olMailItem
      .Subject = Me.CPN & " " & Me.WBPN
      .Body = Me.WBEmailFU
      .Display
   End With

End Sub

Я получаю

ошибка времени выполнения " Сбой метода 'Body' объекта'_MailtItem '

Текстовое поле WBEmailFU отформатировано как LongText. Почему оно работает, когда я определяю .body = "текстовая строка", а не когда определяется .body как текстовое поле из моей формы?

...