Email creeeren uit Tabblad

[Developer]

Goede dag allemaal,

Wie kan mij vertellen / uitleggen hoe ik een email kan genereren uit een specifiek tabblad van excel. (excel 2013)
Het liefst aan een ontvanger waarvan het email adres in B2 staat ..

Dus .. druk op de kop en de email (inhoud van het tabbald met range B5 t/m L43 worden op de mail gezet waarvan de ontvanger (het email adres van de ontvanger) in cel B2 staat ?

Alvast bedankt voor jullie feedback.
Developer

 

[edmoor]

Dat is hier al heel vaak besproken dus zou je makkelijk terug moeten kunnen vinden. Hier een zetje in de goede richting:
http://www.snb-vba.eu/VBA_Excelgegevens_mailen.html

 

[Developer]

Dank je voor de verwijzing ..
heb onderstaande vba omgebouwd ..

Sub mail_werkboek_met_circulatielijst()
With ActiveWorkbook
.HasRoutingSlip = True

With .RoutingSlip
.Recipients = sheets(1).range("A1:K10")
.Subject = "Onderwerp"
.Message = "dit is het bericht"
.Delivery = xlOneAfterAnother
.ReturnWhenDone = True
.TrackStatus = False
End With
.Route
End With
End Sub

Naar :

Sub sendmail()
With ActiveWorkbook
.HasRoutingSlip = True

With .RoutingSlip
.Recipients = Sheets(1).Range("b2:b3")
.Subject = Sheets(1).Range("b5:k5")
.Message = Sheets(1).Range("a4:l43")
.Delivery = xlOneAfterAnother
.ReturnWhenDone = True
.TrackStatus = False
End With
.Route
End With
End Sub

En krijg nu een foutmelding (x) 400 van Microsoft Visual basic for Applications ..

Wat doe ik hier fout ?

Alvast bedankt voor de reactie.

 

[edmoor]

Zet die code eerst eens tussen codetags want zo is het niet te lezen.
Ik zie ook niet dat je een Outlook object maakt.

 

[Developer]

Edmoor, dank je voor je berichten zover . maar kom er niet helemaal aan uit ..
Heb jij / weet jij misschien een voorbeeld van een dergelijke sub .. zodat ik alleen nog maar de range's hoef aan te passen ..

Alvast bedankt ..
Developer

 

[edmoor]

Hier kan je verschillende complete voorbeelden vinden:
http://www.rondebruin.nl/win/s1/outlook/mail.htm

 

[Developer]

Edmoor,

Dank je voor de tip ! ben er samen met Ron de Bruin aan uitgekomen !!