Мне удалось переслать сообщение с пользовательским текстом, добавленным, когда оно попадает в мой почтовый ящик.
Мне нужно пересылать сообщения из папки, отличной от моей входящей почты.
Я получаю уведомления от Box, и я настроил маршрутизацию для тех сообщений, которые будут направлены в папку "BoxNotifications". Эта папка находится на том же уровне, что и Входящие.
Я не понимаю, что нужно делать, даже после тщательного поиска.
Что мне нужно, чтобы получать сообщения, которые попадают в папку "BoxNotifications" для пересылки с пользовательским текстом?
Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items
Private Sub Application_Startup()
Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set objInboxItems = objInbox.Items
End Sub
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
Dim objMail As Outlook.MailItem
Dim objForward As Outlook.MailItem
If TypeOf Item Is MailItem Then
Set objMail = Item
'If it is a specific new email
If (objMail.SenderEmailAddress = "senderemail@gmail.com") And (objMail.Subject Like "*Test*") Then
Set objForward = objMail.Forward
'Customize the forward subject, body and recipients
With objForward
.Subject = "Testing Email"
.HTMLBody = "<HTML><BODY>Custom text added to top of email</BODY></HTML>" & objForward.HTMLBody
.Recipients.Add ("email_forwarded_to@email.com")
.Recipients.ResolveAll
.Importance = olImportanceHigh
.Send
End With
End If
End If
End Sub