Error when trying to use FaxReceiptOptions

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@address.com"
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