Bulk mail using excel and outlook

Good morning pskroes

...and welcome to the forum!!

Your fellow countryman and Microsoft MVP Ron de Bruin has one of the best resource on the web for using Excel and Outlook together. Given your limited experience with VBA you might want to download his free SendMail add-in available from here.

If this doesn't quite cut it, and you need to write something yourself he also has pages and pages of good examples, but it's not the easiest of aspects of VBA to handle.

HTH

DominicB

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 = "[email protected]"
.CC = "[email protected]"
.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 = "[email protected]"
.CC = "[email protected]"
.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.