StartDownloadsServiceBeispieleWorkshopsKontakt DeutschEnglish
 
Beispiele
Allgemein
Outlook®
 
Awarded by
Microsoft since 2005:
mvp logo
VBOffice Info
Besucher1409569
Aufrufe5190884
Links
Impressum
Datenschutz
Kontakt
Empfangskonto einer E-Mail ermitteln
Autor: Michael BauerHomepage
Datum: 17.05.2006Zugriffe: 18973
  
Beschreibung

Seit Outlook XP wird für jede empfangene E-Mail gespeichert, über welches Konto diese empfangen wurde. (Über das gleiche Konto werden standardmäßig auch die Antworten zurückgesendet.)

Das folgende Beispiel zeigt, wie Sie die Information mit Hilfe der Redemption ermitteln können:

Public Sub ReadNextSendAccount()
  Dim Mail As Redemption.rdoMail
  Dim Session As Redemption.RDOSession
  Const PR_NEXT_SENDING_ACCOUNT = &H808E001E

  Set Session = CreateObject("redemption.rdoSession")
  Session.MapiObject = Application.Session.MapiObject

  ' Annahme, dass aktuell eine empfangene E-Mail ausgewählt ist.
  With Application.ActiveExplorer.Selection(1)
    Set Mail = Session.GetMessageFromID(.EntryID, .Parent.StoreID)
  End With

  ' Ausgabe der Info im Debug-Fenster
  Debug.Print Mail.Fields(PR_NEXT_SENDING_ACCOUNT)
End Sub

 
 

ReplyAll warnt Sie, bevor Sie unbeabsichtigt allen Empfängern einer E-Mail antworten oder wenn Sie ein vertraulicher BCC-Empfänger der E-Mail ... [weiter]

 

Blitzschneller Zugriff auf die Hauptkategorienliste, gemeinsame Kategorien im Netzwerk, eine Erinnerungsfunktion ... [weiter]

 

SAM legt automatisch Absender, Signatur und Speicherort für gesendete Mails fest, z.B. anhand der ... [weiter]

 

OLKeeper verhindert zuverlässig, dass Mitarbeiter Outlook schließen und dadurch Termine oder E-Mails ... [weiter]

So entgeht Ihnen kein Auftrag mehr:
Telefonservice und Sekretariatsservice