Werkmap mailen naar meerdere contactpersonen

[Christophe1]

Goede morgen

Ik ben al een tijdje aan het zoeken op jullie site maar ik vind de oplossing nergens.
Ik wil een document mailen naar meerdere adressen en wat ik ook doe, het lukt niet.
Eén adres is geen probleem, maar zodra ik er één bij zet lukt het niet meer.
Ik probeerde al met kommen, kommapunt, ampersand, ...

Dit is mijn code (die werkt):

Bestandsnaam$ = "N:\Data\02_Algemeen\08. Logistiek\Rapportages\" & ActiveSheet.Name & ".xlsx"
With ActiveWorkbook
        .SaveAs Bestandsnaam$
        
        With ActiveWorkbook
        .SendMail "christophe@xxx.be", "Rapportage"

        
    End With
        
        .Close

Hoe kan ik nu na "christophe@xxx.be een 2de adres toevoegen a.u.b.?

Groetjes
Christophe

 

[ExcelAmateur]

Kijk even of dit misschien wat voor je is, of kunt aanpassen,
https://www.helpmij.nl/forum/showthread.php/876019-Mailen-met-meerdere-adressen?p=5640791&highlight=mailen+naar+meerdere+personen#post5640791

 

[Christophe1]

ExcelAmateur, ik vond in de link
http://www.snb-vba.eu/VBA_Excelgegevens_mailen.html#L22
volledig wat ik zocht.

Mijn code is nu:

Bestandsnaam$ = "N:\Data\02_Algemeen\08. Logistiek\Rapportages\" & ActiveSheet.Name & ".xlsx"
With ActiveWorkbook
        .SaveAs Bestandsnaam$
        
 ActiveWorkbook.SendMail Array("christophe@xxx.be", "christophe.xxx@xxx.be"), "onderwerp"


        
        .Close

Bedankt voor de tip

 

[ExcelAmateur]

Je had dus niet goed gezocht maar toch graag gedaan.