Outlook Kontakt öffnen
25.09.2002 14:57:16
Markus
Mit dem folgendem Code habe ich die Möglichkeit von Excel in ein Notizfeld eines Kontaktes zu schreiben.
Set myOLApp = CreateObject("Outlook.Application")
Set myItem = myOLApp.ActiveInspector.CurrentItem
myItem.Body = Range("A1").Text
myItem.Save
Set myItem = Nothing
Set myOLApp = Nothing
Bei diesem Code muss allerdings der gewünschte Kontakt geöffnet sein.
Gibt es eine Möglichkeit in automatisch zu öffnen und wieder zu schließen?
Danke.