Acquittement d'envoi de fax

Question

Voici le petit prog standard que j'utilise, il fonctionne très bien pour l'envoi de fax avec un modem.

Mais je souhaite gérer les accusés de réception : 
J'ai bien trouvé dans la base de registre les éléments du dernière envoi dans HKEY_CURRENT_USER\Software\Microsoft\Fax\UserInfo
mais rien su son état : envoyé/occupé/échoué...

Est ce la valeur de ReceiptNoRecipt ??

Merci pour votre aide.

Laurent

Code source : 

Private Sub SendFax_Click()
    Dim X As Printer, hit As Boolean
    hit = False
    For Each X In Printers
      If X.DeviceName = "Fax" Then
          ' Set Fax printer as system default.
          Set Printer = X
          hit = True
          Exit For
      End If
    Next
    If hit = False Then
       MsgBox "There is no printer named Fax"
       Exit Sub
    End If
    SendKeys "{ENTER}"
    SendKeys "C'est Moi"
    SendKeys "{TAB}{TAB}"
    SendKeys "001368746378" 'enter a real fax number for test purposes
    SendKeys "{ENTER}{ENTER}{ENTER}{ENTER}"
    
    'Printer.PrintQuality = 300
    Printer.Print "C:\TEMP\TEST.TXT"
    Printer.EndDoc
End Sub

ltf1234 · Answer

Salut : 
je travaille actuellement sur ce sujet , et je vais vous envoyer tout le projet(inchallah) dans quelque jours...ltf

Acquittement d'envoi de fax

1 réponse

Discussions similaires