Thread: Bulk mail using excel and outlook

Thank you very much for redirecting and helping.

So I browsed through Ron's website and read some pretty good information. Still all those macro's are confusing me, I really have no clue what macro helps me. I've managed to e-mail myself (as a test) with this macro:

Sub Mail_Workbook_1()
Dim OutApp As Object
Dim OutMail As Object

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

On Error Resume Next
With OutMail
.To = "xxx@xxxx.nl"
.CC = "xxx@xxxx.nl"
.BCC = ""
.Subject = "test"
.Body = "Hello World!"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Now I am looking to make a range in the excelsheet with another macro so I can send multiple e-mails from excel.... This macro I also found on Ron's website:

Sub EMail_Outlook_Body()
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object

With Application
.EnableEvents = False
.ScreenUpdating = False
End With

Set rng = Nothing
On Error Resume Next
Set rng = Sheets("1").Range("F2:F5").SpecialCells("F2:F5")
On Error GoTo 0

If rng Is Nothing Then
MsgBox "Error" & _
vbNewLine & "Error", vbOKOnly
Exit Sub
End If

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "xxx@xxxx.nl"
.CC = "xxx@xxxx.nl"
.BCC = ""
.Subject = "Test"
.HTMLBody = .RangetoHTML("F2:F5")(rng)
.Display
End With
On Error GoTo 0

With Application
.EnableEvents = True
.ScreenUpdating = True
End With

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

.HTMLBody = .RangetoHTML("F2:F5")(rng)

I think this is where it goes wrong, I want to select a range, so I put F2:F5 from the sheet which contains e-mailaddresses. FWIW I don't even know what this macro does.
I feel like a soaking wet dripping sponge, so much information!

Hope someone can help me out..!

Outlook 2010 makes it easy to send mass emails to a selected number of contacts using the common and well known Mail Merge feature from previous versions of Microsoft Office. However when you want to send out a mass multi-recipient email with personalized information for each individual… things can start to get a little bit tricky if your not familiar with the process.Sending email is quick and easy. But there really are no shortcuts to building a good email marketing channel.