DoCmd.SendObject Code error help please! (1 Viewer)

[GeorgieK]

Hi

I've written the code below to send an automatically populated email. Access is telling me there is a syntax error with this code. I cannot find out what it is!

 DoCmd.SendObject , "", "", "[email]xxx@xxx.com[/email]", "", "", & Me.Document_Name & & Me.Document_Number& & Me.Version_Number&, "Dear all " & vbLf & vbLf & "Please note that there is a new version of the above document." & vbLf & vbLf & "Please ensure that you familiarise yourself with this new version and delete all previous copies. Below is a summary of the changes made." & vbLf & vbLf & ""&Me.Reason_for_change&"" & vbLf & vbLf & "Thank you", True

This is linked to a document register where someone has created a new version of a document and I want them to be able to send an email to an email address that forwards emails to all staff to let them know of the new version.

If you are able to help me with the above I would be very grateful. I've been trying to work out what is wrong for weeks!

Many thanks

Georgie

 

[Minty]

Try this - I've moved the message text into a separate string variable to make it easier to see and debug.

    Dim sMessage As String
    Dim sSubject as String
    
    sMessage = "Dear all " & vbLf & vbLf & "Please note that there is a new version of the above document." & vbLf & vbLf & "Please ensure that you familiarise yourself with this new version and delete all previous copies. Below is a summary of the changes made." & vbLf & vbLf & Me.Reason_for_change & vbLf & vbLf & "Thank you"
    sSubject = Me.Document_Name & Me.Document_Number & Me.Version_Number
    DoCmd.SendObject acSendNoObject, , acFormatHTML, "xxx@xxx.com", , , sSubject, sMessage, True

 

[arnelgp]

or simply:

docmd.SendObject ,,, "xxx@xxx.com",,, Me.Document_Name & Me.Document_Number & Me.Version_Number, "Dear all " & vbLf & vbLf & "Please note that there is a new version of the above document." & vbLf & vbLf & "Please ensure that you familiarise yourself with this new version and delete all previous copies. Below is a summary of the changes made." & vbLf & vbLf & Me.Reason_for_change & vbLf & vbLf & "Thank you", True

 

[GeorgieK]

Thanks so much. It didn't work at first, but when I put the speech marks around the email address it worked. Very pleased with it. Thanks so much. Georgie x

 

[Gasman]

Thanks so much. It didn't work at first, but when I put the speech marks around the email address it worked. Very pleased with it. Thanks so much. Georgie x

You had quote marks around the email address in the first post?
"xxx@xxx.com"

 

[GeorgieK]

Yes you are right. I noticed that they were there in your reply after I typed that thank you this morning too. I must have deleted them when i typed in the proper email and then realised after that they were missing so added them back in. If that makes any sense! Anyway, thanks again.

 

[GeorgieK]

Sorry about not using the code tags in my original post too. New to this site.