Eileen Murphy
asked on
Fax Through Outlook 2003
In the past this code worked fine - now I get an error message:
The recipient's fax #'s appear in a temporary table named "testfax" ... the [FaxNumber] field already contains the "1" in the first position...
The Code:
Function FaxTEST()
Dim MyDB As DAO.Database
Dim rst As DAO.Recordset
Set MyDB = CurrentDb()
Set rst = MyDB.OpenRecordset("testfa x", dbOpenDynaset)
With rst
Do Until .EOF
DoCmd.SendObject acReport, "rptJobSiteMeeting", acFormatRTF, _
"[fax:" & ![FaxNumber] & "]", , , , , False
.MoveNext
Loop
End With
rst.Close
End Function
If I manually type: [fax: 1##########] and send the message from Outlook directly, it goes out fine... (I replaced the actual numbers with the "#" - for privacy reasons...)
Error: Your message did not reach some or all of the intended recipients.
Subject:
Sent: 10/15/2008 12:39 PM
The following recipient(s) cannot be reached:
'1##########' on 10/15/2008 12:39 PM
The message could not be delivered because the recipient's destination email system is unknown or invalid. Please check the address and try again, or contact your system administrator to verify connectivity to the email system of the recipient.
The recipient's fax #'s appear in a temporary table named "testfax" ... the [FaxNumber] field already contains the "1" in the first position...
The Code:
Function FaxTEST()
Dim MyDB As DAO.Database
Dim rst As DAO.Recordset
Set MyDB = CurrentDb()
Set rst = MyDB.OpenRecordset("testfa
With rst
Do Until .EOF
DoCmd.SendObject acReport, "rptJobSiteMeeting", acFormatRTF, _
"[fax:" & ![FaxNumber] & "]", , , , , False
.MoveNext
Loop
End With
rst.Close
End Function
If I manually type: [fax: 1##########] and send the message from Outlook directly, it goes out fine... (I replaced the actual numbers with the "#" - for privacy reasons...)
Error: Your message did not reach some or all of the intended recipients.
Subject:
Sent: 10/15/2008 12:39 PM
The following recipient(s) cannot be reached:
'1##########' on 10/15/2008 12:39 PM
The message could not be delivered because the recipient's destination email system is unknown or invalid. Please check the address and try again, or contact your system administrator to verify connectivity to the email system of the recipient.
ASKER
Should this question be moved into the Visual Basic Zone?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
http://support.microsoft.com/kb/231797
The only difference I see is that there should be a trailing space after fax;
DoCmd.SendObject acReport, "rptJobSiteMeeting", acFormatRTF, _
"[fax: " & ![FaxNumber] & "]", , , , , False
^
When did your code quit working?
OM Gang
The only difference I see is that there should be a trailing space after fax;
DoCmd.SendObject acReport, "rptJobSiteMeeting", acFormatRTF, _
"[fax: " & ![FaxNumber] & "]", , , , , False
^
When did your code quit working?
OM Gang
ASKER
Hey - thanks for responding... the code that had been working, was working for another client -- and still is working as far as I know. As I indicated above, I found alternative code that works just fine. I tried with and without the space by the way --- couldn't get it to work for me in this particular case.
I hope the alternative is useful to those who are having the same problem I did.
Regards, Eileen
I hope the alternative is useful to those who are having the same problem I did.
Regards, Eileen
ASKER
Eileen