Send an e-mail without prompts - problem

[Trumper1]

I have carried out the process described in faq 707-4334 to send an e-mail from Excel without prompts. In about 1 in 10 (sometimes up to 1 in 20) occasions the e-mail fails to send and leaves an unsent mailitem on the desktop which is rather annoying and not especially robust.

Does anybody have any idea why this might be and how to cure it?

Many thanks in advance.

 

[Trumper1]

FYI

This is the relevant code:

ElseIf [h28] <> "" Then
With objMail
.To = "Middle Office"
.Subject = "Trade: " & [h28] & " " & [d7] & " " & [h31]
.Body = ""
.Display
End With
End If
SendKeys "%{s}", True
Set objMail = Nothing