I don't know anything about Crystal Report Bursting, but you could put the letter into Access and then make a table of all the e-mail addresses you need them sent to.
Then write code in an Access module that loops through the table and e-mails it to each person. If you need more detailed information, I can give that to you.
Public Function SendEmail()
Dim rs as recordset
Dim emailVar as string
Set rs = currentdb.openrecordset("tblEmailAddresses")
With rs
.MoveFirst
Do Until .EOF
emailVar = !Email
DoCmd.SendObject acSendReport, "[OBJECTNAME]", acFormatRTF, emailVar, "CC", "BCC", "Subject", "Message Text", False
.MoveNext
Loop
End With
End Sub
This is some simple code. This would work if you had the same letter going to all 100 people. It would just loop through and send 100 e-mails with the same letter.
Now if you have a different letter for each person or maybe a different letter for a group of people, you would have to make a table with the object or letter names. Then when you find the next e-mail address, look up which object you want to send and place that by using a variable into the "[OBJECT NAME]" place. The "cc", "bcc", "Subject", "MessageText" can be removed. You will probably want to insert a Subject and a Message Text, but you will probably not need the "cc" or "bcc", I was just showing you the full placement of the Docmd.SendObject function.
Also I have this set to output acFormatRTF. That will display your report in a WORD document. There are options of HTML and others. Again, more detail in the SendObject function in Access.
If you need help you can go into Access help and look up SendObject. It gives you more detailed information.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.