Hallo,
nachdem der VBA-Code von der Webseite http://www.vboffice.net/de/developers/email-mit-kontaktdaten-verknuepfen in Outlook über den VBA-Editor hineinkopiert wurde, muss der VBA-Code wie folgt angepasst werden:
Private Sub UpdateEmail(Mail As Outlook.MailItem)
Dim Contact As Outlook.ContactItem
Dim Props As Outlook.UserProperties
Dim Prop As Outlook.UserProperty
Dim Name As String
Set Contact = GetContact(Mail.SenderEmailAddress)
If Not Contact Is Nothing Then
Set Props = Mail.UserProperties
Set Prop = GetUserProperty(Props, "AbsenderName")
Prop.Value = Contact.FullName
Set Prop = GetUserProperty(Props, "AbsenderFirma")
Prop.Value = Contact.CompanyName
CopyTextInClipart Contact.Department
Mail.Save
End If
End Sub
Sub CopyTextInClipart(strTMP As String)
Dim objClip As Object
Set objClip = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
'Dim objClip As dataobject
'Set objClip = New dataobject
objClip.SetText strTMP
objClip.PutInClipboard
End Sub
Im Sub UpdateEmail muss lediglich ein neuer Befehl eingefügt werden:
CopyTextInClipart Contact.Department
Der Befehl CopyTextInClipart macht nichts anderes, als den übergebenen Text in die Zwischenablage zu kopieren.
Falls jedoch mehrere Mails aktualisiert werden, wird nur die Abteilung der letzten Mail in die Zwischenablage kopiert.
Vielleicht helfen diese Informationen weiter?
LG, BigBen
|