Новая строка в задаче Outlook - PullRequest
Новая
       34

Новая строка в задаче Outlook

0 голосов
/ 12 марта 2020

Мне нужно создать задачу Outlook из Access. Все отлично работает, но я не могу понять, как создать новую строку в Body. Это мой код: 

Public Function AddOlTask(sSubject As String, sBody As String, _
                    dtDueDate As Date, dtReminderDate As Date)

    Const olTaskItem = 3
    Dim OlApp As Object
    Dim OlTask As Object

    Set OlApp = CreateObject("Outlook.Application")
    Set OlTask = OlApp.CreateItem(olTaskItem)

    With OlTask
        .Subject = sSubject
        .DueDate = dtDueDate
        .Status = 3   
        .Importance = 1     
        .ReminderSet = True
        .ReminderTime = dtReminderDate
        .categories = "Business" 
        .Body = sBody
        .Save   
    End With
End Function

Я пытался использовать <br/>, vbCrLf. Я пытался присвоить ему свойство, подобное сообщению, свойство .HTMLBody = sBody (неверное свойство). Используется .RTFBody = -1. Ничего не работает Любое предложение?

1 Ответ

0 голосов
/ 12 марта 2020

Я понял. Строка должна быть написана так: 

"SuborderID: " & Me.SuborderID & vbNewLine & vbCr & "PO Date: " & txtETAonPO

Создает это сообщение: SuborderID: 62075 PO Date: 3/12/2020

...