时间戳

首页 > 解决方案 > 转发具有不同内容的电子邮件 -VBA - Outlook

vba - 转发具有不同内容的电子邮件 -VBA - Outlook

问题描述

尝试转发具有不同内容的电子邮件。我试图遵循这些规则，但我没有收到电子邮件。

这是vba代码：

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 = "incomingemail@test.com") And (objMail.Subject = "Job is complete") Then
            Set objForward = objMail.Forward
            'Customize the forward subject, body and recipients
            With objForward
                .Subject = "THIS IS A TEST"
                .HTMLBody = "<HTML><BODY>Type body here. </BODY></HTML>" & objForward.HTMLBody
                .Recipients.Add ("test@email.com")
                .Recipients.ResolveAll
                .Importance = olImportanceHigh
                .Send
            End With
        End If
    End If
End Sub

如果它从incomingemail@test.com 收到一封主题为“工作已完成”的电子邮件 - 然后向 test@emailcom 发送一封带有正文的电子邮件：这是一个测试

标签： vbaoutlook

解决方案

推荐阅读