Outlook 2003 / 2007 - Felder in Kontakte ersetzen per macro

24/10/2008 - 08:08 von Ernst-Peter Schönegge | Report spam
Hallo an alle,

ich suche eine Möglichleit, Werte aus einem Feld in ein anderes zu
verschieben /kopieren.
Beispiel. Ich habe das Feld Anrede und möchte den Inhalt in das Feld
Benutzer1 verschieben.
Oder in ein Benutzer definiertes Feld.
Wie gehe ich am beste vor?

Vielen Dank im voraus an alle
Peter Schönegge
 

Lesen sie die antworten

#1 Peter Marchert
24/10/2008 - 09:50 | Warnen spam
On 24 Okt., 08:08, "Ernst-Peter Schönegge"
wrote:
Hallo an alle,



Hallo Peter,

ich suche eine Möglichleit, Werte aus einem Feld in ein anderes zu
verschieben /kopieren.
Beispiel. Ich habe das Feld Anrede und möchte den Inhalt in das Feld
Benutzer1 verschieben.
Oder in ein Benutzer definiertes Feld.
Wie gehe ich am beste vor?



Z. B. so:

Sub MoveField()

Dim objItems As Object
Dim objItem As ContactItem

Set objItems Outlook.Session.GetDefaultFolder(olFolderContacts).Items
'Set objItems = Outlook.ActiveExplorer.CurrentFolder.Items

For Each objItem In objItems

objItem.User1 = objItem.Title
objItem.Save

Next

Set objItem = Nothing
Set objItems = Nothing

End Sub

Als fertiges Tool mit weiteren Funktionen gibt es
"EditContacts" (www.outlook-stuff.com).

Gruß
Peter

Infos, Workshops & Software für
Outlook®: www.outlook-stuff.com

Ähnliche fragen