[redhotsonic]

Hello, I have another problem that I just can't figure out.

I have a query table that I would liek to be able to send as an e-mail. But here is the thing. I have a button on a form that just opens up the query table, but what I would like the button to do, is to make the e-mail pop-up (Outlook2007 at home, GroupWise at work) and put the query data in the message. Basically, when you click the button, I want this:

To:
CC:
BC:
Subject: "Good morning"
Message: "(My query table here)"

I found a code elsewhere on the internet but I got code errors. I then fixed the errors but then the button simply did nothing.

If anyone can help, I'd really appreciate it.

Many Thanks in advance
redhotsonic

[slurpee55]

The quickest way to figure it out without reinventing the wheel is for you to post the code you have and someone can diagnose it.

[redhotsonic]

This is the code I got from the net:

Private Sub CmdEmail_Click()
Dim rsEmail As DAO.Recordset
Dim strEmail As String
Dim strBody As String
Dim strSubject As String
Dim strContactName As String
Set rsEmail = CurrentDb.OpenRecordset("YourQuery")
 
Do While Not rsEmail.EOF
strEmail = rsEmail.Fields("Email").Value
strBody = rsEmail.Fields("Body").Value
strContactName = rsEmail.Fields("ContactName").Value
strSubject = "blah blah blah"
 
DoCmd.SendObject , , , strEmail, , , _strSubject, _"Yourtexthere " & strContactName & vbCrLf & vbCrLf & strBody, True
 
rsEmail.MoveNext
 
Loop
Set rsEmail = Nothing
End Sub

This was found here.

Many Thanks

[slurpee55]

And from your link, "Just make sure that the fields : Email, Body and Contactname are in YourQuery."
Did you?

[redhotsonic]

I didn't have them fields in my query so I delted them three lines, but I got lots of errors. So I added them to the form and query but still got errors.

This line is always a problem:

DoCmd.SendObject , , , strEmail, , , _strSubject, _"Yourtexthere " & strContactName & vbCrLf & vbCrLf & strBody, True

Always one of these:
Invalid
Expected =
Expected expression

[slurpee55]

Originally Posted by redhotsonic

I didn't have them fields in my query so I delted them three lines, but I got lots of errors. So I added them to the form and query but still got errors.

This line is always a problem:

DoCmd.SendObject , , , strEmail, , , _strSubject, _"Yourtexthere " & strContactName & vbCrLf & vbCrLf & strBody, True

Always one of these:
Invalid
Expected =
Expected expression

Well, I am not sure, but I think that at least "strContactName" is the recipient's name. And I am pretty sure that this
strEmail = rsEmail.Fields("Email").Value
tells it to look in a field called Email for the value - that is, the email to send to.

[OBP]

Let me know if this simple emailing database works for you.
We can take it from there.

[slurpee55]

Thanks, my friend, for coming.

[slurpee55]

Here's another one I found here:
http://www.jephens.com/2007/05/13/ho...-using-outlook

[MRdNk]

Is it not working because Outlook isn't being called?

[OBP]

The Docmd.SendObject Statement normally opens Outlook without the need to call it.

[redhotsonic]

email1.zip worked but email2.zip didn't. Possibly because I'm at work at the moment and it uses GroupWise? I'll see if email2.zip works when at home later because I have outlook then.

Anyway, email1 is simaler to what I want. Just the query data is what I want in the message (body1, body2, etc) and maybe thethat's it. I would like to put the email address in myself when the e-mail comes up.

[OBP]

Can you supply an example of what your Query data looks like, i.e. how many records, how many fields and what type of fields?

[redhotsonic]

Originally Posted by OBP

Can you supply an example of what your Query data looks like, i.e. how many records, how many fields and what type of fields?

Sure.



This is the form I have. I've made a "E-mail?" button that when you click on it, the record automatically saves and will be included in the query. Then, when you click the "Set-Up E-mail" button, it brings up this:



But, what I actually want it to do is do this (from the query above without loading it):



The text in this e-mail that are red and bold is text I added in. Is it possible to actually put that within the message? I just can't make this happen.

Many Thanks in advance
redhotsonic

P.S. None of this data contains confidential information; I got rid of that =P

[OBP]

Of course it is possible, so you want as many rows in the Body of the email as there are rows in the Query?
You also want some text that you input, like in my email either side of the Query rows?