Ciao a tutti
Con la seguente funzione elimino 20108 contatti.
Delle volte mi da errore: "Errore run-time -2147417851 (80010105) Metodo delete ContactItem non riuscito!"
Il codice è il seguente :
'************************************************
Dim myOutlook As Outlook.Application
Dim myInformation As Namespace
Dim myContacts As Items
Dim i As Long
Dim lngCount As Long
Set myOutlook = CreateObject("Outlook.Application")
Set myInformation = myOutlook.GetNamespace("MAPI")
Set myContacts = myInformation.GetDefaultFolder(olFolderContacts).Items
lngCount = myContacts.Count
For i = lngCount To 1 Step -1
myContacts(i).Delete
Next
'*********************************************************
Esiste un sistema per eliminare tutti i contatti senza fare un ciclo For?
In attesa ciao a tutti
Con la seguente funzione elimino 20108 contatti.
Delle volte mi da errore: "Errore run-time -2147417851 (80010105) Metodo delete ContactItem non riuscito!"
Il codice è il seguente :
'************************************************
Dim myOutlook As Outlook.Application
Dim myInformation As Namespace
Dim myContacts As Items
Dim i As Long
Dim lngCount As Long
Set myOutlook = CreateObject("Outlook.Application")
Set myInformation = myOutlook.GetNamespace("MAPI")
Set myContacts = myInformation.GetDefaultFolder(olFolderContacts).Items
lngCount = myContacts.Count
For i = lngCount To 1 Step -1
myContacts(i).Delete
Next
'*********************************************************
Esiste un sistema per eliminare tutti i contatti senza fare un ciclo For?
In attesa ciao a tutti