P
perplexed
Hi, I'm trying to add an email button to a form, that will email the object
in HTML format current record to the email address reflected on that record
in the email field. Here's is my code, I can get it to attached the object
but how do I tell it to format it as HTML and to copy the email address in
the TO section of the email?
Here's my code:
Private Sub Command103_Click()
On Error GoTo Err_Command103_Click
Dim stDocName As String
stDocName = "Report department types"
DoCmd.SendObject acReport, stDocName, EmailAddress,
Exit_Command103_Click:
Exit Sub
Err_Command103_Click:
MsgBox Err.Description
Resume Exit_Command103_Click
End Sub
in HTML format current record to the email address reflected on that record
in the email field. Here's is my code, I can get it to attached the object
but how do I tell it to format it as HTML and to copy the email address in
the TO section of the email?
Here's my code:
Private Sub Command103_Click()
On Error GoTo Err_Command103_Click
Dim stDocName As String
stDocName = "Report department types"
DoCmd.SendObject acReport, stDocName, EmailAddress,
Exit_Command103_Click:
Exit Sub
Err_Command103_Click:
MsgBox Err.Description
Resume Exit_Command103_Click
End Sub