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

UTILISER LE SERVICE FAX SUR XP   



L'auteur

GLS
France France
Membre Actif (personne physique)
# 0000000136
enregistré le 15/11/2004

http://www.ecor-informatique.com
63 ans
LAJOT-SARTHOU Gilles
de la société ECOR Informatique
Fiche personnelle


Note des membres
pas de note

Contributions > 05 - API et appels systèmes

UTILISER LE SERVICE FAX SUR XP
# 0000000233
ajouté le 19/08/2005 20:02:34 et modifié le 08/11/2005
consulté 10208 fois
Niveau initié

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

Description

Voici un exemple d'utilisation de l'object FAXSERVER pour envoyer une télécopie sous XP, 2000, 2003 à l'aide du service fax natif. Celui ci doit être au préalable installé.

  oFaxSvr = CREATEOBJECT("faxserver.faxserver")
  *Le nom du serveur est celui de la machine sur le réseau
  oSERVERNAME = "BIOMAT"
  oFaxSvr.CONNECT(oSERVERNAME)
  * Nom du fichier à télécopier
  * il doit être affecté à un application référencée dans la base de registre
  v_res_fichier="C:\BIOMAT\EXEMPLEFAX.DOC"
  oFaxDoc = oFaxSvr.CreateDocument(v_res_fichier)
  * Assign 0 pas de coverpage 1 coverpage
  oFaxDoc.SendCoverpage =  0
  oFaxDoc.ServerCoverpage =  0
  *oFaxDoc.CoverpageName = "MyCpageName"
  *oFaxDoc.CoverpageNote = "MyNote"
  *oFaxDoc.CoverpageSubject = "MySubject"
  *oFaxDoc.DisplayName = "MyDisplayName"
  oFaxDoc.FaxNumber = p_tel
  *oFaxDoc.RecipientAddress = "MyRAddress"
  *oFaxDoc.RecipientCity = "MyRCity"
  *oFaxdoc.RecipientCompany = "RecipienCompany"
  oFaxDoc.RecipientName = "CLIENT DESTINATAIRE"
  *oFaxDoc.RecipientOffice = "MyROffice"
  *oFaxDoc.RecipientTitle = "MyRTitle"
  *oFaxDoc.SenderDepartment = "MySDepartment"
  oFaxDoc.SenderCompany = "EXPEDITEUR"
  *oFaxDoc.SenderFax = ""
  *oFaxDoc.SenderHomePhone = "MySHomePhone"
  *oFaxDoc.SenderName = ""
  *oFaxDoc.SenderOffice = "MySOffice"
  *oFaxDoc.SenderOfficePhone = "MySOfficePhone"
  *oFaxDoc.SenderTitle = "MySTitle"
  *oFaxDoc.Tsid = "TSID"
  * Assign envoi immédiat
  oFaxDoc.DiscountSend =  0
  JobId = oFaxDoc.SEND()
  oFaxSvr.Disconnect()

Bonne utilisation

Code source :
oFaxSvr = CREATEOBJECT("faxserver.faxserver")
  *Le nom du serveur est celui de la machine sur le réseau
oSERVERNAME = "BIOMAT"
oFaxSvr.CONNECT(oSERVERNAME)
  * Nom du fichier à télécopier
  * il doit être affecté à un application référencée dans la base de registre
v_res_fichier="C:\BIOMAT\EXEMPLEFAX.DOC"
oFaxDoc = oFaxSvr.CreateDocument(v_res_fichier)
  * Assign 0 pas de coverpage 1 coverpage
oFaxDoc.SendCoverpage =  0
oFaxDoc.ServerCoverpage =  0
  *oFaxDoc.CoverpageName = "MyCpageName"
  *oFaxDoc.CoverpageNote = "MyNote"
  *oFaxDoc.CoverpageSubject = "MySubject"
  *oFaxDoc.DisplayName = "MyDisplayName"
oFaxDoc.FaxNumber = p_tel
  *oFaxDoc.RecipientAddress = "MyRAddress"
  *oFaxDoc.RecipientCity = "MyRCity"
  *oFaxdoc.RecipientCompany = "RecipienCompany"
oFaxDoc.RecipientName = "CLIENT DESTINATAIRE"
  *oFaxDoc.RecipientOffice = "MyROffice"
  *oFaxDoc.RecipientTitle = "MyRTitle"
  *oFaxDoc.SenderDepartment = "MySDepartment"
oFaxDoc.SenderCompany = "EXPEDITEUR"
  *oFaxDoc.SenderFax = ""
  *oFaxDoc.SenderHomePhone = "MySHomePhone"
  *oFaxDoc.SenderName = ""
  *oFaxDoc.SenderOffice = "MySOffice"
  *oFaxDoc.SenderOfficePhone = "MySOfficePhone"
  *oFaxDoc.SenderTitle = "MySTitle"
  *oFaxDoc.Tsid = "TSID"
  * Assign envoi immédiat
oFaxDoc.DiscountSend =  0
JobId = oFaxDoc.SEND()
oFaxSvr.Disconnect()

Commentaires
Aucun commentaire enregistré ...

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