首页 文章

根据正文更改Outlook电子邮件主题

提问于
浏览 次
1

我是编程和脚本编程的新手，但在Outlook中有一项我想自动执行的任务 .

基本上我们从我们的某个供应商的系统收到电子邮件警报，主题为“警报 [SITENAME] - 上行链路状态已更改”，并且电子邮件正文将包含以下两个文本字符串之一：

“安全设备切换到使用Internet 2作为其上行链路 . ”

要么

“安全设备切换到使用Internet 1作为其上行链路 . ”

现在我们需要阅读每封电子邮件，看看上行链路是上升还是下降，我希望直接从主题中看到它 .

我已准备好以下代码，但它不起作用：

Sub changesubject()

Dim myMessage As Outlook.MailItem 
Set myMessage = Outlook.ActiveInspector.CurrentItem 

If myMessage.Body = "Internet 2 as its uplink" then
    myMessage.Subject = myMessage.Subject & "- PRIMARY LINK DOWN"
End If

If myMessage.Body = "Internet 1 as its uplink" then
    myMessage.Subject = myMessage.Subject & "- PRIMARY LINK UP"
End If

End Sub

有人可以指出我的代码中缺少什么吗？谢谢！

vba email outlook outlook-vba

1 回答

  • 0

    在 If 语句中使用 Like 而不是 = . This解释了 Like 运算符的工作原理 . 你也可以谷歌"VBA Like"，你会得到更多的结果

    Sub changesubject()

Dim myMessage As Outlook.MailItem 
Set myMessage = Outlook.ActiveInspector.CurrentItem 

If myMessage.Body Like "*Internet 2 as its uplink*" then
    myMessage.Subject = myMessage.Subject & "- PRIMARY LINK DOWN"
End If

If myMessage.Body Like "*Internet 1 as its uplink*" then
    myMessage.Subject = myMessage.Subject & "- PRIMARY LINK UP"
End If

End Sub
    回复于

相关问题