FAX送信 続き

FAX送信して、送信状態を取得するコード例

    Dim faxServer As New FAXCOMLib.faxServer
    Dim faxDoc As New FAXCOMLib.faxDoc
    Dim faxNumber As String

    faxServer.Connect "サーバー名"
   
    Set faxDoc = faxServer.CreateDocument("C:\Temp\Fax.doc")

    faxDoc.RecipientName = "受信者名"
    faxDoc.SenderTitle = "件名です"
    faxDoc.DisplayName = "Fax送信テスト"
    faxNumber = "1234567890"    '-は取り除いておく
    faxDoc.faxNumber = faxNumber

    'ここまでは同じ

    Dim varJobId As Variant
    Dim strFaxJob As FaxJobs
    Dim strFaxStatus As FaxJob
    Dim lngCount As Long
   
    '送信後ジョブID取得
    varJobId = faxDoc.Send

    '送信トレイからジョブIDが一致するジョブを探して状態を取得
    Set strFaxJob = faxServer.GetJobs()
    For lngCount = strFaxJob.Count To 1 Step -1
        Set strFaxStatus = strFaxJob.Item(lngCount)
        If strFaxStatus.JobId = varJobId Then
            MsgBox "Jobid: " & strFaxStatus.JobId & " Status:" & strFaxStatus.QueueStatus
            Exit For
        End If
    Next lngCount
   
    faxServer.Disconnect