Hallo,
Mittels VB versuche ich, die eMail-Adressen, die im Exchange-Format gespeichert sind, durch neue Adressen im SMTP-Format zu überschreiben:
With itmContacts
.Email1Address = „[email protected]“
.Save
End With
Mit dem Save wird jedoch immer wieder automatisch die Exchange-Adresse eingetragen.
Was mache ich falsch?
Gruß, Thomas
Mittels VBA versuche ich, die eMail-Adressen, die im
Exchange-Format gespeichert sind, durch neue Adressen im
SMTP-Format zu überschreiben:
Mit dem Save wird jedoch immer wieder automatisch die
Exchange-Adresse eingetragen.
Hallo Thomas,
ggfs. mal die Reihenfolge der beiden Anweisungen vertauschen wenn es nicht klappt:
With itmContacts
.Email1Address = "[email protected]"
.Email1AddressType = "SMTP"
.Save
End With
Gruß
Reinhard
Hallo Reinhard,
Danke für den Tipp, aber leider hilft das auch nichts. Mit Aufruf des Save-Befehls trägt Outlook immer wieder die Ex-Adresse ein.
Gruss, Thomas
Danke für den Tipp, aber leider hilft das auch nichts. Mit
Aufruf des Save-Befehls trägt Outlook immer wieder die
Ex-Adresse ein.
Hallo Thomas,
sorry, mit OL-VBA kenne ich mich nicht aus.
Bei dem Beispiel aus:
http://msdn.microsoft.com/en-us/library/bb220058.aspx
sahi ich keinen Unterschied ob ich jetzt EX oder SMTP benutze.
Sub SetType()
Dim myItem As Outlook.ContactItem
Set myItem = Application.CreateItem(olContactItem)
myItem.Email1Address = "[email protected]"
' myItem.Email1AddressType = "SMTP"
myItem.Email1AddressType = "EX"
myItem.Display
End Sub
Gruß
Reinhard
Hallo Reinhard,
neue Einträge anlegen klappt.
Für unserer Firmen-eMail-Adressen wurde ein neues Format festgelegt. Jetzt wollte ich einfach mit einem Makro die existierenden Einträge mit dem neuen Format überschreiben. Dabei habe ich festgestellt, dass für viele Einträge die Adresse im Exchange-Format gespeichert ist. Wenn ich diese nun mit dem SMTP-Format überschreibe, scheint Outlook diese Änderung nicht annehmen zu wollen.
Naja, werde jetzt die Daten nach Excel exportieren, dort ändern und dann wieder importieren.
Gruß, Thomas