本文の本文に応じてOutlookの電子メールの件名を変更してください

Question

プログラミングやスクリプティングは初めてですが、自動化したいOutlookのタスクがあります。

基本的に私たちは「[SITENAME]の警告 - アップリンク・変更ステータスが」主題と私たちのベンダーの1のシステムから電子メールアラートを取得している、どこで電子メールの本文には、次の2つのテキスト文字列の1つが含まれます：

「セキュリティをアプライアンスはインターネット2をアップリンクとして使用するように切り替えました。

または

は、「セキュリティアプライアンスは、そのアップリンクとしてインターネット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 

誰かが私は自分のコードに欠けているものを指摘していただけますか？ありがとう！

Answer 1

=の代わりにIfの文でLikeを使用してください。 Thisは、Like演算子の仕組みを説明しています。また、Google、「VBAのように」することができますし、より多くの結果

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