Como incluir texto formatado no corpo de um convite do Outlook a partir de uma macro no Excel

Question

Sep 12, 2018, 07:03 PM

Como incluir texto formatado no corpo de um convite do Outlook a partir de uma macro no Excel

Gostaria de saber se você tinha como inserir texto com formato (links, negrito, realçado ...) em um convite do Outlook usando macros do Excel. Eu tenho um programa que envia automaticamente convites do Excel e funciona incrivelmente bem, o único problema é que o corpo contém apenas texto sem formatação. Estou usando .body, mas tenho medo de usar uma abordagem diferente (.HTMLBody não funciona para convites e o RTFbody parece ser muito complicado pelo que li!).

Você já fez isso? Que abordagem devo ter? Tenho modelos de corpo no word, no outlook como partes rápidas, na área de transferência e em outros lugares, se isso ajudar!

Obrigado pela ajuda! :)

Muitas felicidades, Pablo

Editar:

Código:

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
    '.body = here is where I have trouble, the property body only allows me to insert plaintext, .HTMLBody is not a AppointmentsItem property and I have not found an example code on how to use convert a formatted text (with links, bold, different fonts...) into a compatible .RTFBody byte array
    .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