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.
| Submitted On | |
| By | John O'Donald |
| Level | Intermediate |
| User Rating | 4.9 (108 globes from 22 users) |
| Compatibility | VB 5.0, VB 6.0 |
| Category | Microsoft Office Apps/VBA |
| World | Visual Basic |
| Archive File |
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