Mail naar meerder adressen uit range en met bijlage versturen..

[JanWillem63]

Hallo,
Ik ben bezig met het maken van een bestelformulier, waarbij meerder gegevens middels een (body) eenvoudig in een mail van outlook ingevuld wordt.
Tot zo ver is het mij gelukt.
Nu wil ik de mail naar meerdere adressen versturen die in een range van een werkblad staan, aangevuld met een bijlage.
De mail's die ingevoegd dienen te worden, staan in het blad Invulblad onder cel C37(to) en F37(CC).
De bijlage staat in de cel F26. (dit is een keuzeveld, waar ook niets in zou kunnen staan).
Wie kan en wil mij hierbij helpen?Bekijk bijlage Bestelformulier_ 1.xls

 

[alphamax]

        .To = Join(Application.Transpose(Worksheets("InvulBlad").Range("C37").CurrentRegion.Offset(1, 0)), ";")
        .CC = Join(Application.Transpose(Worksheets("InvulBlad").Range("F37").CurrentRegion.Offset(1, 0)), ";")
        If Worksheets("InvulBlad").Range("F26").Value <> "" Then
            .Attachments.Add Worksheets("InvulBlad").Range("F26").Value
        End If

 

[JanWillem63]

Bedankt voor de reactie.
Het wil bij mij echter nog niet lukken. Ik mis ook nog een oplossing voor de invoeg toepassing van de bijlage.

 

[alphamax]

zie bericht#2

 

[JanWillem63]

Bedankt, werkt uitstekend.
Heb alleen nog in outlook bij de mail geadresserden veel nulen staan (Louis@test.nl; Hans@test.nl; Erik@test.nl; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0).
Komt waarschijnlijk omdat er in de range cellen met een keuze(validatie) staan.
Enig idee..?