Outlook Express - how to send value of a cell...

[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 = "[email protected]"
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

[Ron de Bruin]

Hi bondcrash

See
http://www.rondebruin.nl/mail/oebody.htm


--
Regards Ron De Bruin
http://www.rondebruin.nl



"bondcrash" <[email protected]> wrote in message
news:[email protected]...
>
> 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 = "[email protected]"
> 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=556031
>

[bondcrash]

cheers Ron... actually just found right that one!

[Ron de Bruin]

Look also at CDO if you not have Outlook to send mail
http://www.rondebruin.nl/cdo.htm


--
Regards Ron De Bruin
http://www.rondebruin.nl



"bondcrash" <[email protected]> wrote in message
news:[email protected]...
>
> cheers Ron... actually just found right that one!
>
>
> --
> bondcrash
> ------------------------------------------------------------------------
> bondcrash's Profile: http://www.excelforum.com/member.php...o&userid=20997
> View this thread: http://www.excelforum.com/showthread...hreadid=556031
>