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.
AI
Tóm tắt bởi AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Mã nguồn
Sub EmailFromOutlookInExcel() 'macro name
Set myOlApp = CreateObject("Outlook.Application") 'opens Outlook
Set MailItem = myOlApp.CreateItem(olMailItem) ' opens new email
Set myRecipient = MailItem.Recipients.Add("[email protected]") 'inserts recipient's email address
MailItem.Subject = "Subject of message goes here" 'subject of the email
Set myAttachments = MailItem.Attachments.Add("C:\foldername\filename") 'Path to Attachments
'Repeat this line if there are more Attachments
MailItem.Send 'sends the email
End Sub
Bình luận gốc (3)
Được khôi phục từ Wayback Machine