ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Générer une VCARD (fichier.VCF) en VFP   



L'auteur

Francis Faure
France France
Membre Actif (personne physique)
# 0000000001
enregistré le 11/10/2004

http://www.wanagain.net
56 ans
Faure Francis
de la société Design Or Decline
Fiche personnelle


Note des membres
pas de note

Contributions > 01 - PRG : Programmation > Conversions

Générer une VCARD (fichier.VCF) en VFP
# 0000000175
ajouté le 18/04/2005 23:37:06 et modifié le 18/04/2005
consulté 11125 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0
VFP 5.0
VFP 3.0

Zoomer sur l'image
Description

Suite à un post de Simon sur le forum microsoft.public.fr.fox :
"Est il possible de faire des Vcards  fichier *.vcf a partir de VFP"

j'ai trouvé le sujet intéressant, et propose une réponse la plus simple possible.

L'idée est un créer un fichier .vcf utilisable dans outlook express avec le minimum d'informations.

Un simple exemple avec une petite classe ne nécessitant pas d'objet sur des classes externes a vfp.

Cordialement

Francis FAURE

Code source :

o=CreateObject("vcf")
o.nom = "Faure"
o.prenom = "Francis"
o.afficher = "" && par défaut Prénom + Nom
o.email = "francis.faure[@]dord.com"
o.societe = "Design Or Decline"
=o.GenererVCF("c:\temp\test.vcf")
o=.null.



* ressources
* http://www.ietf.org/rfc/rfc2425.txt
* http://www.ietf.org/rfc/rfc2426.txt
* http://www.imc.org/pdi/vcardoverview.html



define class vcf as Custom

Nom = ""
Prenom = ""
Afficher = ""
Email = ""
Societe = ""

  procedure GenererVCF(p_file)
  local v_f
  local v_DateTime
    v_DateTime = Dtos(Date()) + "T" + StrTran(Time(),":","") + "Z"
    if Empty(This.Afficher)
      This.afficher = This.Prenom + " " + This.Nom
    endif
    v_f = Fcreate(p_file)
    =Fputs(v_f, "BEGIN:VCARD")
    =Fputs(v_f, "VERSION:2.1")
    =Fputs(v_f, "N:"Alltrim(This.Nom)+";"+Alltrim(This.Prenom))
    =Fputs(v_f, "FN:"Alltrim(This.Afficher))
    =Fputs(v_f, "EMAIL;PREF;INTERNET:"Alltrim(This.Email))
    if not Empty(This.Societe)
      =Fputs(v_f, "ORG:"Alltrim(This.Societe))
    endif
    =Fputs(v_f, "REV:"Alltrim(v_DateTime))
    =Fputs(v_f, "END:VCARD")
    =Fclose(v_f)
  return

enddefine


Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3