Sorry but I have a new thread for a similar problem. Can anyone see why this code will not send email. Outlook mail pops up and the attachment is there but when I send it, it doesn't show up in mailbox.
Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Set myItem = Application.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments
myAttachments.Add "C:\my file", _
olByValue, 1, "Electricity Usage"
myItem.Display
Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Set myItem = Application.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments
myAttachments.Add "C:\my file", _
olByValue, 1, "Electricity Usage"
myItem.Display