Emails and 287 error

[pdevito3]

I am writing a batch email procedure (note this is multiple emails to individuals done through a loop, not 1 email to a lot of people) and I keep getting a 287 error when I use ".Send" but ".Display" is working just fine. I've provided two bare bone code examples for simplicity sake below; both throw a 287 error.



I've also tried the "DoCmd.SendObject" function shown below, but get outlook security prompts (which are docmd.setwarning proof as far as I can tell) for each and every email. To add, they are not even the "time allowance" prompt that allow access for "x" minutes.

Does anyone know what's going on below and/or had any luck with batch emails like this in the past?

Thanks

Sub mailTest()
Dim oApp As outlook.Application
Set oApp = New outlook.Application
Dim oMI As outlook.MailItem
Dim x As Integer
For x = 1 To 2
    Set oMI = oApp.CreateItem(olMailItem)
    oMI.Body = "test message"
    oMI.Subject = "message from access"
    oMI.To = "email" & x & "@test.com"
    oMI.Send '.Display works fine
Next x
Set oMI = Nothing
Set oApp = Nothing
End Sub

Sub mailTestTwo()
Dim OutApp              As Object
Dim OutMail             As Object
Dim x As Integer
Set OutApp = CreateObject("Outlook.Application") 
    
For x = 1 To 2
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = "email" & x & "@test.com"
        .CC = ""
        .BCC = ""
        .Subject = "Test"
        .Body = "Test Bod"
        .Send 'Display works
    End With
Next x
Set OutApp = Nothing
Set OutMail = Nothing
End Sub

This throws the outlook prompt every time to allow sending

DoCmd.SendObject acSendNoObject, , , test@test.com, , , "Test - " & Date, bodyStr, False 'False to send, True to display

[June7]

What is the exact message of the 287 error?

Try sending to a real email address, like to yourself.

Your Set oApp statement may not be correct. I use CreateObject. And maybe clear the oMI variable within the loop. Although examples I've seen don't even clear the Outlook objects at all.

Sub mailTest()
Dim oApp As outlook.Application
Dim oMI As outlook.MailItem
Dim x As Integer
Set oApp = CreateObject("Outlook.Application")
For x = 1 To 2
    Set oMI = oApp.CreateItem(olMailItem)
    oMI.Body = "test message"
    oMI.Subject = "message from access"
    oMI.To = "email" & x & "@test.com"
    oMI.Send '.Display works fine
    Set oMI = Nothing
Next x
Set oApp = Nothing
End Sub

[pdevito3]

Using CreateObject didn't seem to do the trick either. I tried with my personal email address and it didn't seem to make a difference.

This all just seems especially weird that it makes the object just fine and performs the display action correctly, even sending it from the display correctly, but doesn't execute the send action correctly.

The error description is "application defined error or object defined error"

Have you done bulk email like this before? If so, using what method?

Thanks, June7

[lfpm062010]

I am not sure if this is your problem.

I have tested your original code. It gives me "Undeliverable: Test" mail twice. That is because the email have "1" and "2" as part of the name.

Once I change the correct email address. It deliver fine without any issue.

[June7]

I haven't used bulk except to help other posters with code. So I just tested your code with my email and it works perfectly.

Seems that error usually means the correct VBA library is not referenced. But I presume you have Outlook library selected in References, otherwise would error earlier in the code.

Possibly something about your network permissions.

Or maybe set Outlook options: File > Options > Trust Center > Trust Settings > Programmatic Access > my choice is "Warn me about suspicious activity when my antivirus software is inactive or out-of-date (recommended)."

Another option is to use CDO for email. But your network might be even more restrictive on this.

[pdevito3]

Gotcha. Yes I have the outlook library referenced. I think it's probably a network permissions issue. Familiar with the programmatic access option, but that won't be possible in scenario. Looking into CDO as well, but not expected that to be viable in this option either.

Appreciate the input and time!

[June7]

I also have this line before .Send

.DeleteAfterSubmit = True

Maybe that will help you.

[pdevito3]

No dice. Thanks though!