Errors

[Thompyt]

I got this off the web and I am trying to set this up for my own uses. I get Error "91 Object variable or With Block variable not set."

I am wanting the option to edit email before sending and using outlook to put in email addresses. I will set up the formatting with the VBCRLF/ CHR(10)/(9) and so forth afterwards

Database Name: NIE 15_2 CRs
Table Name: Change Request
Query: GO_Email
Fields (partial list): CR_Numbers, Date Issue Identified, Change Request......

Dim db As Database
Dim rstNIE_15_2_CRst As Recordset
Dim strSQL As String
Dim strSubject, strBody As String
Set NIE_15_2_CRs = CurrentDb()
strSQL = "SELECT * FROM GO_EMail"
Set rstNIE_15_2_CRs = db.OpenRecordset(strSQL, dbOpenDynaset)
If Not rstGO_Email.EOF Then
strBody = "This Change Request" & vbCrLf & vbCrLf
strBody = strBody & "Date CR Number Change Requested" & vbCrLf
strBody = strBody & "==================================" & vbCrLf
rstGO_Email.MoveFirst
Do While Not rstGO_Email.EOF
strBody = strBody & rstGO_Email("CR_Numbers") & Chr(9) & _


rstGO_Email("Date Issue Identified") & Chr(9) & _
rstGO_Email("CR_Numbers") & Chr(9) & _
rstGO_Email("[Change Requested]") & vbCrLf
rstGO_Email.MoveNext
Loop
End If
strSubject = "ALLCON,Here's my report!"
DoCmd.SendObject acSendNoObject, , acFormatTXT, , , strSubject, strBody, True
Exit Sub

Thanks

[amrut]

See the error corrected in red

Set db = CurrentDb()
strSQL = "SELECT * FROM GO_EMail"
Set rstNIE_15_2_CRs = db.OpenRecordset(strSQL, dbOpenDynaset)

Use Option Explicit at the top of module to avoid these errors

[Thompyt]

Thanks amrut,
I didn't post all of the program, so I didn't have the Options Explicit statement. I have updated to the following:

Dim db As Database
Dim rstChange_Request As DAO.Recordset
Dim strSQL As String
Dim strSubject, strBody As String
Set db = CurrentDb()
strSQL = "SELECT * FROM GO_EMail"
Set rstChange_Request = db.OpenRecordset(strSQL, dbOpenDynaset)
If Not Change_Request.EOF Then


Here I get the error "Method or data member not found"

[Thompyt]

Fixed the issue. Google and restart.