[RISOLTO] Inviare un fax da excel

'https://learn.microsoft.com/fr-fr/previous-versions/windows/desktop/fax/-mfax-sending-a-fax
Private Sub Form_Load()
    'mettere i riferimenti alla libreria Microsoft Fax Service Extended COM Type Library

    Dim objFaxDocument As FaxDocument
    Dim objFaxServer As FaxServer
    Dim objSender As Object
    Dim JobId As Variant

    'Error handling
    On Error GoTo Error_Handler

    Set objFaxServer = New FaxServer
    Set objFaxDocument = New FaxDocument

    'Connect to the fax server
    objFaxServer.Connect ""

    'Set the fax body
    objFaxDocument.Body = "c:\Docs\Body.txt"

    'Name the document
    objFaxDocument.DocumentName = "My First Fax"

    'Set the fax priority
    objFaxDocument.Priority = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptHIGH


    'Add the recipient with the fax number 12225550100
    objFaxDocument.Recipients.Add "12225550100", "Bud"

    'Choose to attach the fax to the fax receipt
    objFaxDocument.AttachFaxToReceipt = True

    'Set the cover page type and the path to the cover page
    objFaxDocument.CoverPageType = FAXCOMEXLib.FAX_COVERPAGE_TYPE_ENUM.fcptSERVER
    objFaxDocument.CoverPage = "generic"

    'Provide the cover page note
    objFaxDocument.Note = "Here is the info you requested"

    'Provide the address for the fax receipt
    objFaxDocument.ReceiptAddress = "someone@example.com"

    'Set the receipt type to email
    objFaxDocument.ReceiptType = FAXCOMEXLib.FAX_RECEIPT_TYPE_ENUM.frtMAIL

    'Specify that the fax is to be sent at a particular time
    objFaxDocument.ScheduleType = FAXCOMEXLib.FAX_SCHEDULE_TYPE_ENUM.fstNOW
    'CDate converts the time to the Date data type
    'objFaxDocument.ScheduleTime = CDate("5:01:47 PM")

    objFaxDocument.Subject = "Today's fax"

    'Set the sender properties.
    objFaxDocument.Sender.Title = "Mr."
    objFaxDocument.Sender.Name = "Bob"
    objFaxDocument.Sender.City = "Cleveland Heights"
    objFaxDocument.Sender.State = "Ohio"
    objFaxDocument.Sender.Company = "Microsoft"
    objFaxDocument.Sender.Country = "USA"
    objFaxDocument.Sender.Email = "someone@microsoft.com"
    objFaxDocument.Sender.FaxNumber = "12165555554"
    objFaxDocument.Sender.HomePhone = "12165555555"
    objFaxDocument.Sender.OfficeLocation = "Downtown"
    objFaxDocument.Sender.OfficePhone = "12165555553"
    objFaxDocument.Sender.StreetAddress = "123 Main Street"
    objFaxDocument.Sender.TSID = "Office fax machine"
    objFaxDocument.Sender.ZipCode = "44118"
    objFaxDocument.Sender.BillingCode = "23A54"
    objFaxDocument.Sender.Department = "Accts Payable"

    'Save sender information as default
    objFaxDocument.Sender.SaveDefaultSender

    'Submit the document to the connected fax server
    'and get back the job ID.

    'objFaxDocument.ConnectedSubmit objFaxServer
    JobId = objFaxDocument.Submit("test")

    MsgBox "The Job ID is :" & JobId


    objFaxServer.Disconnect

    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