Hi,
I currently send reports to different departments via e-mail from access through outlook. The report is sent as an attachment and the To, BCC, Subject and Main Body of each e-mail is pretty much identical.
Could someone give me the vb code I would need so that when I click on the report it:
1) Automatically selects Rich Text Format
2) Puts Mailing Group "Accounts" in the To field
3) Puts Mailing Group "Myself" in the BCC field
4) Puts 'Todays date' and "Morning Report" in the Subject field
5) Inserts a Signature called 'Default' into the main body of the e-mail.
The code I currently use is :
Private Sub Label602_Click()
On Error GoTo Err_Command481_Click
Dim stDocName As String
stDocName = "Accounts Morning Report"
DoCmd.SendObject acReport, stDocName
Exit_Command481_Click:
Exit Sub
Err_Command481_Click:
MsgBox Err.Description
Resume Exit_Command481_Click
End Sub
Any help would be fantastic.
If you require any further info let me know.
Thanks in advance
[/i]
I currently send reports to different departments via e-mail from access through outlook. The report is sent as an attachment and the To, BCC, Subject and Main Body of each e-mail is pretty much identical.
Could someone give me the vb code I would need so that when I click on the report it:
1) Automatically selects Rich Text Format
2) Puts Mailing Group "Accounts" in the To field
3) Puts Mailing Group "Myself" in the BCC field
4) Puts 'Todays date' and "Morning Report" in the Subject field
5) Inserts a Signature called 'Default' into the main body of the e-mail.
The code I currently use is :
Private Sub Label602_Click()
On Error GoTo Err_Command481_Click
Dim stDocName As String
stDocName = "Accounts Morning Report"
DoCmd.SendObject acReport, stDocName
Exit_Command481_Click:
Exit Sub
Err_Command481_Click:
MsgBox Err.Description
Resume Exit_Command481_Click
End Sub
Any help would be fantastic.
If you require any further info let me know.
Thanks in advance
[/i]
