Automate Email out of Access

[mattner]

I am trying to build a macro in order to send a custom email to multiple people out of a single table. The email will have a list of the individuals buying habits so some individuals might have 4 lines and others will have 10 lines. The Sendobject function does not seem to have this ability. Any ideas?

 

[Remou]

I am not sure how to do this with a macro, but it would be very easy with code. Is code an option?

 

[mattner]

Code might be an option. How would you go about doing it?

 

[Remou]

The code would look something like:

Private Sub cmdEmailAll_Click()
Dim rs As DAO.Recordset
'Change the italics to the right names

'tblPersons = name of table
Set rs = CurrentDb.OpenRecordset("[i]tblPersons[/i]")

Do While Not rs.EOF
   strMessage = ""
   'Message to send. 
   strMessage = "Dear " & rs![i]Surname[/i] & vbCrLf _
      & rs![i]BuyingHabits[/i] & vbCrLf

   'SendObject with preview
   DoCmd.SendObject acSendNoObject, , , rs![i]EmailAddress[/i], , , "Re: Habits", strMessage, True
   rs.MoveNext
Loop
End Sub

You would probably have this run in the click event of a button. If Buying Habits are a separate table, a little more code would be needed. What you have above is a very rough outline.