How do send email using addresses in access table 1

[noleson]

I need to send a single document, a Notice of Race, to 290 sailors whose names are in an Access table. Would really appreciate some direction on how to do this.

I am not a spammer.

Thanks
Norm Oleson

 

[Draknor39]

I'm assuming you know how to query your table for the names. Once you do that all you need to do is loop through each name in the table and execute your Sendmail procedure. Here's the Sendmail procedure I use. It doesn't rely on the clients E-Mail client and just send via SMTP. The only requirement obviously is that you have a SMTP server available to you.

Public Function SendMail(sFrom As String, sTo As String, sSubject As String, sMessage As String)

Set objEmail = CreateObject("CDO.Message")

objEmail.From = sFrom
objEmail.To = sTo '//// format "abc@emailadd.com; edf@emailadd.com"
objEmail.BCC = ""
objEmail.Subject = sSubject
objEmail.TextBody = sMessage
'objEmail.AddAttachment strAttach
objEmail.Configuration.Fields.Item("

http://schemas.microsoft.com/cdo/configuration/sendusing")

= 2
objEmail.Configuration.Fields.Item("

http://schemas.microsoft.com/cdo/configuration/smtpserver")

= "YourSMTPServerNameOrAddress"
objEmail.Configuration.Fields.Item("

http://schemas.microsoft.com/cdo/configuration/smtpserverport")

= 25
objEmail.Configuration.Fields.Update
objEmail.Send
Set objEmail = Nothing

End Function

Hope this helps!