Access to send automated email in outlook

[darkdemon]

Okay, I am not proficient with MS Access, but I found this code, but I do not know how to get it to use all the email addresses from the table if there are more than 1. Could anyone guide me on this?

Private Sub cmdSend_Click()

Dim strReportName As String
Dim rsMail As New ADODB.Recordset

Dim strMsgText As String
Dim strSubject As String
Dim strTo As String
Dim strCC As String
Dim strMsgFromDB As String



strSubject = "My Subject Line is here..."
rsMail.Open "qryMessagesToSend", CurrentProject.Connection, adOpenKeyset, adLockPessimistic

rsMail.MoveFirst

While Not rsMail.EOF

strTo = rsMail("Clock")
strMsgFromDB = rsMail("Message")

strMsg = "" ' Reset for every time


strMsg = "Hello " & rsMail("EmplName")

strMsg = strMsg & vbNewLine & vbNewLine & strMsgFromDB


DoCmd.SendObject acSendNoObject, , , strTo, , , strSubject, strMsg, True

rsMail.MoveNext
Wend

rsMail.Close
Set rsMail = Nothing

MsgBox "Emails Sent"

End Sub

[June7]

If you want to send 1 email with multiple addressees, review example in https://www.access-programmers.co.uk...ordset.236074/ which was already provided to you in other thread Pulling email addresses from 3 tables | Access World Forums (access-programmers.co.uk)

Here's another https://www.access-programmers.co.uk...pients.185611/

Use a loop structure to concatenate addressees from recordset. Then outside loop, send email.

[darkdemon]

Thank you the link you provided actually helped for once.

[Micron]

Thank you the link you provided actually helped for once.

Now there's a thanks for you. And here I thought you were on my ignore list because of cross posting

[darkdemon]

Now there's a thanks for you. And here I thought you were on my ignore list because of cross posting

This person June 7 is starting to stalk me.

[June7]

If this is your first time on this site, how can you have 5 threads? I have replied in only one. How is helping considered 'stalking'? Aren't you here for help? I will make effort to ignore your threads (on all sites) from now on.

[Micron]

Now there's a thanks for you. And here I thought you were on my ignore list because of cross posting

Actually, I remember now:

Redacted from post 5 here
https://www.accessforums.net/showthread.php?t=82505

Obviously it doesn't work for me, then again, you so not seem to be reading my posts. I think I am done with this forum site, seems this site does not have people willing to help, just people willing to condemn.

I'll let that speak towards your behaviour here thus far.