Newbie help e-mail addresses

  • Thread starter Thread starter Feverish
  • Start date Start date
F

Feverish

I have a column of e-mail address in Excel2000. I want to send an email to
all of the listed address, how do I get the names into the Bcc: in OE6?
However, I DO NOT want to send the actual Excel sheet.
 
Try this

With the addresses in column C

Sub Mail_Outlook()
'This example send the last saved version of the Activeworkbook
'You must add a reference to the Microsoft outlook Library
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim cell As Range
Dim strto As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)

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

With OutMail
.To = "(e-mail address removed)"
.CC = ""
.BCC = strto
.Subject = "This is the Subject line"
.Body = "Hi there"
.Send 'or use .Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
 
Thanks, Its a bit complex but I'll try it out (hopefully click and paste
will work.)
 
Back
Top