Wil "+31" prefix van telefoonnummers verwijderen uit Outlook contactpersonen, telefoonnummer velden. Maar niet handmatig. Zoek nu VBA oplossing.
Uitlezen van gewenste info contactpersonen met gewenste aanpassinginfo lukt:
Sub LandenNummerWeg2()
Dim MyNummer As String
' Visual Basic/Visual Basic for Applications code example.
Set Ol = New Outlook.Application
Set olns = Ol.GetNamespace("MAPI")
' Set MyFolder to the default contacts folder.
Set myFolder = olns.GetDefaultFolder(olFolderContacts)
' Get the number of items in the folder.
NumItems = myFolder.Items.Count
' Set MyItem to the collection of items in the folder.
Set MyItems = myFolder.Items.Restrict("[MessageClass] = 'IPM.Contact'")
' Loop through all of the items in the folder.
For I = 1 To NumItems
MsgBox Mid(MyItems(I).BusinessTelephoneNumber, 4)
Next I
End Sub
Maar hoe kan ik deze gewijzigde info opslaan, dus waarde eigenschap MyItems object wijzigen???
Wie helpt mij,
Groet,
SaBa33
Uitlezen van gewenste info contactpersonen met gewenste aanpassinginfo lukt:
Sub LandenNummerWeg2()
Dim MyNummer As String
' Visual Basic/Visual Basic for Applications code example.
Set Ol = New Outlook.Application
Set olns = Ol.GetNamespace("MAPI")
' Set MyFolder to the default contacts folder.
Set myFolder = olns.GetDefaultFolder(olFolderContacts)
' Get the number of items in the folder.
NumItems = myFolder.Items.Count
' Set MyItem to the collection of items in the folder.
Set MyItems = myFolder.Items.Restrict("[MessageClass] = 'IPM.Contact'")
' Loop through all of the items in the folder.
For I = 1 To NumItems
MsgBox Mid(MyItems(I).BusinessTelephoneNumber, 4)
Next I
End Sub
Maar hoe kan ik deze gewijzigde info opslaan, dus waarde eigenschap MyItems object wijzigen???
Wie helpt mij,
Groet,
SaBa33
