how send emails based on recordset

[Guest_imported]

i loop in a recordset that contains many records and i want in each step to send email with current record to the current customer record, How this coded?

thanks

 

[Chance1234]

firstly reference outlook in references then your code will be somethign like this

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
dim mydb as database
dim myrec as recordset

set mydb = currentdb()
set myrec = mydb.openrecordset("Mytable&quot

Set objOutlook = CreateObject("Outlook.Application&quot
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

do until myrec = EOF

With objOutlookMsg
.to = myrec![Email Address]
.body = "Whatever the message is" & myrec![whatverfieldinmessageifyouwant]
.send

End With

loop

 

[Guest_imported]

i execute the code but the e-mail not reached

 

[Guest_imported]

i try the code

but nothing occured>

thw e-mail not reached

why