OutlookのVBスクリプト：Outlookは1つ以上の名前を認識しません

Question

実行する以下のスクリプトがあります。これは、テンプレートから共有メールボックスに接続する外部ユーザーに電子メールの確認応答を送信します。週に1〜2回ほど、タイトル欄にエラーが表示されます。

解決できないメールアドレスを無視するコードを提供するのを手伝ってください。可能であれば、これが発生したときに通知するメッセージがありますか？

申し訳ありませんが、私は数年前にこれを設定するだけの十分なこの作業を取得することを学んだ：/

---

Sub AutoReplywithTemplate(Item As Outlook.MailItem) 
Dim oRespond As Outlook.MailItem 

' Use this for a real reply 
' Set oRespond = Item.Reply 

' This sends a response back using a template 
Set oRespond = Application.CreateItemFromTemplate("C:\Users\dannygonzales\AppData\Roaming\Microsoft\Templates\GMS Technical Support Email Acknowledgment (Default).oft") 

With oRespond 
.Recipients.Add Item.SenderEmailAddress 
.Subject = "GMS Technical Support Acknowledgement" 
.HTMLBody = vbCrLf & oRespond.HTMLBody 

' includes the original message as an attachment 
' .Attachments.Add Item 

' use this for testing, change to .send once you have it working as desired 
.Send 
End With 
Set oRespond = Nothing 
End Sub 

---

Answer 1

をRecipients.ResolveAllメソッドを使用します。受信者のアドレスに問題がある場合はFalseを返します。コレクションの各メンバーのRecipient.Resolvedを評価して、どちらが無効であるかを判断できます。