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!
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[/I]
the email address is picked from the query (qryEmail).
Thanks for the help....
Remoj
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!
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[/I]
the email address is picked from the query (qryEmail).
Thanks for the help....
Remoj