Outlook-Kontakte Notizen auslesen und schreiben

[moefr01]

Liebe AHK'ler,

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

Was mache ich da falsch... Hat da jemand eine zündende Idee?

[just me]

Moin,

ich bin da kein Experte, aber

Code: Select all

    notes     := Items.Body "...OK"	; Notizfeld mit "...OK" ergänzen

ergänzt den aus Items.Body ausgelesenen Text um den Text "...OK" und schreibt das dann in die AHK Variable notes. Wenn Du danach Items.Save aufrufst, wird der Text in Items.Body unverändert zurückgeschrieben. Falls Items.Body verändert werden kann, könnte das klappen:

Code: Select all

  If (name = "Vorname Nachname")	; Vorname Nachname (Fullname) suchen
    {
    notes      := Items.Body "...OK"	; Notizfeld mit "...OK" ergänzen
    Items.Body := notes
    Items.Save				; Kontakt speichern
    msgbox, %notes%
    }

[moefr01]

just me, vielen Dank... funktioniert einwandfrei!
...und Du bist doch'n E x p e r t e.