كيف ترسل فاكس

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim objFaxDocument As New FAXCOMEXLib.FaxDocument

Dim objFaxServer As New FAXCOMEXLib.FaxServer

Dim objSender As Object ' objFaxDocument.FaxSender

Dim JobID As Object

Dim frtNONE As Integer = Convert.ToInt32("0x0000", 16)

Dim frtMAIL As Integer = Convert.ToInt32("0x0001", 16)

Dim frtMSGBOX As Integer = Convert.ToInt32("0x0004", 16)

On Error GoTo Error_Handler

objSender = objFaxDocument.Sender

'Connect to the fax server

objFaxServer.Connect("")

'Set the fax body

objFaxDocument.Body = "c:\Body.txt"

'Name the document

objFaxDocument.DocumentName = "My First Fax"

'Set the fax priority

objFaxDocument.Priority = FAX_PRIORITY_TYPE_ENUM.fptLOW

'Add the recipient with the fax number 12225550100

objFaxDocument.Recipients.Add("4630312", "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 = 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 = frtNONE

'Specify that the fax is to be sent at a particular time

objFaxDocument.ScheduleType = FAX_SCHEDULE_TYPE_ENUM.fstSPECIFIC_TIME

'CDate converts the time to the Date data type

objFaxDocument.ScheduleTime = CDate(Now)

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 = "4632068"

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.

JobID = objFaxDocument.ConnectedSubmit(objFaxServer)

MsgBox("The Job ID is :" & JobID(0))

Exit Sub

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

لا تنسى اضافة مرجع لـ FAXCOMEX.dll

بالتوفيق للجميع