Page 1 of 1
Exportar a VCard
Posted: Fri Oct 03, 2014 5:24 pm
by Frafive
Hola amigos
Alguien tiene alguna idea de como generar un archivo vcf desde una dbf ?, para despues importarlo a cualquiler dispositivo móvil.
Un saludo
Gabriel
Re: Exportar a VCard
Posted: Sat Oct 04, 2014 8:23 pm
by ORibeiro
Fiz assim:
[c]
Net_Use("FTCLIMES","CSVCLIM")
Net_Use("FTCLIEND","CSVCLIE")
Set Relation To NR_CL Into CSVCLIM
Set Filter To "@"$OBS
DbGoTop()
FnErase(pDado+"CLIENTES.CSV")
oPrn:=TDosPrn():New((pDado+"CLIENTES.CSV"),,.F.)
oPrn:lAnsiToOem := .F.
oPRN:Say(-1,0, ["Primeiro nome","Empresa","Telefone comercial","E-mail Address","Tipo de email","Nome para exibição do email"] )
Do While !Eof()
if CSVCLIE->LOCAL="0001" .AND. CSVCLIM->CTVALOR>0
oPrn:NewLine()
oPRN:Say(-1,0, ["(Cli)]+ALLTRIM(PADR(ALLTRIM(CSVCLIM->ABREV)+" "+ALLTRIM(CSVCLIE->CONTATO),35))+[","]+ALLTRIM(CSVCLIM->NOME)+[","]+ALLTRIM(CSVCLIE->FONE)+[","]+ALLTRIM(CSVCLIE->OBS)+[","SMTP","(Cli)]+ALLTRIM(PADR(ALLTRIM(CSVCLIM->ABREV)+" "+ALLTRIM(CSVCLIE->CONTATO),35))+["] )
endif
DbSkip()
EndDo
oPRN:EndPage(.F.) // .F. não avança para a próxima página
oPRN:End()
Fecha_Arquivo("CSVCLIE")
Fecha_Arquivo("CSVCLIM")
MsgInfo("Gerei o arquivo (CLIENTES.CSV) com os contatos dos clientes para ser importado no OutLook!"+chr(13)+chr(13)+;
"Sequência de Importação: (Menu) Arquivo / Importar / Importar de outro programa ou arquivo / Valores separados por vírgula (Windows) / Substituir duplicados / Contatos / Concluir","Informação")
[/c]