Wer kennt eine einfache Lösung einen angezeigten Adress-Datensatz per Button nach Outlook in die Kontakte zu übergeben ?
das geht z.B. so:
' On Error GoTo Er
Dim myOlApp As Object, Tmp, I As Long, j As Long, cItm As ContactItem, \_
myFolder As Object, myNameSpace As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
Set cItm = myFolder.Items.Add
With cItm
.LastName = "Meier"
.FirstName = "Karl"
.Email1Address = "[email protected]"
.Save
End With
Set myFolder = Nothing
Set myNameSpace = Nothing
Set myOlApp = Nothing
Verweis auf die Outlook-OLB nicht vergessen!
Gruß aus dem Norden
Reinhard Kraasch