Sending customized e mails on update

[Alpana]

I have designed an Access database with a certain table called EmailAlerts. This table has two fields: EmailMessage and Recipients. The EmailMessage field stores the body of the mail to be sent to the corresponding email addresses in Recipients. For eg:
EmailMessage | Recepients
Hello | abc@xyz.com


Goodbye | pqr@xyz.com

Now what I want to do is, whenever a record is added to this table, I want to send the email to the corresponding recipient. How can I do this?

[June7]

You are adding records through a bound form?

Search this forum on topic 'email', there are a lot of threads.

[Alpana]

No, I am adding records using an append query... However, I could resort to bound forms if required...

[June7]

I have never used unbound form for data entry. However, doesn't matter. In the event that saves record, include code to send email or to call a public procedure with the email code.

Here is one thread https://www.accessforums.net/import-...ook-18221.html

[Alpana]

Thanks. Your suggestion helps. Still, I am having a little problem using the code suggested by you. I actually referred to the suggested thread, where I found this link:
http://www.blueclaw-db.com/access_em...nd_outlook.htm

I implemented a similar code, as follows:

Sub Command20_Click()
Dim mess_body As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.BodyFormat = olFormatRichText
.To = Query10.EmailAdd
.Subject = Query10.CODE
.HTMLBody = Query10.Description
.Send
End With
Exit Sub
email_error:
MsgBox "An error was encountered" & vbCrLf & "The error message is: " & Err.Description
Resume Error_Out
Error_Out:
End Sub

However, when I am trying to run this code, I am getting a 'Run time error 424:Object required' for the lines:
.To = Query10.EmailAdd
.Subject = Query10.CODE
.HTMLBody = Query10.Description

Basically, the code cannot access Query10, which is a simple select query.
How do I solve this?

[June7]

You have to open a recordset of the query. Your code does not do that.

The BlueClaw sample code opens a clone recordset, that is a recordset that is a replicate of the open form's recordset. If you want to refer to a query object, instead of the RecordsetClone method, open a recordset of the query.

Set rst = CurrentDb.OpenRecordset("Query10", dbOpenDynaset)

Then you can cycle through the recordset to either build a single TO or BCC (the TO addressee would be yourself) string for multiple addressees or send individual email to each addressee.