Exportar a VCard

[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

[ORibeiro]

Fiz assim:

Code: Select all  Expand view

      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")