Mailen met Outlook vanuit excel

[M.v.Veelen]

Ik heb een vraagje over een VB scrippie.

Ik wil nl. vanuit Excel automatisch mailtjes kunnen versturen.

Het Excelsheet dat ik heb ziet er als volgt uit :

[e-mail]
onderwerp
body, die bestaat uit meerdere
regels onder elkaar, meestal een stuk
of 8 ......

[e-mail]
onderwerp2
body, die bestaat uit meerdere
regels onder elkaar, meestal een stuk
of 8 ......

[e-mail]
onderwerp3
body, die bestaat uit meerdere
regels onder elkaar, meestal een stuk
of 8 ......

enz.

Nu had ik al iets als :

Code:
Sub stuurmail()
Dim Out As Outlook.Application
Dim geadresseerde As String
Dim onderwerp As String
Dim inhoud As String

Set Out = New Outlook.Application
Dim p As mailitem
Set p = Out.CreateItem(olmailitem)

Do Until ActiveCell = "x"

geadresseerde = Range("A1").Value
onderwerp = Range("A2").Value
inhoud = Range("A3", "A5").Group (DEZE KLOPT NIET !!)

p.Recipients = (geadresseerde)
p.Subject = (onderwerp)
p.body = (inhoud)
p.send
ActiveCell.Offset(1, 0).Select
Loop
End Sub


Maar kom eigenlijk geen stap verder.

Iemand die er sjoege van heeft ?

[robjanssen]

Wat is nu precies het probleem?
Loop je programma vast?
Geeft het foutmeldingen? Zo ja, waar?
Mail anders de Excel eens naar [e-mail], dan zal ik eens iets in elkaar knutselen.