Automatische Änderungen z.B. an Outlook-Kontakten

[Bernd_Munich]

Hallo,

ich hatte das Problem, das ich einige Kontaktfelder ändern musste. Die Änderungen werden bei mir aber ohne folgenden Workaround nicht gespeichert:

nAnzahl = Element_Kon.Count

For i = 1 To nAnzahl

'WORKAROUND, da Änderungen sonst nicht speichert werden: Element anzeigen...
Element_Kon(i).Display

cString = Element_Kon(i).Categories
cString = Replace(cString, "Kunde", "Vertrieb")
cString = Replace(cString, "KundeA", "VertriebA")
cString = Replace(cString, "KundeB", "VertriebB")
cString = Replace(cString, "KundeC", "VertriebC")
Element_Kon(i).Categories = cString

Element_Kon(i).FileAs = Element_Kon(i).FileAs + " (" + Element_Kon(i).CompanyName + ")"

'NÜTZT NIX
'Element_Kon(i).Save

'WORKAROUND: ...damit die Änderungen gespeichert werden
Element_Kon(i).Close (olSave)

'... weitere Eigenschaften im Objektkatalog unter "ContactItem"
Next i

Ist natürlich etwas nervig - Fenster auf - Fenster zu - Fenster...

Weiß jemand woran es liegt und hat eine bessere Lösung?

Danke und Grüße Bernd

 

[simonef]

Hallo Bernd,

hoffentlich ist es noch nicht zu spät

also bei mir geht das...
das ist ein optimiertes Eingabefenster für Kontakte
hallo ist ein Outlook.ContactItem, das von der "Hauptanwendung" übergeben wird

hallo.BusinessAddressStreet = txtGStrasse.Text
hallo.BusinessAddressCity = txtGOrt.Text
hallo.BusinessAddressPostalCode = txtGPLZ.Text
hallo.HomeAddressStreet = txtPStrasse.Text
hallo.HomeAddressCity = txtPOrt.Text
hallo.HomeAddressPostalCode = txtPPLZ.Text
' etc.
hallo.Save

also an dem save kann es eigentlich nicht liegen, der geht so einwandfrei.

kann es daran liegen, dass du den FileAs veränderst? (das macht outlook doch dann automatisch, oder?)
ich benütze den quasi als unique-key....
probier´s einfach mal ohne diese Zeile aus.

das array schaut mir (auf den ersten Blick) seltsam aus, aber gehen müsste es...

cu
simone