Error when trying to use FaxReceiptOptions

N

neiden

Joined
Sep 12, 2005
Messages
8
Reaction score
0
Hi,

I have a small application that sends faxes via the FaxConsole. Now I would like to get the FaxReceipt sent to me via email but it fails with errorcode "FaxComEx.FaxDocument.1 Operation failed" on the ConnectedSubmit method. My code is

Code: 
public function sendFax()
on error goto errorhandler
 '
 ' some operations here, like setting reciepients and so on...
 '
    SetUpMail ' call config sub for mail
    
    objFaxDocument.ReceiptAddress = "[email protected]"
    objFaxDocument.ReceiptType = frtMAIL
    objFaxDocument.AttachFaxToReceipt = True
    
    JobId = objFaxDocument.ConnectedSubmit(objFaxServer)
    If Not IsNull(JobId) Then
      SendNetworkFax = True
    Else
      SendNetworkFax = False
    End If
    Set objFaxDocument = Nothing
    Exit Function

ErrorHandler:
    Err.Raise Err.Number, Err.Source, Err.Description
    SendNetworkFax = False
End Function

Private Sub SetUpMail()

   On Error GoTo SetUpMail_Error
    
    Set objRec = objFaxServer.ReceiptOptions
  '  objRec.Refresh
    
    If objRec.SMTPServer = "" Then
      objRec.AllowedReceipts = frtMAIL
      objRec.SMTPServer = "my_mailserver.com"
      objRec.SMTPPort = "25"
      objRec.SMTPSender = "FaxServer"
      objRec.AuthenticationType = fsatANONYMOUS
  '    objRec.Save ' not supported in Win XP
    
    End If
  On Error GoTo 0
   Exit Sub

SetUpMail_Error:
  Err.Raise Err.Number, Err.Source, Err.Description
End Sub

Any ideas on why it's failing?

Neiden
 
Back
Top