esportare rubrica outlook 2003 in VCF
Kernel 64 XP
è possibile esportare tutti i contatti di outlook 2003 in file VCF in modo
automatico e non singolarmente??
Bruno Campanini
news:4c990d41$0$31374$4faf...@reader1.news.tin.it...
> ciao
>
> è possibile esportare tutti i contatti di outlook 2003 in file VCF in modo
> automatico e non singolarmente??
Prova a dirmi come si esportano singolarmente...
Bruno
Kernel 64 XP
"Bruno Campanini" <B...@gmail.com> ha scritto nel messaggio
news:4c99d552$0$31380$4faf...@reader1.news.tin.it...
Apri outlook
apri il contatto
menu FILE> esporta nel file vCard
Bruno Campanini
> Apri outlook
>
> apri il contatto
>
> menu FILE> esporta nel file vCard
=================================
Public Sub Contacts_ExportToVCF()
Dim Kontact As Folder, i As Object
Set Kontact = Session.GetDefaultFolder(olFolderContacts)
For Each i In Kontact.Items
i.SaveAs "C:\VCF\" & i.FullName & ".vcf", olVCard
Next
End Sub
=================================
Outlook 2010 - dimmi se ti funziona.
Bruno
Kernel 64 XP
ciao
questo codice è da copiare e incollare dove?
o da salvare come??
Bruno Campanini
> questo codice è da copiare e incollare dove?
> o da salvare come??
Apri Outlook poi ALT-F11
Copia lì il codice ed eseguilo premendo sulla barra
dei menu il triangolino con un lato a destra.
Non ho avuto la possibilità di provarlo con Outlook 2003
(lo farò!) quindi se non ti funzionasse, sostituisci nel codice
Kontact As Folder con Kontact as Object.
Se non ti funziona ancora, dimmelo; lo aggiusto sotto
Outlook 2003.
La procedura copia (convertendo in VCF) tutti i Contatti
che trova nell'appropriato Default Folder; dovessero
trovarsi (anche) altrove, occorre una piccola modifica.
Se 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.
Fammi sapere.
Bruno
Kernel 64 XP
>
> Non ho avuto la possibilità di provarlo con Outlook 2003
> (lo farò!) quindi se non ti funzionasse, sostituisci nel codice
> Kontact As Folder con Kontact as Object.
> Se non ti funziona ancora, dimmelo; lo aggiusto sotto
> Outlook 2003.
>
> La 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??
> Se 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.
>
> Fammi sapere.
> Bruno
dimmi come aggiungere un eventuale pulsante su outlook
ciao e grazie 1000 funziona benissimo
Bruno Campanini
[...]
>> La 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
==================================
>> Se 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
Bruno Campanini
news:4c9dd635$0$19001$4faf...@reader5.news.tin.it...
> 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.
Otlook 2003
=========
ALT+F11 per aprire VBE, poi ancora ALT+F11
per ritornare a interfaccia utente, dalla quale:
ClickDX su ToolBar => Customize => Commands
In Categories selezionare Macros
In Commands appare lista macro:
Drag-n-Drop su ToolBar
Con la finestra Customize aperta, ClickDX
sul button macro inserito per rinominarlo, etc.
Bruno
Kernel 64 XP
"Bruno Campanini" <brun...@libero.it> ha scritto nel messaggio
news:4c9df688$0$40287$4faf...@reader2.news.tin.it...
grazie 1000 bruno! :)
bwalk...@gmail.com
Bruno Campanini
> esportare tutti i contatti da MS Outlook in formato VCF.
> https://www.softaken.com/vcard-export-import
=======================================
Dim Kontact As Folder, i As Object
TargetDir = "C:\Outlook Files\Cont\"
Set Kontact = Session.GetDefaultFolder(olFolderContacts)
Next
End Sub
======================================
Bruno
Radison lury
Clicca qui: https://www.wholeclear.com/pst/vcf/