Напишите ответ на выбранные электронные письма во входящие, используя VBA и добавьте получателя BCC.

Question

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

Пробовал по кодам ниже, ноэто относится только к одному выбранному электронному письму.Когда я запускаю его в макросе, он автоматически отправляет пустое сообщение и цитируемое сообщение от отправителя.

Sub test()

Dim m As MailItem 'object/mail item iterator
Dim recip As Recipient 'object to represent recipient(s)
Dim reply As MailItem 'object which will represent the reply email

'Loop over each SELECTED item:
For Each m In Application.ActiveExplorer.Selection
If m.Class = olMail Then
Set reply = m.reply

'Adds a "direct replies to" address:
reply.ReplyRecipients.Add "XXXX@email.com"

'Adds BCC recipient to the reply:
Set recip = reply.Recipients.Add("someone_else@email.com")
recip.Type = olBCC '3

reply.Save 'saves a draft copy to your SENT folder
reply.Send

End If
Next

End Sub

Answer 1

Использование .HTMLBody Свойство (Outlook) или .Body Свойство

.Body Возвращает или задает строку, представляющуютекст сообщения электронной почты в открытом виде.

.HTMLBody Возвращает или задает строку, представляющую тело HTML указанного сообщения электронной почты.

Пример

'Loop over each SELECTED item:
For Each m In Application.ActiveExplorer.selection
    If m.Class = olMail Then
        Set reply = m.reply

        'Adds a "direct replies to" address:
        reply.ReplyRecipients.Add "XXXX@email.com"

        'Adds BCC recipient to the reply:
        Set recip = reply.Recipients.Add("someone_else@email.com")
        recip.Type = olBCC '3

        reply.Save
        reply.Display ' or .send
        reply.HTMLBody = "Hello " & reply.HTMLBody
    End If
Next

Выберите несколько сообщений электронной почты для воспроизведения с одинаковой информацией в теле.