Вставка текста с форматированием в теле приглашения - PullRequest
Новая
       8

Вставка текста с форматированием в теле приглашения

0 голосов
/ 11 сентября 2018

Я пытаюсь автоматизировать приглашения Outlook. Код работает, пока я не приеду к телу. Мне нужно что-то более сложное, чем просто текст. Я не могу найти свойство .HTMLBody / компилятор не распознает его: Ошибка времени выполнения '438'.

Есть ли другой способ вставить текст с форматом в мое тело приглашения?

Код работает при использовании .body: 

Sub Invite_Merge(meeting_date As Date, meeting_time As Double,         
        meeting_duration As Integer, client_email As String, meeting_subject As String,
        meeting_location As String, client_name As String, meeting_body As String,
        meeting_sender As String)


    Dim O As Outlook.Application
    Set O = New Outlook.Application

    Dim OAPT As Outlook.AppointmentItem
    Set OAPT = O.CreateItem(olAppointmentItem)
    OAPT.MeetingStatus = olMeeting

    Dim meeting_start
    meeting_start = DateValue(meeting_date) + meeting_time

    With OAPT

        .Recipients.Add (client_email)
        .Subject = meeting_subject
        .Start = meeting_start
        .Duration = meeting_duration
        .Location = meeting_location
        .HTMLBody = "<HTML><BODY>Enter the message text here. </BODY></HTML>"
        .Display
        '.Send

    End With

End Sub


Sub Send_Invites()

    row_number = 2

    Do
    DoEvents

    row_number = row_number + 1
    If IsEmpty(Sheet1.Range("D" & row_number)) = False Then

        Call Invite_Merge(Sheet1.Range("A" & row_number), Sheet1.Range("B" & row_number), Sheet1.Range("C" & row_number), Sheet1.Range("D" & row_number), Sheet1.Range("E" & row_number), Sheet1.Range("F" & row_number), Sheet1.Range("G" & row_number), Sheet1.Range("H" & row_number), Sheet1.Range("A" & "1"))

    End If
    Loop Until row_number = 100

End Sub
...