Как заменить тело ответа на письмо и сохранить подпись? - PullRequest
Новая
       98

Как заменить тело ответа на письмо и сохранить подпись?

1 голос
/ 23 декабря 2019

Я хотел бы ответить на электронное письмо, не включая исходное письмо, но указать отправителя в качестве получателя, тему и мою подпись.

В настоящее время у меня есть Set objDoc = ActiveInspector.WordEditor. Я попытался найти тело письма здесь, чтобы заменить его другим текстом.

Я хотел бы сохранить тему письма, на которое я отвечаю, Отправителя и Получателя.

Вот код, который у меня есть для моего текущего ответа: 

With oReply
    .BCC = bccField
    .CC = ccField
    .HTMLBody = "<HTML><Body><span>my reply here</span><Body></HTML>" & .HTMLBody & "<span>" & "Additional stuff" & "</span>"
End With

Я пытался извлечь .HTMLBody в промежутке между <span> s, который вынимает исходное сообщение пользователя, но также принимаетмоя подпись.

1 Ответ

1 голос
/ 23 декабря 2019

Вместо использования функции reply, просто создайте новый mailItem и перенесите подробности поверх.

В приведенном ниже примере используется исходное электронное письмо. Поэтому, где бы у вас не было Set oReply = (something).Reply, вы замените или обновите его на Set originalMailItem = (Something). Это (something) должно быть исходным письмом, на которое вы пытаетесь ответить.

Чтобы эффективно вставить подпись, нам нужно .Display mailItem. В противном случае Outlook будет генерировать подпись. Убедитесь, что параметры подписи на вашем клиенте Outlook установлены правильно и по умолчанию настроены на желаемую подпись для новых почтовых отправлений. 

Set newMail = outApp.CreateItem(olMailItem) 'Create a new mail instead of replying to existing

With newMail
    .Display
    .HTMLBody = "<HTML><Body><span>my reply here</span><Body></HTML>" _
    & "<span>" & "Additional stuff" & "</span>" _
    & .HTMLBody 'HTMLBody already contains the signature once the email was displayed so we just tack it onto the end.
    .To = originalMailItem.SenderEmailAddress
    .CC = originalMailItem.CC
    .BCC = originalMailItem.BCC
    .Subject = originalMailItem.Subject
    '.Send     'To send the reply
End With
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Похожие темы

...