Advertisement
2002ASP Microsoft Office Apps/VBA #799

Open Outlook send mail window with attachments

Open Outlook send mail window with attachments from a vb application. Also, change m.display to m.send if you want to just send the email and not preview it! Also works in vbscript! Copy code to a text file and save with a *.vbs extension and double click to activate. Super Cool.

AI

AI Summary: 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.

Source Code
original-source
Dim o 
 Dim m
 
 Set o = CreateObject("Outlook.Application")
 Set m = o.CreateItem(0)
 
 m.To = "xxxx@yyyy.com"
 m.Subject = "This is the Subject"
 m.Body = "Hey, this is cool!"
 m.Attachments.Add "C:\Temp\FileToAttach.txt"
 'Repeat this line if there are more Attachments
 m.Display
 'm.Send 'If you want to just send it
Original Comments (3)
Recovered from Wayback Machine