How to email from Excel?

[Nathan Gutman]

I have an Excel worksheet with a list of email addresses. I want to use this
list for a mass emailing using Outlook Express.
Can I do it directly from Excel i.e Outlook Express will use this list in
the To: field and I will manually add the Subject and the body of the
message.
Thanks,

 

[Ron de Bruin]

Hi Nathan

Body is only possible when you use Sendkeys in OE
See this page for a example
http://www.rondebruin.nl/mail/oebody.htm
The last macro loop through a list of addresses

You can also use CDO
http://www.rondebruin.nl/cdo.htm

 

[Nathan Gutman]

Not sure that I understand. All I want is get the addresses from Excel to
Outlook Express 6. I will fill out then in OE6 the subject and the body of
the message.
--
Nathan Gutman

Hi Nathan

Body is only possible when you use Sendkeys in OE
See this page for a example
http://www.rondebruin.nl/mail/oebody.htm
The last macro loop through a list of addresses

You can also use CDO
http://www.rondebruin.nl/cdo.htm

 

[Chip Pearson]

Outlook Express doesn't support any form of automation. There is no way,
short of using SendKeys to simulate keystrokes, to automate anything in
Outlook Express. OE just doesn't support it.

The short answer is that you can't do what you want to do, at least with
Outlook Express. However, Ron demonstrates how you can use CDO to send the
emails rather than using Outlook Express.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
www.cpearson.com
(email address is on the web site)

Not sure that I understand. All I want is get the addresses from Excel to
Outlook Express 6. I will fill out then in OE6 the subject and the body of
the message.

 

[Ron de Bruin]

Hi Nathan

Ok, try this for OE with in column C in "Sheet1" the mail addresses
Change to your sheet and column

Sub Tester()
Dim Recipient As String, HLink As String
Dim Recipientcc As String, Recipientbcc As String
Dim cell As Range
Dim strto As String

For Each cell In ThisWorkbook.Sheets("Sheet1") _
.Columns("C").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" Then
strto = strto & cell.Value & ";"
End If
Next
strto = Left(strto, Len(strto) - 1)

Recipient = strto
Recipientcc = ""
Recipientbcc = ""
HLink = "mailto:" & Recipient & "?" & "cc=" & Recipientcc & "&" & "bcc=" & Recipientbcc & "&"

ActiveWorkbook.FollowHyperlink (HLink)
End Sub




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

Not sure that I understand. All I want is get the addresses from Excel to Outlook Express 6. I will fill out then in OE6 the
subject and the body of the message.

 

[Ron de Bruin]

I think I misunderstood the OP Chip ?
See the code example I posted