I am try to send the same mail to multiple people from access. There are 2
parts:
1. Select the mail template
Private Sub cmdBrowse_Click()
'Filter the Open dialog to Outlook template files
dlgCommon.Filter = "*.oft"
'Display the Open dialog
dlgCommon.ShowOpen
'Populate txtTemplate with the selected file
Me.txtTemplate = dlgCommon.FileName
End Sub
I seem to have a problem at the dlgcommon.filter stage and can't figure you
why?
2. Send the mail
Option Compare Database
Option Explicit
Private mobjOutlook As Outlook.Application
Private mobjCurrentMessage As Object
Sub Email_Click()
' Customize a message for each contact and then send or save the message
Dim intMessageCount As Integer
'Declare and instantiate a recordset object
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
'Open a recordset based on the result of qryBulkMail
rst.Open "qryBulkMail", CurrentProject.Connection
intMessageCount = 0
Set mobjOutlook = CreateObject("Outlook.Application")
' Loop through the contacts in the open folder
Do Until rst.EOF
' Check that the contact has an email address.
If rst("EmailAddress") <> "" Then
'Create a mail item based on the selected template
Set mobjCurrentMessage =
mobjOutlook.CreateItemFromTemplate(Me.txtTemplate)
'Add the email address as the recipient for the message
mobjCurrentMessage.Recipients.Add rst("EmailAddress")
' Send the message
mobjCurrentMessage.Send
intMessageCount = intMessageCount + 1
End If
rst.MoveNext
Loop
' Write the number of messages created to the worksheet
MsgBox intMessageCount & " Messages Sent"
End Sub
HEre I have an error @ rst.Open "qryBulkMail",
|
Similar Threads
