DoCmd Send Report using emailaddres on Form

[wnicole]

I'm trying to send a simple report from my form using the email address current on form.


This is my code, but I think I'm missing something can you help?
Report Name is R_Followupletter
Field: EmailAddress
The report and form link fields is "Company" just FYI if you need.

DoCmd.OpenReport "R_FollowUpLetter", acViewPreview, , "[EmailAddress] = Forms!F_ContactDetails!EmailAddress"

[pbaldy]

The syntax for text from here should work:

http://www.baldyweb.com/wherecondition.htm

[A S MANN]

Modify the VBA code as per u r need


Function SendEmailAttendence() As String
Dim Sender As String
Dim stDocName As String
Dim strBody, strSubject As String
Sender = [Forms]![All Email Form]![E- Mail ID-Parent]
strSubject = [Forms]![All Email Form]![Subject]
strBody = [Forms]![All Email Form]![Massage]
stDocName = "STUDENT ATTENDENCE (SUBJECT WISE)-EMAIL"
DoCmd.SendObject acReport, stDocName, acFormatPDF, Sender, , , strSubject, strBody, False
[Forms]![All Email Form]![EmailStatus].Value = "Send"
Dim strCourse As String
Dim strEnrolmentID As String
Dim strNameOfStudent As String
strCourse = [Forms]![All Email Form]![Course ID].Value
strEnrolmentID = [Forms]![All Email Form]![Enrollment ID].Value
strNameOfStudent = [Forms]![All Email Form]![Name Of Student].Value
Call LogEmailSendNow(strCourse, strEnrolmentID, strNameOfStudent, Sender, strSubject, strBody)
End Function

Function LogEmailSendNow(Course As Variant, EnrolmentID As Variant, NameOfStudent As Variant, EMail_ID As Variant, Subject As Variant, Massage As Variant)
'Purpose: to log data changes to the tblDataChanges table with values passed to function
'By PKStormy - 1/1/2011
'Uses ADO coding
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim strSQL As String
strSQL = "Select * from EMailLog"
rs.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!Course = Course
rs!EnrolmentID = EnrolmentID
rs!NameOfStudent = NameOfStudent
rs!EMail_ID = EMail_ID
rs!Subject = Subject
rs!Massage = Massage
rs!SendBy = getUser()
rs!SendOn = Now()
rs!Modifier = [TempVars]![LogInUser]
rs![EMail-Regarding] = "ATTENDENCE"
rs.Update
rs.Close
Set rs = Nothing
End Function