пересылать электронные письма из папки Outlook, используя VBA

Question

Вот сценарий: в папке «Входящие» Outlook есть подпапка «Уведомление».Каждый день я буду проверять и пересылать уведомления своему коллеге, если в этой папке есть автоматические уведомления.Я хотел бы запустить vba, чтобы он заходил в эту папку, проверял внутри, а если есть электронное письмо, затем пересылаю, иначе остановлюсь.

Я бы попросил вашей помощи в этом сценарии, так как яСовершенно новый для Visual Basic на внешний вид.Большое спасибо.

Тони

Answer 1

Вы можете создать макрос-правило , когда папка получит электронное письмо, затем перешлите это письмо.

Пожалуйста, обратитесь к следующему коду:

Sub ForwardEmail(Item As Outlook.MailItem)
// Determine if it’s an email
If TypeName(Item) = "MailItem" Then
    With Item.Forward
        .Subject = ("ITS - ") & Item.Subject
        .Recipients.Add "backup@email.com"
        ' You need to overwrite the Body or HTMLBody to get rid of the auto signature
        .HTMLBody = Item.HTMLBody ' <-- Or use .Body for Plain Text
        '.Display ' <-- For Debug
        .Send ' <-- Put break here to Debug
End With
End If
End Sub

Для получения дополнительной информацииинформация, пожалуйста, обратитесь к этим ссылкам:

Otlook vba и правила для пересылки сообщений электронной почты и изменения темы

VBA Копирование отправленной почты в папку на основе ключевых словв теме