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
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