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
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
From novice to tech pro — start learning today.