Ik krijg strings niet naast elkaar

[VBA1]

Ik heb in mijn programma een module die die outlook start om het resultaat bestand weg te sturen. Dat moet worden verstuurd naar meerdere email-adressen, die staan in een tabel. IK heb getest met een msgbox of hij de lijst goed uitleest en dat doet hij, hij leest de tweede kolom van blad5, want daar staan email adressen. Alleen bij onpenen van het email programma staat alleen 1 adres in het veld aan en niet de meerdere adressen uit de lijst.

De code gaat als volgt:

    With oMail
         'Uncomment the line below to hard code a recipient
         'Create sent to list
         Let laatsteCel = Blad5.Range("A65500").End(xlUp).row
         Let Rij = 2
         Do While Rij <= laatsteCel
            Let namenstring = Blad5.Cells(Rij, 2).Value + ";"
            Let .To = namenstring
            Let Rij = Rij + 1
         Loop
         'Uncomment the line below to hard code a subject
         .Subject = "Verdeling van morgen"
        .Attachments.Add WB.FullName
        .Display
    End With

Ik zie alleen het laatse email adress staat en niet allemaal.
Kan iemand helpden?

Allvast heel erg bedankt.

 

[edmoor]

Probeer dit eens:
.To = .To + namenstring

 

[OctaFish]

Mij lijkt het dat je een onhandige constructie gebruikt; je wilt eerste de string opbouwen, en hem daarna pas gebruiken. Dus zo:

         Do While Rij <= laatsteCel
            namenstring = namenstring & Blad5.Cells(Rij, 2).Value + ";"
            Rij = Rij + 1
         Loop
         .To = namenstring

 

[snb]

Of met VBA:

   .To = Join(Application.Transpose(Columns(7).SpecialCells(2).Offset(1).SpecialCells(2)), ",")

Zie ook:

http://www.snb-vba.eu/VBA_Excelgegevens_mailen.html

 

[VBA1]

Heel erg bedankt weer, die laatste werkt goed! En natuurlijk! wat kun je je toch blind staren.