Thema Datum  Von Nutzer Rating
Antwort
Rot Emfänger der zuletzt gesendeten Mail auslesen
 02.10.2020 20:29:32 P45_Thorsten
NotSolved
02.10.2020 20:45:42 Gast56607
NotSolved
02.10.2020 21:03:19 Gast56607
*****
Solved
03.10.2020 13:34:49 Gast16462
NotSolved
03.10.2020 14:19:35 Gast30770
NotSolved

Ansicht des Beitrags:
Von:
P45_Thorsten		 Datum:
02.10.2020 20:29:32		 Views:
1501		 Rating:
     
Antwort:
  Ja
Thema:
Emfänger der zuletzt gesendeten Mail auslesen

Hallo ihr Lieben,

kann mir bitte jemand weiterhelfen bei folgender Herausforderung?

Ich möchte per VBA den Empfänger meiner zuletzt gesendeten Outlook Mail in einer Zelle auslesen. Merkwürdigerweise wird zwar ein Empfänger ausgelesen aber eben nicht der letzte. Logisch konnte ich keinen Zusammenhang erkennen, es handelt sich also weder um den ersten, noch den häufigsten o.ä.

Mein aktueller code sieht wie folgt aus:

    
Sub LetztenEmpfängerAuslesen()

Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Postausgang As MAPIFolder
Dim OutlookMail As Object
Dim letzteMail As Object 

Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set Postausgang = OutlookNamespace.GetDefaultFolder(olFolderSentMail)
  
    'oberste Mail im Posteingang ansprechen
    Set letzteMail = Postausgang.Items(1)
    
   Range("E7") = letzteMail.To

Set Postausgang = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing

End Sub

Könnt ihr mir bitte weiterhelfen. Habe nach langer Recherche nichts find können.

Danke im Voraus.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Emfänger der zuletzt gesendeten Mail auslesen
 02.10.2020 20:29:32 P45_Thorsten
NotSolved
02.10.2020 20:45:42 Gast56607
NotSolved
02.10.2020 21:03:19 Gast56607
*****
Solved
03.10.2020 13:34:49 Gast16462
NotSolved
03.10.2020 14:19:35 Gast30770
NotSolved