"Kernel 64 XP" <***@NOSPAMtin.it> wrote in message news:4c9db884$0$18664$***@reader3.news.tin.it...
[...]
Post by Kernel 64 XPPost by Bruno CampaniniLa procedura copia (convertendo in VCF) tutti i Contatti
che trova nell'appropriato Default Folder; dovessero
trovarsi (anche) altrove, occorre una piccola modifica.
mi dici in questo caso la modifica quale sarebbe??
==================================
Public Sub Contacts_ExportToVCF()
Dim Kontact As Folder, i As Object
' Scegliere una delle due seguenti istruzioni.
' I contatti, se non si trovano nel Default Folder Contacts,
' debbono trovarsi un una sua subDir.
'-------------------------------------------------------------------
'Set Kontact = Session.GetDefaultFolder(olFolderContacts)
Set Kontact = Session.GetDefaultFolder(olFolderContacts) _
.Folders("BC")
'-------------------------------------------------------------------
For Each i In Kontact.Items
i.SaveAs "C:\VCF\" & i.FullName & _
i.Email1Address & ".vcf", olVCard
Next
End Sub
==================================
Post by Kernel 64 XPPost by Bruno CampaniniSe ne devi a volte convertire solo uno o alcuni che tu abbia
selezionato, occorre un'ulteriore piccola modifica.
Poi può essere aggiunto un pulsante sulla barra dei menu
di Outlook, etc.
dimmi come aggiungere un eventuale pulsante su outlook
Qiuesta converte uno o più contatti selezionati.
=================================
Public Sub Contacts_ExportToVCF_Selection()
Dim i As Integer, Selected As Selection
Set Selected = ActiveExplorer.Selection
For i = 1 To Selected.Count
Selected(i).SaveAs "C:\VCF\" & _
Selected(i).FullName & _
Selected(i).Email1Address & ".vcf", olVCard
Next
End Sub
=================================
Ho aggiunto al FullName il primo indirizzo eMail,
potendosi avere soggetti con più indirizzi.
Debbo vedere come aggiungere un pulsante per macro:
in Outlook 2003 me ne son dimenticato,
in Outlook 2010 non l'ho ancora trovato.
Mi farò risentire.
Bruno