VBA / Outlook run time error

[Waterpolo1]

Context

The code below allows or me to send an email once I click submit. It works fine on Microsoft Excel 2010 but gives a 'run time error 287' on Microsoft Excel 2013 - Please help!!

Dim myApp As Outlook.Application, myMail As Outlook.MailItem
Set myApp = New Outlook.Application
Set myMail = myApp.CreateItem(olMailItem)
myMail.To = TBEmail.Value


With myMail
.Subject = "Your issue has been submitted and your ID number is" & " " & TBID.Value
.Body = "Thank you for submitting your issue. " & vbCrLf & "We will log and review this issue amongst the wider team." _
& vbCrLf & "Please quote your Issue ID, number" & " " & TBID.Value & ", " & "in any future correspondence." _
.Send
End With

 

[Domenic]

You didn't say on which line the error occurs. Try removing the last underscore (_) from the string you're assigning to Body.

 

[Waterpolo1]

The error occurs on ".send"

 

[Domenic]

Did you try removing the last underscore ( _ ) from the string being assigned to .body?

 

[Waterpolo1]

Yes it didn't work
, as I said before it works on 2010 version but not on the new one.

 

[Domenic]

After searching Google, here a couple of possibilities...

1) Add the following line before sending...

.Recipients.ResolveAll

2) Pause the macro before sending, For example, to pause the macro for 5 seconds...

    Dim StartTime As Single
    
    StartTime = Timer

    Do Until Timer > StartTime + 5
        DoEvents
    Loop

Does either one help?

 

[Waterpolo1]

Hi Domenic, appreciate the help with this. However, the same error is still occurring on the ".send" part of the code...

 

[Norie]

What's the error message?

 

[Waterpolo1]

"Run time error 287. Application- defined or object -defined error"

 

[Legacy 421546]

This works on Outlook 2016:

Option Explicit

Sub test()
Dim TBEmail As String
Dim TBID As Integer
TBEmail = "[EMAIL="someone@domain.com"]someone@domain.com[/EMAIL]"
TBID = 4711

Dim myApp As Outlook.Application, myMail As Outlook.MailItem
 Set myApp = New Outlook.Application
 Set myMail = myApp.CreateItem(olMailItem)
 myMail.To = TBEmail


 With myMail
 .Subject = "Your issue has been submitted and your ID number is " & TBID
 .Body = "Thank you for submitting your issue." & vbCrLf & "We will log and review this issue amongst the wider team." _
 & vbCrLf & "Please quote your Issue ID, number " & TBID & ", " & "in any future correspondence."
 .Send
 End With

End Sub