Mass Email

[tdin]

I have a table with a field that holds a contacts email address. I would like to send a message to all the contacts in that table. Is there a way I can use the address stored in the table to automatically send this message? Thanks in advance.

 

[hennep]

using this code you're able to send an email:

Public objOutl As New Outlook.Application ' <- needs a reference !
Function CreateEmail(strRecipient As String)
Dim dummy As Long
Dim itmOutl As MailItem
Dim tmpOutl As Outlook.Application

On Error Resume Next
Set tmpOutl = GetObject(, &quot;Outlook.Application&quot
If Err.Number <> 0 Then
Set objOutl = New Outlook.Application
Err.Clear
Else
Set objOutl = tmpOutl
End If
On Error GoTo 0
Set itmOutl = objOutl.CreateItem(olMailItem)
itmOutl.Display False
itmOutl.Recipients.Add strRecipient
'itmOutl.Send
End Function