Outlook VB Script: Outlook erkennt einen oder mehrere Namen nicht

Question

Ich habe das folgende Skript ausgeführt, das eine E-Mail-Bestätigung von einer Vorlage an externe Benutzer sendet, die ein freigegebenes Postfach kontaktieren. Etwa ein- oder zweimal pro Woche stoße ich auf den Fehler, der im Feld Titel aufgeführt ist.

Wären Sie in der Lage, bei der Bereitstellung von Code zu helfen, der eine E-Mail-Adresse ignoriert, die nicht aufgelöst werden kann, und, wenn möglich, eine Nachricht, die mich benachrichtigt, wenn dies auftritt?

Sorry, Ich habe dies vor ein paar Jahren und lernte gerade genug, um diese Arbeit zu bekommen:/

---

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

Verwenden Sie die Recipients.ResolveAll Methode; Es wird False zurückgegeben, wenn ein Problem mit einer der Empfängeradressen vorliegt. Sie können Recipient.Resolved für jedes Mitglied der Sammlung auswerten, um festzustellen, welche ungültig ist.