StartDownloadsServiceSamplesWorkshopsContact DeutschEnglish
Awarded by
Microsoft since 2005:
mvp logo
VBOffice Info
Privacy Policy
E-Mail: Display sender address in Outlook 2000
Author: Michael BauerHomepage
Date: 05.05.2006Accessed: 24296

We are very sorry! This description is not translated yet. Anyway, please try the code as it is self-explanatory.

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  ' Verweis auf die Elemente des zu überwachenden
  ' Ordners.
  Set Items = Application.GetNamespace("MAPI") _
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
  ' Aufruf, wenn ein Element dem überwachten Ordner
  ' hinzugefügt wird.
  If TypeOf Item Is Outlook.MailItem Then
    AddSenderEmailAddress Item
  End If
End Sub

Private Sub AddSenderEmailAddress(Mail As Outlook.MailItem)
  ' Fügt der Mail ein benutzerdefiniertes Feld hinzu
  ' und schreibt die Absenderadresse hinein.
  On Error Resume Next
  Dim rdItem As Object
  Dim Field As Outlook.UserProperty

  ' SafeMailItem für Outlook.MailItem erstellen
  Set rdItem = CreateSafeItem(Mail)

  ' Wenn das benutzerdefinierte Feld nicht existiert,
  ' dann erstellen.
  Set Field = Mail.UserProperties("SenderAddress")
  If Field Is Nothing Then
    Set Field = Mail.UserProperties.Add("SenderAddress", olText, True)
  End If

  ' Absenderadresse im benutzerdefinierten Feld speichern.
  Field.Value = rdItem.SenderEmailAddress

  ' Redemption-Objekt freigeben. Dieser Aufruf muss(!) immer
  ' durchgeführt werden. Durch eine entsprechende
  ' Fehlerbehandlungsroutine muss das gewährleistet werden!
  ReleaseSafeItem rdItem
End Sub

ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the ... [more]


Access the master category list in the blink of an eye, share your categories in a network, get a reminder service, and ... [more]


SAM automatically sets the sender, signature, and folder for sent items, for instance based on the recipient ... [more]


OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or ... [more]