MS Outlook 98 - Sending Email and Attachments
This code will send email through MS Outlook 98, (or the most current version on your computer),
using MS Excel 7.0 or higher.
Original Author: Michelle Grey
Assumptions
You must have MS Outlook and MS Excel 7.0 or higher.
Returns
This code will open MS Outlook and open a new email message, insert the recipients email address,
the attachment, the subject of the message, and send the email.
**Note: This is with the aid of using John O'Donald's code and revising it to work for me.
Side Effects
Note: The MailItem.Send line may not work in Excel 97.
Code
Sub EmailFromOutlookInExcel() 'macro name
Set myOlApp = CreateObject("Outlook.Application") 'opens Outlook
Set MailItem = myOlApp.CreateItem(olMailItem) ' opens new email
Set myRecipient = MailItem.Recipients.Add("recipient@company.com") 'inserts recipient's email address
MailItem.Subject = "Subject of message goes here" 'subject of the email
Set myAttachments = MailItem.Attachments.Add("C:foldernamefilename") 'Path to Attachments
'Repeat this line if there are more Attachments
MailItem.Send 'sends the email
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.