outlook vbaで特定の件名＆アドレスを自動転送したい

実現したいことは、「特定の件名＆特定のアドレスからメールを受信した時、指定した転送先に自動転送する」です(例:aiueo@outlook.jpから「定期だより」という文言が件名に入ったメールを受信した際、kakikukeko@outlook.jpに自動転送）。
現状、「特定の件名からメールを受信した時、指定した転送先に自動転送する」は作成できました(下記コード)。

Option Explicit

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim objId As Object
Dim myNamespace As Outlook.NameSpace

Set myNamespace = GetNamespace("MAPI")
Set objId = myNamespace.GetItemFromID(EntryIDCollection)
Const fw_scrp = "自動転送しています。"

  If InStr(objId.Subject, "FW") Then
     End
  End If
  
  If InStr(objId.Subject, "開封") Then
     End
  End If

  If InStr(objId.Subject, "定期だより") Then  '"　"特定したい件名①
     Dim fwMail As MailItem
     Set fwMail = objId.Forward
   
     Dim Rec As Recipient
     Set Rec = fwMail.Recipients.Add("kakikukeko@outlook.jp")  '"　"転送先
     Rec.Type = olTo
     Rec.Resolve
   
     fwMail.Body = vbCrLf & vbCrLf & fwMail.Body
     fwMail.Send
     
  ElseIf InStr(objId.Subject, "定期便り") Then    '"　"特定したい件名②
     Set fwMail = objId.Forward
   
     Set Rec = fwMail.Recipients.Add("kakikukeko@outlook.jp")  '"　"転送先
     Rec.Type = olTo
     Rec.Resolve
   
     fwMail.Body = fw_scrp & vbCrLf & vbCrLf & fwMail.Body
     fwMail.Send
     
  End If

End Sub

つまずいている部分は、
①「特定のアドレスからメールを受信した時」といった設定が出来ない
②転送先を複数アドレス設定出来ない(;や:等で区切ってみたがNG…）

です。vba初学者のため、ネット検索から始まり色々と調べて見ましたが、中々うまくいきません。皆さま、何卒お知恵を貸して頂けたら助かります！

また、コードが簡素化されてない？余計なコードが多い？部分がもしありましたらご了承ください。。。

行動規範の内容に同意します

回答1件

ベストアンサー

差出人のアドレスはアイテムの SenderEmailAddress で確認できますので、objId にメールアイテムが格納されているなら差出人アドレスによる判定は以下のようになります。

VBA
1If objId.SenderEmailAddress = "sender@example.com" Then
2    ' sender@example.com からのメールに対して行う処理
3End If

また、転送先を複数指定したいなら、Recipients.Add で追加、Type を設定、Resolve で名前解決という処理を繰り返せばよいです。
単に objId.To = "forward1@example.com;forward2@example.com" でも良いですが。

投稿2022/04/10 10:22

millefeuille

総合スコア221

Kenbridge_ocha

2022/04/10 11:22

早急かつ分かりやすい回答、大変助かりました。一つ教えてください。回答の最終行の、objid.to = "forward1…　は、どのように入力すれば良いのでしょうか。今後の方針として、転送先を数十人に設定したいため、Excelで転送先アドレス一覧を管理しOutlookと連携したいと考えいます(出来ますかね？)。今後の参考にさせて頂きたいと思っております。