VBA Send To Mail Recipient

[marka87uk]

Hi,

I've coded a macro which processes some data, and when this is done I would like to get it ready to be emailed.

How would be an easy way of going about this? We use Outlook, and I was thinking it would probably be best to do the same as clicking on Send To > Mail Recipient would, but I'd the fields such as To and Subject to be filled in automatically.

For now I'd prefer it to not send the mail, but just to fill in the fields.

 

[ageren]

copy below code in your macro module...


sub send_mail ()

Dim Out As Object

Set Out = CreateObject("Outlook.Application")
With Out.CreateItem(olMailItem)

.Recipients.Add "xxxxx.yyyy@yahoo.com" 'refers TO line of your outlook..
.Subject = "book of electronic fund transfer" ' refers SUBJECT ...
.Body = "please find attached the EFT workbook" ' body of your mail
.Attachments.Add "c:\eft.txt" ' attachement line of your mail
.send ' sends your mail ...
End With

end sub

 

[ADAMC]

This will help you, lots of choices or just download the sample workbooks:

http://www.rondebruin.nl/sendmail.htm

If you change the .Send to .Display you can check how your email looks when your code is set up....then chsnge it back to .Send

If you need more help post back.