Another email question. Now this should be simple

[Joe8915]

When I send my report thru email, it lands into my email box first, then I have to mark "send". How can I by pass this? Any clues

 

[Crilen007]

??

Mark send?

You mean you have to manually send it and you want it to just send without you having to press anything?

 

[Joe8915]

Thanks for the quick responce

Without me doing anything, when it hits my email.

This is how it works now.

When I send it from the Database, (in the Database I selected a group of users) it goes directly to me FIRST in my email inbox. Then I have to select "send" to the other users. Trying to bypass sending it to me first, I just want it to go to all the users in that group instantly.

I hope this is a little more understanding.

 

[Crilen007]

So you email it to yourself and then forward it to other people?

 

[Joe8915]

Thats the problem, I do not want to send it to myself. I would like it go directly to the users. IF I send it to my self then I have to forward to users.

 

[Crilen007]

Post your code that you are using.

 

[Joe8915]

Thank you for responding back so quick.

I am not using any code, at least that I know of. I am just using a Macro "sendObject".

Joe

 

[Crilen007]

Use the code

docmd.sendobject

to send your emails then.

You can create a table of the emails you want to send it to, and select the report and click send, and code the button to cycle through the table sending the email to each person.

 

[Joe8915]

Ok
I will play around with it and give it try and let you know how it came out.

Thanks for the help on this

 

[Joe8915]

This might be the code that you are looking for:

Private Sub Command188_Click()
On Error GoTo Err_Command188_Click

Dim stDocName As String

stDocName = "Macro1"
DoCmd.RunMacro stDocName

Exit_Command188_Click:
Exit Sub

Err_Command188_Click:
MsgBox Err.Description
Resume Exit_Command188_Click

End Sub

 

[Crilen007]

??

Did you get this working ok?

 

[Joe8915]

Heck no, still trying and searching on what I am doing wrong. I did find various codes, but it still nothing as of yet. I did what you suggested, but not being a experienced in code having some difficulty.(well not some....alot). But I haven't given up. But if you can give me anymore ideas, please let me know. And I say thanks for all of the attention you are doing on this. I am about sharp as marble.

 

[Hayley Baxter]

Your code would look similar to this:

Private Sub CmdEmail_Click()
Dim rsEmail As DAO.Recordset
Dim strEmail As String
Set rsEmail = CurrentDb.OpenRecordset("tblemails")

Do While Not rsEmail.EOF
strEmail = rsEmail.Fields("Email").Value
DoCmd.SendObject acSendTable, "tblemails", acFormatXLS, strEmail, , , "subject", "Your Message", True
rsEmail.MoveNext
Loop
Set rsEmail = Nothing
MsgBox "Emails have been sent"
End Sub

The above will loop through the recordset sending an email to each person in turn. The setting of false means the email will send upon clicking the command button from your form without opening in outlook, setting this to true will firstly open in outlook so it is better to set it to false but you may want to set it to true for testing purposes. This code shouldn't have any glitches in it though as it has been copied directly from a working database that I use this on - the only problem you may have is if you forget to change the names of your table / query and email address field names.

HTH
Hay

 

[Joe8915]

Hayley

It still goes to me first, then waits for me to forward it off to other mail address. I think its this dumb Lotus Notes email we have. I will be searching more on Lotus Notes email on how it works. What makes me so mad I am so close but so far. Typical me. I think what I need is a Lotus Notes guru, uh do you no of anybody that can help.

Once again thanks for the help. O yes, thanks for code.

 

[Hayley Baxter]

Ahh I see didn't realise you were using lotus notes. Not something I know a lot about to be honest but you may find the link in this thread useful which gives details of emailing using lotus notes.

Link

Hay

 

[Joe8915]

Hayley

I just finished reading most of the topics in the Lotus Notes (link) that you suggested. It sounds like its to far in advanced for me. I sure can't make any reason out of it. If anyone would like to take a stab at it, let me know on how it works.

Thanks for all the help

 

[hollering]

Try the code you have, only change the "True" value to "False".

If I recall correctly, passing True in SendObject is what makes it open in your email.

So that line of code would look like this

DoCmd.SendObject acSendTable, "tblemails", acFormatXLS, strEmail, , , "subject", "Your Message", False

Hope that helps.