Error when trying to use FaxReceiptOptions

[neiden]

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

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