[remoj16]

Hi
I am sending a email through Access VBA. i want to add the voting button to the email and click yes for the security pop up when mail getting generated.

I am Using the below coding:

Function SendEmails()

Dim MySet As ADODB.Recordset

Set MySet = New ADODB.Recordset

MySet.Open "qryEmail", CurrentProject.Connection, adOpenStatic

Do Until MySet.EOF

qemail.SetFocus
[Forms]![Form3].[qemail].Text = MySet![Email]

DoCmd.SendObject acQuery, "Messages_Sent", "MicrosoftExcelBiff8(*.xls)", [Forms]![Form3].[qemail], "", "", "INCOMMING MESSAGES - CONFIRMATION", "Hi" & vbNewLine & vbNewLine & "We have yesterday forwarded the following message, which has/have been acknowledged" & vbNewLine & vbNewLine & "As an additional control the relevant reporting line please confirm that you have received and acted/responded as per the instructions/requests" , False, ""

MySet.MoveNext

Loop

End Function

the email address is picked from the query (qryEmail).

Thanks for the help....

Remoj