Trouble Formatting Outlook Email from Access

[Nuke1096]

Hello all, I am trying to have my form generate an Outlook email when after I edit some fields on a form and hit the Submit Button, but I keep running into this error....



"the expression you entered refers to an object that is closed or doesn't exist"

Let me post my code...


Sub send_Breakdown()


Dim appOutLook As Object
Dim MailOutLook As Object


Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)


Call OpenOutlook


mailroster = "MyEmail@whatever.com"

With MailOutLook
.To = mailroster
.Subject = "Breakdown Alert!"
.body = "A Breakdown Report has been Edited!!! The edited details are listed below..." & Chr(13) & "Vehicle Number: " & Me.VehicleText & Chr(13) & "Date: " & Me.DateText & Chr(13) & "Breakdown Details: " & Me.txtBreakdownDetails & Chr(13) & "Breakdown Location: " & Me.TextAddress & Chr(13) & "City/Town: " & Me.TextCity & Chr(13) & "Additional Location Notes: " & Me.Detail_TextBox
.send
End With

Set appOutLook = Nothing
Set MailOutLook = Nothing


End Sub


I'm calling this sub from the actual button command sub. This is what I have in my command button sub.

MsgBox "Breakdown Successfully Edited!"
Call send_Breakdown
DoCmd.Close acForm, "Form_Breakdown_Edit"



The error is definitely coming from the .body line, since I commented that line out and it works fine then. Even if I trim the code down to something like this, I still get the same error.

.body = "Random Text" & Chr(13) & "Additional Location Notes: " & Me.Detail_TextBox

I made sure that the name of the Text Box is correct of course, but I cant seem to figure out why I get that error. Any help is greatly appreciated.

[pbaldy]

You might get rid of the form reference to isolate whether it's the .Body or the form reference causing the problem. Make sure the underscore isn't actually a space. Try Me.VehicleText instead of Me.Detail_TextBox to determine if it's that particular control. You're sure it gets past the other mail related lines? With late binding, I wouldn't expect olMailItem to work.

[Nuke1096]

I tried VehicleText and a few other controls, so it's definitely not that. I also commented out the entire .body line and it works then, so it has to be coming from there. I don't get it.

[June7]

Instead of Chr(13), try: vbCrLf

Or

Chr(13) & Chr(10)

Did you try constructing the .Body string without any variables, just concatenate literal text. If that works, then one of the variables is issue. Try including them one at a time.

[pbaldy]

I'll leave you in June7's capable hands.

[Nuke1096]

I did just a simple .body command like

.body = "test message.."

and that works fine, so its the rest of the body line.

I have also tried just a simple cmd like...

.body = Me.TextBoxName

That still gave me the error, and I did try multiple fields/text boxes to make sure it wasnt just that one. I also didnt include Chr(13) when I tested it that way, and still got the error, so I dont think its that.

[June7]

Coding for text to wrap to a new line requires both codes: Chr(13) & Chr(10) (in that order) or use the vbCrLf constant.

I tested constructing a .Body string with vbCrLf and literal text and it works.

Sub send_Breakdown()
Dim appOutLook As Object
Dim MailOutLook As Object
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.To = "MyEmail@whatever.com"
.Subject = "Breakdown Alert!"
.Body = "A Breakdown Report has been Edited!!! The edited details are listed below..." & vbCrLf & "Vehicle Number: " & vbCrLf & "Date: " & vbCrLf & "Breakdown Details: " & vbCrLf & "Breakdown Location: " & vbCrLf & "City/Town: " & vbCrLf & "Additional Location Notes: "
'.Send
.Display
End With
Set appOutLook = Nothing
Set MailOutLook = Nothing
End Sub

Back to the issue of references to controls. Access isn't finding them. If you want to provide db for analysis, follow instructions at bottom of my post.


Why the Call OpenOutlook line?