Link to home
Start Free TrialLog in
Avatar of Eileen Murphy
Eileen MurphyFlag for United States of America

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("testfax", 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.
 
Avatar of Eileen Murphy
Eileen Murphy
Flag of United States of America image

ASKER

Is there a possible Outlook setting (Fax Mail Transport versus Exchange Server) that I may be missing?
 
Eileen
Should this question be moved into the Visual Basic Zone?
ASKER CERTIFIED SOLUTION
Avatar of Eileen Murphy
Eileen Murphy
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of omgang
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
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