L'auteur
Francis Faure
 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é 11423 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
|
| 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é ...
|
Retour à la liste