Ying-Shen Yu,

O.K. It fails in VB 6 as well with "Error 8007065E, Operation failed"

The code is below:

I have uninstalled fax services and reinstalled them again. This time though
it fails with a text file not a tiff. although my C# code works shown later

VB code:

Private Sub Form_Load()
Dim objFaxDocument As New FAXCOMEXLib.FaxDocument
Dim objFaxServer As New FAXCOMEXLib.FaxServer
Dim objSender As FaxSender
Dim JobID As Variant

'Error handling
On Error GoTo Error_Handler

'Connect to the fax server
objFaxServer.Connect ""

'Set the fax body
objFaxDocument.Body = "d:\temp\roy.txt"        ' this is a normal text file.

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

'Set the fax priority
objFaxDocument.Priority = fptHIGH

'Add the recipient with the fax number 12225550100
objFaxDocument.Recipients.Add "01293 786747", "Mike Grace"

'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 = 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 = "mikeg@computastat-group.co.uk"

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

'Specify that the fax is to be sent at a particular time
'objFaxDocument.ScheduleType = fstSPECIFIC_TIME
'CDate converts the time to the Date data type
'objFaxDocument.ScheduleTime = CDate("4:35: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.

JobID = objFaxDocument.ConnectedSubmit(objFaxServer)

MsgBox "The Job ID is :" & JobID(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

C#

private void MicrosoftFax()
{
FAXCOMEXLib.FaxServer fxsvr = new FAXCOMEXLib.FaxServer();
FAXCOMEXLib.FaxDocument fxdoc = new FAXCOMEXLib.FaxDocument();
try
{
fxsvr.Connect(""); // null for local fax server otherwise a computername
}
catch (Exception ex )
{
MessageBox.Show( ex.ToString());
}
fxdoc.Body = "d:\\temp\\roy.txt";

fxdoc.Recipients.Add(fax_number, "Mike Grace");
try
{
fxdoc.ConnectedSubmit(fxsvr);
}
catch ( Exception ex )
{
MessageBox.Show( ex.ToString());
}
fxsvr.Disconnect();
}