OVH Cloud OVH Cloud

comment puis-je envoyer une télécopie avec access? help

12 réponses
Avatar
straqual
je voudrais envoyer des etats de sortie directement depuis une base de
données que je viens de créer. cet envoi doit pouvoir se faire par fax et par
email. comment faire?

2 réponses

1 2
Avatar
migou
"straqual" a écrit dans le message de
news:
je voudrais envoyer des etats de sortie directement depuis une base de
données que je viens de créer. cet envoi doit pouvoir se faire par fax et
par
email. comment faire?





Bonjour,

Une autre Piste,
Perso, je suis également en train de faire un module qui devrait me
permettre d'envoyer des fax de manière automatique (pas de saisie du numéro
a la main par l'utilisateur).
J'étais parti sur une autre voix avec l'objet :
FAXCOMEXLib.FaxServer et FAXCOMEXLib.FaxDocument

Cet objet me semble une très bonne solution. ... mais elle marche pas pour
moi
J'ai suivis l'exemple indiqué dans la doc :
http://msdn.microsoft.com/library/en-us/fax/faxusing_27co.asp?frame=true

La fonction exécute bien jusqu'au :
objFaxDocument.ConnectedSubmit(objFaxServer)
Mais j'obtiens le message d'erreur suivant : "Error number: 80070002,
Opération failed."

D'un autre coté, j'ai testé le fax depuis mon poste et il fonctionne
correctement

Je sèche, une idée ?



Pour Info je suis sous windows XP Pro SP2 avec Office 2003, mon gestionnaire
de fax est celui fournis dans windows XP

Avatar
migou
J'ai trouvé une solution à mon probleme en changant la facon de proceder,
suite à une indication du msdn
http://msdn.microsoft.com/library/en-us/fax/faxusing_8dyw.asp?frame=true

Code utilisé :

Dim objFaxDocument As New FAXCOMEXLib.FaxDocument
Dim collFaxRecipients As FaxRecipients
Dim JobId As Variant

'Set the fax body.
objFaxDocument.Body = "c:DocsBody.txt"
'Name the document.
objFaxDocument.DocumentName = "My First Fax"

'Get the recipients collection
Set collFaxRecipients = objFaxDocument.Recipients
With collFaxRecipients
.Add "12225550105", "H"
.Add "12225550103", "G"
End With

'Load the default sender
objFaxDocument.Sender.LoadDefaultSender

'Group the broadcast receipts
objFaxDocument.GroupBroadcastReceipts = True

'Connect to the fax server, submit the document, and get back the
'job ID array. "" indicates the local server.
JobId = objFaxDocument.Submit("")

'Remove the recipients from the collection. If you don't take this step, and
run this code
'again without closing the program, the recipients collection will retain
the recipients and
'keep adding more recipients.
'The count and item numbering will change as you remove the items, so just
remove item (1) Count times
Dim lCount As Long
lCount = collFaxRecipients.Count
For i = 1 To lCount
collFaxRecipients.Remove (1)
Next


et ca marche nickel :)
en esperant que ca puisse aider a quelqu'un d'autre
bonne continuation


"migou" a écrit dans le message de news:
%

"straqual" a écrit dans le message de
news:
je voudrais envoyer des etats de sortie directement depuis une base de
données que je viens de créer. cet envoi doit pouvoir se faire par fax et
par
email. comment faire?





Bonjour,

Une autre Piste,
Perso, je suis également en train de faire un module qui devrait me
permettre d'envoyer des fax de manière automatique (pas de saisie du
numéro a la main par l'utilisateur).
J'étais parti sur une autre voix avec l'objet :
FAXCOMEXLib.FaxServer et FAXCOMEXLib.FaxDocument

Cet objet me semble une très bonne solution. ... mais elle marche pas pour
moi
J'ai suivis l'exemple indiqué dans la doc :
http://msdn.microsoft.com/library/en-us/fax/faxusing_27co.asp?frame=true

La fonction exécute bien jusqu'au :
objFaxDocument.ConnectedSubmit(objFaxServer)
Mais j'obtiens le message d'erreur suivant : "Error number: 80070002,
Opération failed."

D'un autre coté, j'ai testé le fax depuis mon poste et il fonctionne
correctement

Je sèche, une idée ?



Pour Info je suis sous windows XP Pro SP2 avec Office 2003, mon
gestionnaire de fax est celui fournis dans windows XP








1 2