Thema Datum  Von Nutzer Rating
Antwort
Rot Feld Abteilung in Zwischenablage kopieren
 04.03.2017 10:26:04 Martin
NotSolved

Ansicht des Beitrags:
Von:
Martin		 Datum:
04.03.2017 10:26:04		 Views:
941		 Rating:
     
Antwort:
  Ja
Thema:
Feld Abteilung in Zwischenablage kopieren

Hallo Leute,

dieser Code zeigt mir anhand der empfangenen und markierten Email die Kontaktadresse an - ich möchte nun noch die Abteilung (ein Feld des Kontaktes) maschinell auslesen und automatisch in die Zwischenablage kopieren. Jemand eine Idee - Danke! Wäre super!

Martin

 

Sub DisplayAddressEntryDetails(oM As MailItem)
 Dim oPA As Outlook.PropertyAccessor
 Dim oContact As Outlook.ContactItem
 Dim oSender As Outlook.AddressEntry
 Dim SenderID As String
 
 'Create an instance of PropertyAccessor
 Set oPA = oM.PropertyAccessor
 
 'Obtain PidTagSenderEntryId and convert to string
 SenderID = oPA.BinaryToString _
 (oPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x0C190102"))
 
 'Obtain AddressEntry Object of the sender
 Set oSender = Application.Session.GetAddressEntryFromID(SenderID)
 
 'Examine AddressEntryUserType
 If oSender.AddressEntryUserType = olOutlookContactAddressEntry Then
 'Obtain ContactItem for AddressEntry
 Set oContact = oSender.GetContact
 oContact.Display
 'Display details for Exchange or SMTP sender
 Else
 oSender.Details
 
 End If

 

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 Feld Abteilung in Zwischenablage kopieren
 04.03.2017 10:26:04 Martin
NotSolved