hortizjr59
Registered User.
- Local time
- Today, 07:01
- Joined
- Sep 6, 2011
- Messages
- 30
I was wondering if anyone has been able to copy an access report into the body of an outlook email.
I am tryin to copy only the active record. What I have done in the past was as follows:
Private Sub cmdEmailAssignedForm_Click()
Dim strWhere As String
If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If
If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[Improvement No] = " & Me.[Improvement No]
DoCmd.OpenReport "ReportEmailNoticeofAssigned", acViewPreview, , strWhere
End If
End Sub
I would like to improve this by just pasting the text on the active record into the email body.
Thanks for your help....
Hector
I am tryin to copy only the active record. What I have done in the past was as follows:
Private Sub cmdEmailAssignedForm_Click()
Dim strWhere As String
If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If
If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[Improvement No] = " & Me.[Improvement No]
DoCmd.OpenReport "ReportEmailNoticeofAssigned", acViewPreview, , strWhere
End If
End Sub
I would like to improve this by just pasting the text on the active record into the email body.
Thanks for your help....
Hector