La boîte de dialogue Imprimer s'affiche lorsque vous télécopie par programmation un document HTML

Traductions disponibles Traductions disponibles
Numéro d'article: 841714 - Voir les produits auxquels s'applique cet article
Agrandir tout | Réduire tout

Sommaire

Symptômes

Lorsque vous essayez d'envoyer un document HTML par programmation par télécopie à l'aide la télécopie API à, une boîte de dialogue Imprimer s'affiche. La boîte de dialogue vous invite pour la saisie utilisateur.

Cause

Ce problème se produit car Microsoft Internet Explorer est conçu pour empêcher les pages Web et les scripts d'envoyer des télécopies par programmation sans entrée utilisateur.

Statut

Ce comportement est voulu par la conception même du produit.

Plus d'informations

Lorsque vous envoyer par télécopie un document, le service de télécopie exécute une commande shell pour rechercher le type de document, puis le service de télécopie il appelle l'action Imprimer pour ce type de document. Le service de télécopie s'exécute l'action Imprimer . Si l'action Imprimer pour réussit, le service de télécopie génère un fichier image marquées fichier de sortie Format (.tiff) pour ce document.

Procédure pour reproduire le problème

  1. Démarrez Microsoft Visual Basic 6.0. La boîte de dialogue Nouveau projet s'affiche.
  2. Sous l'onglet Créer , cliquez sur EXE standard , puis cliquez sur Ouvrir .
  3. Dans le menu projet , cliquez sur Références .
  4. Dans la boîte de dialogue Références - Projet1 , cliquez sur Microsoft Fax Service étendu COM type de bibliothèque , puis cliquez sur OK .

    note Vous devez installer Services de télécopie pour ajouter le Microsoft Fax bibliothèque de types COM étendu service référence.
  5. Dans la fenêtre Project - Projet1 , cliquez avec le bouton droit sur le formulaire Form1.frm , puis cliquez sur Afficher le code .
  6. Dans la Projet1 - Form1 (code) fenêtre, ajoutez le code suivant.

    note L'espace réservé SampleHTMLFile dans ce code est pour un fichier HTML exemple. Les informations de contact l'expéditeur et le destinataire sont fictifs.
    Private Sub Form_Load()
    Dim FaxDocumentObj As New FAXCOMEXLib.FaxDocument
    Dim FaxServerObj As New FAXCOMEXLib.FaxServer
    Dim JobIDObj As Variant
    
    'Error handling.
    On Error GoTo Error_Handler
    
    'Connect to the fax server.
    FaxServerObj.Connect ""
    
    'Set the fax body.
    FaxDocumentObj.Body = "c:\<SampleHTMLFile>"
    
    'Name the document.
    FaxDocumentObj.DocumentName = "First Fax"
    
    'Set the fax priority.
    FaxDocumentObj.Priority = fptHIGH
    
    'Add the recipient with the fax number 2065552626.
    FaxDocumentObj.Recipients.Add "2065552626", "<Recipient>"
    
    'Choose to attach the fax to the fax receipt.
    FaxDocumentObj.AttachFaxToReceipt = True
    
    'Set the cover page type and the path of the cover page.
    FaxDocumentObj.CoverPageType = fcptSERVER
    FaxDocumentObj.CoverPage = "generic"
    
    'Provide the cover page note.
    FaxDocumentObj.Note = "This contains the information you requested."
    
    'Provide the address for the fax receipt.
    FaxDocumentObj.ReceiptAddress = "someone@example.com"
    
    'Set the receipt type to e-mail.
    FaxDocumentObj.ReceiptType = frtMAIL
    
    'Specify that the fax is to be sent at a particular time
    FaxDocumentObj.ScheduleType = fstSPECIFIC_TIME
    'CDate converts the time to the Date data type
    FaxDocumentObj.ScheduleTime = CDate("6:25:12 PM")
    
    FaxDocumentObj.Subject = "Today's fax"
    
    'Set the sender properties.
    FaxDocumentObj.Sender.Title = "Mr."
    FaxDocumentObj.Sender.Name = "Sender_Name"
    FaxDocumentObj.Sender.City = "Sender_City"
    FaxDocumentObj.Sender.State = "Sender_State"
    FaxDocumentObj.Sender.Company = "Sender_Company"
    FaxDocumentObj.Sender.Country = "Sender_Country"
    FaxDocumentObj.Sender.Email = "someone@somewebsite.com"
    FaxDocumentObj.Sender.FaxNumber = "4255550167"
    FaxDocumentObj.Sender.HomePhone = "4255550987"
    FaxDocumentObj.Sender.OfficeLocation = "My_Location"
    FaxDocumentObj.Sender.OfficePhone = "4255550334"
    FaxDocumentObj.Sender.StreetAddress = "123 Main Street"
    FaxDocumentObj.Sender.TSID = "Office Fax"
    FaxDocumentObj.Sender.ZipCode = "44118"
    FaxDocumentObj.Sender.BillingCode = "23A54"
    FaxDocumentObj.Sender.Department = "Accts Payable"
    
    'Save sender information as default.
    FaxDocumentObj.Sender.SaveDefaultSender
    
    'Submit the document to the connected fax server, and retrieve the job ID.
    
    JobIDObj = FaxDocumentObj.ConnectedSubmit(FaxServerObj)
    
    MsgBox "The Job ID is :" & JobIDObj(0)
    Exit Sub
    
    Error_Handler:
        'Implement error handling at the end of your subroutine. This implementation is for demonstration purposes
        MsgBox "Error number: " & Hex(Err.Number) & ", " & Err.Description
    
    
    End Sub
    
  7. Installer une imprimante télécopieur pour envoyer une télécopie. Si une imprimante-télécopieur n'est pas installée, vous recevez 800710D8 numéro d'erreur. Voici la description de l'erreur :
    Échoué de l'opération.
  8. Dans le menu exécuter , cliquez sur Démarrer avec compilation complète pour exécuter le programme.

    L' impression boîte de dialogue qui est mentionné dans la section « Symptômes » s'affiche.

Références

Pour plus d'informations à l'aide des services de télécopie, reportez-vous au site de Web MSDN (Microsoft Developer Network) suivant :
Configuration de l'environnement de développement
http://msdn2.microsoft.com/en-us/library/aa509148.aspx

Propriétés

Numéro d'article: 841714 - Dernière mise à jour: jeudi 18 janvier 2007 - Version: 1.3
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Windows Server 2003, Standard Edition (32-bit x86)
  • Microsoft Windows XP Professional SP1
  • Microsoft Windows 2000 Professionnel
Mots-clés : 
kbmt kbfax kbapi kbcode kbprb KB841714 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 841714
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com