Office: (Office 2010) Mail per VBA

Hi zusammen,

ich habe ein Makro erstellt, welches aus Excel heraus Mails versendet. Soweit, so gut...

Leider sind potenziell viele Empfänger anzuschreiben, die in der Exceldatei als Liste auftauchen, ohne, dass die Mailadresse bekannt ist. (Per Schleife wird nacheinander jeweils ein Adressat mit "seinem" Inhalt angeschrieben.)

Fall a) alles gut: Der Listeintrag kommt ins an-Feld, Outlook löst bei
With OutMail
.Send
über das globale Adressbuch (Exchange) auf, die Mail wird versandt.

Fall b) Fehler: Die Auflösung schlägt fehl, weil der Eintrag nicht erkannt wird. Outlook öffnet das Fenster "Namen überprüfen" und alles steht.

Herausforderung: Welcher Code kann hier abprüfen, ob die Adressauflösung erfolgreich ist oder nicht. Mögliche Lösung: Wenn Adressauflösung nicht erfolgreich, dann wird Adressat geändert (z.B. schicke Mail an ein "Fehlerpostfach").
Mein Problem: Ich bekomme keinen Anpack an die Meldung Namensüberprüfung... (on Error hilft leider nicht)

Im Vorfeld ausschließlich im Outlook im globalen Adressbuch bekannte Listeinträge auszuwählen, ist fachlich nicht umsetzbar.

Über einen Hinweis würde ich mich sehr freuen. Danke im Voraus, VG, Godehard.

Code:

On Error Resume Next
With OutMail
.to = "[Variabler Listeintrag]"
.CC = ""
.BCC = ""
.Subject = "Betreff"
.Body = strbody
.Attachments.Add ActiveWorkbook.FullName
.Display
.Send '[Hier komme ich nicht weiter, wenn nicht aufgelöst wird]

End With

:)

 

Das musst du etwas forschen.
Je nach dem, mit welchen Infos du ins/ans "Adressbuch" gehst.

Im Anhang ein Code, den du mal mit F8 durchdrücken kannst, wie deine Adressbücher benannt sind und welche Entries sie haben.
Einfach in eine neue, leere Mappe in ein leeren Modul kopieren.
Der Code zeigt im Direktfenster die Namen der Benutzer und seine primäre Adresse an.
Die könntest du abfragen und, wenn kein String als Antwort, überspringen.

Code:

 

Hallo Andrea,

vielen Dank für deinen Ansatz. (Mit dem Ergebnis müsste ich vorher abgleichen, ob der Eintrag vorhanden ist, richtig?)

Je nachdem, welches Adressbuch ich eingebe, erhalte ich unterschiedliche Angaben im Direktfenster. Leider sind 2 Aspekte festzuhalten:

a) Der Listeintrag, den ich in das An-Feld hineinschreibe, wird nicht mit angezeigt (ist/brauche das Outlook-Feld 'Alias')
b) nach gefühlten 100 Einträgen (noch im Namensbereich des Buchstaben B)im Direktfenster fängt Outlook an "nach Hause zu telefonieren" - ich bekomme einen Abbruch und Laufzeitfehler '-2147467259 (80004005)' Der Vorgang ist fehlgeschlagen

Hast du noch eine Idee?

Viele Grüße

 

Den Exchange kann man natürlich umfangreich konfigurieren, einschränken, etc. Wenn ich das hier auf diesem Rechner laufen lasse, erhalte ich ca. 2500 Mail Adressen. Es dauert, aber läuft fehlerfrei durch.
Deswegen der Hinweis auf das Nachforschen.
Den Alias kriegst du über " objEntry.GetExchangeUser.Alias "

Evtl. musst du dich durch https://msdn.microsoft.com/en-us/lib.../ff866465.aspx mal durcharbeiten.

 

Hey - ich habe noch ein bisschen rumprobiert. Ohne zu verstehen warum: Der Code funktioniert, wenn ich über VPN ins Netzwerk gehe - wenn ich schon im Netzwerk bin, weigert sich Exchange scheinbar, die komplette Liste durchzugehen (Ergebnis gerade knapp 18 Tsd. Einträge).

Naja, dann halt per VPN!

Vielen Dank, Andrea - hat mir auf jeden Fall sehr geholfen und ich glaube, ich kriege das gewünschte Ergebnis hin - zumindest solange das per VPN funktioniert. Danke auch für den Link auf die Objektübersicht.

Sollte noch jemand eine Idee haben, wie man ohne Abgleich aller Einträge per VBA auf die Outlook-Nachrichtenbox "Namen überprüfen" als Trigger nutzt, gern her damit ;-)

Ich wünsche einen schönen Abend! Danke nochmal.

 

Vielleicht hilft Dir die Methode resolve um einen Namen aufzulösen