件名を変更してメールを別のアカウントに転送する特定のアカウントに着信する新しいメールを転送するルールを Outlook で実行しようとしています。
添付ファイルを含むメッセージが到着した後にルールを適用するルールを設定しました。このマシンでは、メッセージ本文に「特定のテキスト」が含まれている場合を除き、Project1.ThisOutlookSession.SubjForward のみを実行します。
スクリプトは次のようになります
Sub SubjForward(Item As Outlook.MailItem)
Item.Subject = "New Subject"
Item.Save
Set myForward = Item.Forward
myForward.Recipients.Add "forwardmail@domain.com"
myForward.DeleteAfterSubmit = True
myForward.Send
End Sub
ルールはメッセージを新しいアドレスに正常に転送しますが、スクリプトを強制終了するまで同じメールを転送し続けます。
私がどこで間違っているのか誰か知っていますか?
以下のコメントで詳細を更新しました、ありがとう