Re: vcf file

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 


On 7/18/05, MilanK <milan@kev.sk> wrote:
> > jak by se z kontaktu v Outlooku mohl udelat *.vcf soubor.
> 
> Otvorit kontakt - jeden! - menu SaveAs, vybrat typ *.vcf...
> Treba po jednom :-( , skusal som - hromande to asi nepojde.
> Jedine zeby niekto (meno mu zacina na A, a konci na lex)
> vedel nejake makro...
> 
> > program na prenos Outlook - Sony Ericsson jsem nenasla.
> > pro Sony Ericsson (konkretne k700i)
> 
> Nebolo to sice pre K700, ale pre T610 mi tu raz radili "floAt's
> Mobile Agent", neviem ale co dokaze - nebolo to pre mna.
> http://fma.sourceforge.net/
> Na stranke spominaju T610, K700, K750 ...
> 
> MilanK
-- 
AleX