Outlook only processes outgoing mail when openned

Dim olApp As Outlook.Application
    Dim olMail As MailItem
    Dim CurrFile As String
    Set olApp = New Outlook.Application
    Set olMail = olApp.CreateItem(olMailItem)
    ActiveWorkbook.Save
    CurrFile = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
    With olMail
    .To = "bgustafson@lincolnwayenergy.com;dzimmerman@lincolnwayenergy.com;single@lincolnwayenergy.com;srichardson@lincolnwayenergy.com;tharrison@lincolnwayenergy.com;vwalter@lincolnwayenergy.com"
    .CC = "rsauer@hawkrenew.com;ehalverson@hawkrenew.com"
    .Subject = "Distiller Grain Load and Contract update - Nevada"
    .Body = ActiveSheet.Range("c3").Text & vbCrLf
    '.Attachments.Add CurrFile
    .Attachments.Add "s:\reports\nevada loads pub.xls"
    .Display
    .Send
    End With
    Set olMail = Nothing
    Set olApp = Nothing

Select all Open in new window