Как скопировать текст встречи, включая все форматирование, на электронную почту? - PullRequest
Новая
       4

Как скопировать текст встречи, включая все форматирование, на электронную почту?

0 голосов
/ 05 февраля 2020

Я создал электронное письмо на основе встречи.

Я подписался на эту запись .

Тело встречи включает в себя:

  • Точки с маркерами
  • Гиперссылки на файлы

В этом формате мне хотелось бы получить электронное письмо:
enter image description here

Используется некоторое форматирование, но не упомянутые два пункта.

Снимок экрана с полученным:
enter image description here

Как получить полное форматирование? 

Private Sub Application_Reminder(ByVal Item As Object)
    Dim objMsg As MailItem
    Set objMsg = Application.CreateItem(olMailItem)

    If Item.MessageClass <> "IPM.Appointment" Then 'vérifie s'il s'agit d'un rappel sur RDV
        Exit Sub
    End If

    If (Item.Categories <> "00.CourrielsAutomatiques" Or Item.Categories <> "00.CourrielsAutomatiques") Then 'indiquer ici le nom de la catégorie créée pour les mails autos
        Exit Sub
    End If
    objMsg.SendUsingAccount = objMsg.Session.Accounts.Item(1) 'si gestion de plusieurs comptes
    objMsg.To = Item.Location 'ligne Lieu de rendez-vous utilisée pour les adresses
    objMsg.Subject = Item.Subject 'objet du mail
    objMsg.HTMLBody = Item.Body  'corps du mail
    'objMsg.Attachments.Add "C:\Users\xxx\Desktop\xxx.jpg" 'pour ajouter une pièce jointe
    objMsg.Send

    Set objMsg = Nothing
End Sub
...