Mail Merge - email

[JimmyG]

I want to send an email via Outlook to customers in my Access database. I have created a query to select the recipients. The problem is I don’t want to send a text document I want to send a newsletter. The newsletter can be saved as a pdf, jpeg, tiff etc. I’ve tried using MS Word to solve this problem using the mail merge function and sending the mail merge to electronic mail, the problem is on tests I have done only the text I enter is sent, not the newsletter.

I attempted to do this by opening a Word document inserting a jpeg of the newsletter and mail merging the document to myself.

I must stress I’m not attempting to send bulk junk mail. The newsletter is for customer to notify them about service changes.

If possible I would prefer to display the newsletter in the main body of the email, not as an attachment. Can anyone suggest how to solve this problem?

 

[DNS809904]

Hello,
Well what you're trying to do sounds like a pretty tall order; going from a mail merge into a document, merged into an email.
Question, do you have to merge personally identifiable info into the newsletter itself, ie name or organization info of the recipient? If not, you could create your standard newsletter in HTML form or whatever in the body of your email. Then export your recipient list into a CSV file and paste that directly into the To: field of your email, effectively sending out a mass mailing. Or do you want to send each email one-by-one to the recipients, mail-merge style? Once again that would be going towards to tall order mentioned above, although I'm sure it could still be accomplished...
Hope this helps and good luck!
Dana

 

[yhgtbfk]

I got some code from this forum. I cant find the post though

Sub SendOverdueEmail()
Dim db As Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("qryOverdue")
rst.MoveFirst
Do Until rst.EOF
DoCmd.SendObject acSendNoObject, , , rst.Fields("Email"), , , "Overdue Book", rst.Fields("BookTitle") & " was due on " & rst.Fields("DateDue") & ".", False
rst.MoveNext
Loop

End Sub

Hope any of that helps. What you want is:

DoCmd.SendObject acSendNoObject, , , rst.Fields("Email"), , , "Overdue Book", rst.Fields("BookTitle") & " was due on " & rst.Fields("DateDue") & ".", False

Instead of copying and pasting it, try typing it so you can see what each part is as you type it.

Then you can use a loop to do all the records in a query or something.

What I have typed might not be helpful, but I hope it bumps you in the right direction

 

[JimmyG]

It sounds like the simpler solution recommended by Dana should work. Each recipient could receive the same newsletter, it doesn't need to be personalised.

How do I export my recipient list into a CSV file thou? The list is in the form of a query at the moment.

Thanks for your suggestions.

 

[JimmyG]

It's ok I've sorted it...

Thanks for your help

 

[DNS809904]

Exporting an email list

Hello and sorry for the late reply,
If you've got it figured out then great! But I thought I'd show you what I use to export an email list:
DoCmd.TransferText acExportDelim, , "QryEmailList", "C:\Database\emailList.csv", False

with "QryEmailList" as my query to generate the email address list, and "C:\Database\..." as the export directory and filename.

Good luck!
Dana