Email value of a cell in Outlook Express
 

Hi all,

trying to set up a code so to send the value of a cell in an email
message as an event gets triggered - just the value of a single cell to
paste it on the message not the full worksheet.

Found this

Sub Mail_Outlook_Express()
Dim Recipient As String, Subj As String, HLink As String
Dim Recipientcc As String, Recipientbcc As String
Dim msg As String
Recipient = "
Recipientcc = ""
Recipientbcc = ""
Subj = "trade"
msg = "Hi there" & vbNewLine & vbNewLine & _
"hello" msg = WorksheetFunction.Substitute(msg, vbNewLine,
"%0D%0A")
HLink = "mailto:" & Recipient & "?" & "cc=" & Recipientcc _
& "&" & "bcc=" & Recipientbcc & "&"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & msg
ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
End Sub


How to put the value of a certain cell into the msg=... line?


Many thanks

BC


--
bondcrash
------------------------------------------------------------------------
bondcrash's Profile: http://www.excelforum.com/member.php...o&userid=20997
View this thread: http://www.excelforum.com/showthread...hreadid=556018