Email value of a cell in Outlook Express

B

bondcrash

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 = "(e-mail address removed)"
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top