VBA Outlook продолжает форматирование электронной почты с заменой - PullRequest
Новая
       5

VBA Outlook продолжает форматирование электронной почты с заменой

0 голосов
/ 11 мая 2018

В настоящее время я работаю с Excel и Outlook VBA, и у меня возникла проблема, заключающаяся в том, что при использовании функции замены для изменения тела письма форматирование (размер шрифта, полужирный шрифт, гиперссылки) удаляется. Это разрушает читабельность почты, и мне нужно изменить эту проблему. 

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.Session.OpenSharedItem(Path) 

    With OutMail
    .To = Receiver(ActiveCell.Offset(, 11)) 'receiver is a sub-function that removes Umlauts
    .Subject = "End of contract" & ActiveCell.Value & " " & _
     ActiveCell.Offset(, 3).Value & " " & ActiveCell.Offset(, 2).Value & " - " & ActiveCell.Offset(, 6).Value
    '        .Body = Replace(OutMail.Body, "FIRST NAME; NAME", ActiveCell.Offset(, 11).Value)   'Error -> code changes all formatting
    .FlagRequest = "Follow up"
    .FlagDueBy = ReminderDate
     End With

Я слышал, что функция замены - решение моей проблемы, но похоже, что функция замены используется по-другому, и мне не удалось заставить ее работать в моем коде. Кто-нибудь может мне помочь с этим?

Best

Benjamin

1 Ответ

0 голосов
/ 11 мая 2018

Возможно, не лучшее решение, но вы можете попробовать разнообразить создание email.body.Сначала измените значение, а затем добавьте форматирование.

...