Ich erstelle ein Excel-Add-In, das die aktive Arbeitsmappe als Anhang in einer Outlook-E-Mail-Vorlage an eine bestimmte Kontaktgruppe sendet.Zugriff auf Kontaktgruppen in Excel VBA?
Ich habe die ersten beiden Teile mit dem unten stehenden Code arbeiten, aber ich bin mir nicht sicher, wie Sie das Feld .TO zu einer Kontaktgruppe festlegen.
Verwenden Sie einfach den Namen der Kontaktgruppe (früher "Verteilerlisten" genannt). Ich habe es gerade versucht, wie auf Ron de Bruin's Website vorgeschlagen, und es funktioniert.
Damit die E-Mail-Adressen oder Namen des Empfängers aufgelöst werden (sodass sie nicht nur einfachen Text anzeigen), können Sie Folgendes tun.
With OutMail
'.TO field should be set to the contact group
.BCC = ""
.Attachments.Add ActiveWorkbook.FullName
.HTMLBody = Replace(OutMail.HTMLBody, strOldPeriod, strNewPeriod)
.Subject = Replace(OutMail.Subject, strOldPeriod, strNewPeriod)
'To display the email leave as is; to send the Email, change to .Send
.Display 'or Send
If Not .Recipients.ResolveAll Then
For Each Recipient In .Recipients
If Not Recipient.Resolved Then
MsgBox Recipient.Name & " could not be resolved"
End If
Next
End If
End With
Nicht beachten, dass es funktioniert. Meine Verwirrung war, dass Outlook, obwohl es das Feld als einen Klartextwert füllte, intelligent genug ist, es als eine Kontaktgruppe zu erkennen. Ich hatte die ganze Zeit die Antwort, wusste es aber nicht XD. – Moses
Ich habe auch bemerkt, dass es scheint nicht zu lösen und sollte es in meiner Antwort erwähnt haben. Wenn Sie auf "Name überprüfen" klicken, wird dies automatisch ausgeführt. –
Hey, alt ich weiß, aber diese Verbindung ist kaputt - könntest du ein relevantes Stück von Rons Antwort hier einfügen - vorausgesetzt, du hast es noch? – Huw