email from excel

[cape]

I would like to have outlook open up and put the email address in the T
field. another cell into the subject and another cell into body
Without automatically sending it. I would like to highlight cell a4
(that being the email address) and then have b45 in the subject an
then c45 in the body. Help is always appreciated.
Thank

 

[William]

You will need to set a reference to the Outlook object library

Sub OutlookEmail()
Application.ScreenUpdating = False
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim s As String, st As String, str As String
With ActiveSheet
s = .Range("A45")
st = .Range("B45")
str = .Range("C45")
End With
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
With olMail
..To = s
..Subject = st
..Body = str
..Display
'or use .Send to send the email
End With
Application.ScreenUpdating = True
Set olMail = Nothing
Set olApp = Nothing
End Sub


--
XL2002
Regards

William

(e-mail address removed)

| I would like to have outlook open up and put the email address in the To
| field. another cell into the subject and another cell into body.
| Without automatically sending it. I would like to highlight cell a45
| (that being the email address) and then have b45 in the subject and
| then c45 in the body. Help is always appreciated.
| Thanks
|
|
| ---
| Message posted
|

 

[cape]

Awesome thanks. Is there any way to add more than one cell to the body

 

[Dick Kusleika]

cape

The Body property is just a string. You can put any string you want in
there. Like this

..Body = Range("A1").Value & vbCrLf & Range("A2").Value & " " &
Range("A3").Value

More examples here

http://www.dicks-clicks.com/excel/olSending.htm