Fatal编程技术网
  • vba/
  • 转发包含不同内容的电子邮件-VBA-Outlook

转发包含不同内容的电子邮件-VBA-Outlook

vba outlook

转发包含不同内容的电子邮件-VBA-Outlook,vba,outlook,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(olFolderInbo

正在尝试转发包含不同内容的电子邮件。 我试着跟踪，但没有收到电子邮件

以下是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

Public with events objInbox作为Outlook.Folder
将事件objInboxItems作为Outlook.Items公开
私有子应用程序_启动（）
设置objInbox=Outlook.Application.Session.GetDefaultFolder（olFolderInbox）
设置objInboxItems=objInbox.Items
端接头
私有子对象objInboxItems\u ItemAdd（ByVal项作为对象）
将objMail设置为Outlook.MailItem
Dim objForward As Outlook.MailItem
如果项目类型为MailItem，则
设置objMail=Item
“如果是一封特定的新电子邮件
如果（objMail.SenderEmailAddress=”incomingemail@test.com）和（objMail.Subject=“作业已完成”）
设置objForward=objMail.Forward
'自定义转发主题、正文和收件人
带objForward
.Subject=“这是一项测试”
.HTMLBody=“在此处键入body。”&objForward.HTMLBody
.Recipients.Add（“test@email.com")
.Recipients.ResolveAll
.重要性=低重要性高
.发送
以
如果结束
如果结束
端接头
如果它收到来自incomingemail@test.com主题为“工作完成”-然后发送电子邮件至test@emailcom有正文：这是一个测试

你检查过几封测试邮件的属性了吗？在我看来，
.SenderEmailAddress
在发送到电子邮件之前包含了大量无关数据。为了澄清，实际问题是什么？电子邮件没有被发送到test@email
com？您是否尝试将您的
。发送
至
。显示
，以查看是否实际生成了电子邮件？这个代码会触发吗？