Après avoir passé des heures sur les tests et comme je ne décroche pas de
mon problème, je sollicite une bonne âme pour me tester le SUB ci-après.
Je travaille avec Access97(Access2000=idem), je fais des appels à WinFax Pro
10.03 et je suis sous XP Pro.
Les mêmes programmes(Sub) sous Windows 2000 ou même NT fonctionnent
correctement.
Les références sont OK dans Access, soit entre autre OLE Automation et
Winfax Automation Server
Ce que devrais faire ce Sub: Envoyer un Document Word en attachement.
Le problème que je rencontre:
1. En laissant .ShowSendScreen (0), j'ai un message final qui m'indique que
le document na pas pu être attaché
2. En mettant .ShowSendScreen (1), la boîte de dialogue de Winfax s'ouvre,
le document Word est annexé et si on fait Envoyer c'est OK.
Ma question: pourquoi le Document n'arrive pas à s'attacher dans le cas 1
Pour le test, ne pas oublier de mettre le path d'un document Word à la ligne
adéquate et d'essayer avec les 2 valeurs pour ShowSendScreen
----------------------------------------------------------------------------
--------------------------------
Sub EnvoiFAX()
'
Dim Winfax As Object ' Winfax Send object
Dim Status As Integer
Dim error As Long
'
' create a FAX OBJECT connect to Winfax OLE Automation Server
Set Winfax = CreateObject("WINFAX.SDKSEND8.0")
' set the message properties
With Winfax
.SetTypeByName ("Fax")
.SetResolution (1)
.SetSubject ("LISTE DE PRIX DU " & Date)
'
' METTRE un attachement sur un document Word de plusieurs pages
<-------------------------------------------------------------
.AddAttachmentFile ("C:\DocumentWord.doc")
0' give an address
' ESSAYER avec la valeur 0 et 1
<-------------------------------------------------------------
.ShowSendScreen (0)
' .SetTo ("Destinataire")
' METTRE un no de tél. valable
<-------------------------------------------------------------
.SetNumber (216015081)
.SetCompany ("Compagnie des Tests")
.AddRecipient
' send the message
.Send (0)
error = .GetLastError()
' error = .IsError()
' Status = .ShowCallProgress(1)
.LeaveRunning
' finish
.Done
End With
Set Winfax = Nothing
fin:
End Sub
----------------------------------------------------------------------------
--------------------------------
Je vous remercie d'avance pour votre bonne volonté.
Meilleures salutations.
