Das Outlook XP hat mich ganz schön geärgert, weil man per Makro einfach nicht "keine Angabe" in myContact.Birthday reinschreiben kann
Also habe ich jetzt einfach das Feld Jahrestag (myContact.Anniversary), das zumindest bei mir immer auf "keine Angabe" steht, dazu mißbraucht, das Feld Geburtstag zu überschreiben.
Für meine Bedürfnisse reicht das jetzt.
Hier der vollständige VBA-Code
Sub ErstelleNokia6230Kontakte()
Dim myOlApp As Application
Dim myNameSpace As NameSpace
Dim myAllFolders As Folders
Dim myPersFolder As MAPIFolder
Dim mySrcFolder As MAPIFolder
Dim myDestFolder As MAPIFolder
Dim myItems As Items
Dim myContact As ContactItem
Dim ConName As String
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myAllFolders = myNameSpace.Folders
Set myPersFolder = myAllFolders.Item("Persönliche Ordner")
Set mySrcFolder = myPersFolder.Folders.Item("Kontakte")
Set myDestFolder = mySrcFolder.CopyTo(myPersFolder)
myDestFolder.Name = "Nokia6230 Adressbuch"
' Alle Kontakte im neuen Ordner auflisten und Vor/Nachnamen vertauschen.
Set myItems = myDestFolder.Items
For Each myContact In myItems
ConName = myContact.LastName
myContact.LastName = myContact.FirstName
myContact.FirstName = ConName
myContact.Birthday = myContact.Anniversary
myContact.Save
Next myContact
End Sub