runtime error 287 at the .send line when sending Outlook Email

[Nuke1096]

I cant seem to figure out why I keep getting "Runtime 287 Application-defined or object-defined error" when my code tries to send an outlook email. Here is my code currently for the form.






My Button Code

Private Sub SubmitButton_Click()
 
Call send_Breakdown
  
MsgBox "GPS Unit Diagnostics Information Successfully Entered Into The Database"
DoCmd.Close acForm, "Form_New_GPS_Diags"
    
End Sub

Outlook Code

Sub send_Breakdown()


Dim objOutLook As Object
Dim MailOutLook As Object


' Create the Outlook Session
Set objOutLook = CreateObject("Outlook.Application")
' Create the Message
Set MailOutLook = objOutLook.CreateItem(olMailItem)




mailroster = "abc@yahoo.com"
  


With MailOutLook


 .To = mailroster
 .Subject = "GPS Diagnostics Report!"
 .body = "A GPS Diagnostics Test has been run on a possibly defective unit! The details of the test are listed below..."
 .send
 
End With
   
Set objOutLook = Nothing
Set MailOutLook = Nothing




End Sub

Any help is much appreciated. I've been pulling my hair out over this cause it was working fine on Friday and nothing changed.

[rpeare]

What references are you using when you are running this code?

Is microsoft outlook one of them?

To view the references from the VB window click on TOOLS > REFERENCES, if you're going to use outlook objects look for a reference name that is something close to "Microsoft Outlook XX.X Object Library"

Make sure it's checked off and you should be able to run the code.

[pbaldy]

That code wouldn't require the Outlook reference as it uses late binding. With late binding you typically can't use constants like olMailItem though, so I'm a little surprised it ever worked.

[Nuke1096]

Somehow it's working again with nothing changed. I have no idea whats going on to be honest.

pbaldy, how would you write the code differently without the olmailitem? Like I said, its working again now, but I have no confidence it'll stay that way.

[pbaldy]

That's a constant, which generally have numeric equivalents. My code looks like:

Set objMail = objOutlook.CreateItem(0)

so 0 is the numerical equivalent of olMailItem.

[Nuke1096]

Thank you! I switched it to 0 and its still working fine.

[pbaldy]

No problem. Like I said, I'm a little surprised it worked as you had it. Getting errors on constants like that is what often trips people up when they switch from early binding to late binding. You don't by chance have the reference rpeare mentioned in post 2 checked do you? That might explain it.

[Nuke1096]

It was unchecked initially, but I tried checking it and unchecking a few times to see if it made any difference and it didnt seem to. Right now its unchecked.