Macro to create email

[brumby]

hiya all,

I am trying to run a marco that does the following.........



1. Creates a blank email
2. Populates the "to" field with the contents of cell b1
3. Populates the subject with the contents of cell h4 ( important, pasted as values only )
4. Sends the mail

I know the ronbebruin site has alot of info, but cant nail this.

appreciate your help!!

 

[yky]

Following an example on https://www.rondebruin.nl and replace the .to, .subject, .from etc. with something like the following:

.To = ThisWorkbook.Sheets(1).Range("B1")
.FROM = ThisWorkbook.Sheets(1).Range("A5")
.Subject = ThisWorkbook.Sheets(1).Range("H4")