Outlook 2000 Selected Mailitem

[Einarsson]

hi.
How can i save a SELECTED mailitem from my VB program??

Thanx..

 

[jimboy56]

Try this;

Sub test()

Dim aOutlook As Outlook.Application, aEmail As Outlook.MailItem
Set aOutlook = GetObject(, "Outlook.Application&quot
If aOutlook Is Nothing Then Set aOutlook = New Outlook.Application
Set aEmail = aOutlook.CreateItem(olMailItem)
aEmail.Importance = olImportanceHigh
aEmail.Subject = "** Subject here **"
aEmail.Body = "**Message here**"
aEmail.Recipients.Add "joe.bloggs@hotmail.com"
aEmail.Attachments.Add "C:\Accounts\Filename.xls"
aEmail.Attachments.Add "C:\Accounts\Filename 2.xls"

aEmail.Send
End Sub