View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Ron de Bruin Ron de Bruin is offline
external usenet poster
 
Posts: 11,123
Default Email with mailto equivalent

For the OP

See also this page
http://www.rondebruin.nl/mail/oebody.htm



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Dave Peterson" wrote in message ...
Maybe something like:

Option Explicit
Sub testme()

Dim myAddrRng As Range
Dim URL As String
Dim myStr As String
Dim myCell As Range

Set myAddrRng = Worksheets("Sheet1").Range("a1:A10")

myStr = ""
For Each myCell In myAddrRng.Cells
myStr = myStr & "," & myCell.Value
Next myCell

myStr = Mid(myStr, 2)

URL = "mailto:" & myStr & "?subject=Hi there"

ThisWorkbook.FollowHyperlink Address:=URL

End Sub




elf27 wrote:

Hello,

I've searched the forums and reviewed http://www.rondebruin.nl but I can't
seem to find an answer to a simple question.

I want a macro to email persons in a range and have a custom subject line
but I do not rely on them using outlook. If it's possible, I'd basically like
the equivalent of

mailto:[ARRAY]?subject=Item [VARIABLE X] Posted Online

Any way to do that?


--

Dave Peterson

__________ Information from ESET Smart Security, version of virus signature database 3972 (20090328) __________

The message was checked by ESET Smart Security.

http://www.eset.com




__________ Information from ESET Smart Security, version of virus signature database 3972 (20090328) __________

The message was checked by ESET Smart Security.

http://www.eset.com