Colorado Spring
Registered User.
- Local time
- Today, 13:54
- Joined
- Dec 10, 2005
- Messages
- 36
Morning all...
Wondering if I can adjust my code, below, to add form attachments to my email. Here is the code I'm using...
Private Sub Send_Email_Click()
On Error GoTo Err_Send_Email_Click
Dim strTo As String
strTo = Me.To
Dim strSubject As String
strSubject = Me.Subject
Dim strMess As String
strMess = Me.Message
DoCmd.SendObject , , acFormatRTF, Me!To, , , Me!Subject, Me!Message, True, ""
Exit_Send_Mail_Click:
Exit Sub
Err_Send_Email_Click:
MsgBox Err.Description
Resume Exit_Send_Mail_Click
End Sub
Thanx in advance
Karen
Wondering if I can adjust my code, below, to add form attachments to my email. Here is the code I'm using...
Private Sub Send_Email_Click()
On Error GoTo Err_Send_Email_Click
Dim strTo As String
strTo = Me.To
Dim strSubject As String
strSubject = Me.Subject
Dim strMess As String
strMess = Me.Message
DoCmd.SendObject , , acFormatRTF, Me!To, , , Me!Subject, Me!Message, True, ""
Exit_Send_Mail_Click:
Exit Sub
Err_Send_Email_Click:
MsgBox Err.Description
Resume Exit_Send_Mail_Click
End Sub
Thanx in advance
Karen