bin fast am verzweifeln, ich bekomme es einfach nicht gebacken über die ComObject-Methode einen Outlook 2013-Kontakt auszulesen, bzw. den Notiztext mit eigenem Text zu ergänzen. Das Auslesen des gesamten Notizfeldes eines gesuchten Kontakts funktioniert zwar, aber wie kann ich den Text verändert zurückschreiben?
Mein Plan ist ein Rechnungsprogramm, welches mir Formulareingaben berechnet, als PDF speichert und anschließend den Rechnungstext in das Kontakte-Notizfeld schreibt. Ich hatte das einmal mit Excel erfolgreich umgesetzt, möchte jetzt unbedingt AHK in Verbindung mit ComObject benutzen.
Hier mein Code:
Code: Select all
Outlook := ComObjCreate("Outlook.Application")
Namespace := Outlook.GetNamespace("MAPI")
Namespace.Logon("Outlook")
MapiFolder := Namespace.GetDefaultFolder(10)
Items := MapiFolder.Items
Count := Items.Count ; Anzahl Kontakteinträge
for Items in MapiFolder.Items {
name := Items.FullName
If (name = "Vorname Nachname") ; Vorname Nachname (Fullname) suchen
{
notes := Items.Body "...OK" ; Notizfeld mit "...OK" ergänzen
Items.Save ; Kontakt speichern
msgbox, %notes%
}
}
ExitApp