form1.frm

一个简单的vb通过modeom发送fax

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim objFaxServer As New FAXCOMEXLib.FaxServer
Dim objFaxDocument As New FAXCOMEXLib.FaxDocument

objFaxServer.Connect ""
objFaxDocument.Body = "c:\test.txt"
objFaxDocument.Recipients.Add "1234567", "abc"
objFaxDocument.ConnectedSubmit objFaxServer


'FAXCOMEXLib.FaxServer server = new FaxServerClass();
'             server.Connect("");
'             FAXCOMEXLib.FaxDocument doc = new FaxDocumentClass();
'             doc.Body = txtFilename.Text;
'             doc.Recipients.Add(txtFaxNumber.Text,txtRcptName.Text);
'             doc.ConnectedSubmit(server);

End Sub



Private Sub datareceive()

        Dim objFaxServer As New FAXCOMEXLib.FaxServer
        Dim collFaxIncomingJobs As FAXCOMEXLib.FaxIncomingJobs
        Dim objFaxIncomingJob As FAXCOMEXLib.FaxIncomingJob
        Dim A As Object
        Dim Prefetch As Integer
        Dim FileName As String

        'Error handling
        On Error GoTo Error_Handler

        'Connect to the fax server
        objFaxServer.Connect ("")

        'Get the collection of jobs in the incoming queue
        collFaxIncomingJobs = objFaxServer.Folders.IncomingQueue.GetJobs

        'Display the number of jobs in the collection
        MsgBox ("There are " & collFaxIncomingJobs.Count & " jobs in the incoming queue.")

        Archive '訊息的顯示抓取

        Dim n As Long

        'Get the job
        n = InputBox("Input the item number for which you want information.")
        objFaxIncomingJob = collFaxIncomingJobs.Item(n)


        objFaxIncomingJob.Refresh

        ''Display the job properties
        MsgBox ("Available operations: " & objFaxIncomingJob.AvailableOperations & _
        vbCrLf & "Caller ID: " & objFaxIncomingJob.CallerId & _
        vbCrLf & "CSID: " & objFaxIncomingJob.CSID & _
        vbCrLf & "Current page: " & objFaxIncomingJob.CurrentPage & _
        vbCrLf & "Device ID: " & objFaxIncomingJob.DeviceId & _
        vbCrLf & "Extended status: " & objFaxIncomingJob.ExtendedStatus & _
        vbCrLf & "Extended status code : " & objFaxIncomingJob.ExtendedStatusCode & _
        vbCrLf & "Job ID: " & objFaxIncomingJob.Id & _
        vbCrLf & "Job type: " & objFaxIncomingJob.JobType & _
        vbCrLf & "Retries: " & objFaxIncomingJob.Retries & _
        vbCrLf & "Routing information: " & objFaxIncomingJob.RoutingInformation & _
        vbCrLf & "Size: " & objFaxIncomingJob.Size & _
        vbCrLf & "Status: " & objFaxIncomingJob.Status & _
        vbCrLf & "Transmission start: " & objFaxIncomingJob.TransmissionStart & _
        vbCrLf & "Transmission end: " & objFaxIncomingJob.TransmissionEnd & _
        vbCrLf & "TSID: " & objFaxIncomingJob.TSID)


        'Allow user to cancel the selected fax
        Dim CancelString As String
        CancelString = InputBox("Cancel this fax (Y/N)?")
        If CancelString = "Y" Then objFaxIncomingJob.Cancel

        'Allow user to open the selected fax
        Dim OpenString As String
        OpenString = InputBox("Open this fax (Y/N)?")
        If OpenString = "Y" Then
        FileName = InputBox("Provide path and name of file for TIFF copy, e.g. c:\MyFax.tiff")
        objFaxIncomingJob.CopyTiff (FileName)

        'Open the tiff file
        'Dim A As Object
        A = CreateObject("wforbidden.shell")
        A.run (FileName)
        End If
        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.Deforbiddenion)



    End Sub