send mail coding doesnt always work

[robcarr]

Hi,

I have this coding to send emails, and sometimes it does not send, is there anyway to check if it has sent, and if it has not sent then make sure it has been sent.

Set objMail = Nothing
Set objol = Nothing
Set objol = Outlook.Application
Set objMail = objol.CreateItem(olMailItem)
With objMail
  .To = "whoever"
    .Subject = "Daily Flash Report update for " & Format(Now() - 1, "dd-mmm") & "."
     .Body = "Hi," & vbCrLf _
    & "Please find attached the Flash Report" & vbCrLf & vbCrLf _
    & "This report has been automatically generated, please check before sending to clients. " & vbCrLf & vbCrLf _
    & "if you have any queries can you please let me know." & vbCrLf & vbCrLf _
     & "Regards" & vbCrLf
.Attachments.Add pname
    .Display
    SendKeys "%{s}", True
End With
Set objMail = Nothing
Set objol = Nothing
End If

also I have not tried yet but do I need to have the display to send using this way of sending.

thanks in advance.

Hope this is of use, Rob.

 

[PHV]

You may use the AppActivate instruction before calling SendKeys

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[robcarr]

tahnks phv, will try this and see what happens tomorrow (next run date),

do you believe i need the display line?

Hope this is of use, Rob.

 

[PHV]

If you don't care "Outlook Object Model Guard" you may replace this:
.Display
SendKeys "%{s}", True
with this:
.Send

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886