Re: vcf file

Vyborne, funguje skvele. Dekuji moc

On 7/19/05, AleX <faklabrejle@gmail.com> wrote: 
> 
> Milan ty ftipalek, robis mi dobru reklamu (ako keby som za nu platil :-D)
> 2 Simona
> ------- cut --------------
> Sub create_vcards()
> Dim itt As ContactItem
> Set tmpFolder = Application.GetNamespace("MAPI").PickFolder
> For Each itt In tmpFolder.Items
> itt.SaveAs "C:\temp\" & itt & ".vcf", olVCard
> Next
> End Sub
> -------end cut ---------
> co treba mat nastavene:
> 1. menu Tools>Macro>Security
> minimalne Medium
> 2. restart otlak
> 3. menu Tools>Macro>VisBas editor
> 4. cut & paste ten kusok kodu ....
> upravit a stlacit F5
>