Copy werkblad mailen naar meerdere adressen uit textbox

[Christophe1]

Goede morgen

Ik heb dankzij deze site al heel wat tips gevonden en volgende code gemaakt:

Dim c00 As String
  c00 = Environ("temp") & Split(ThisWorkbook.Name, ".")(0) & Format(Now, " dd-mmm-yy hh-mm-ss") & ".xlsx"
  ActiveSheet.Copy
  With ActiveWorkbook
    .Sheets(1).UsedRange = .Sheets(1).UsedRange.Value
    .SaveAs c00, 51
    .Close 0
  End With
  
  With CreateObject("Outlook.Application").createItem(0)

  c01 = (Array(Rapportage_GoPro_UserForm.Rapportage_GoPro_TextBox1.Value, Rapportage_GoPro_UserForm.Rapportage_GoPro_TextBox2.Value))
   
    .to = c01
    .Subject = "Rapportage GoPro"
    .Body = "Beste, in bijlage vind u de rapportage."
    .Attachments.Add c00
    .send

  End With
  Kill c00

De macro werkt maar het loop mis op ".to = c01"
Vreemd genoeg gaat het wel als ik bij "c01 =" slechts één verwijzing plaats, nu met Array om meerdere adressen toe te voegen loop het mis.
Weet iemand waar ik fout zit a.u.b.?
Alvast bedankt

Groetjes
Christophe

 

[edmoor]

Doe het eens zo:

c01 = Rapportage_GoPro_UserForm.Rapportage_GoPro_TextBox1.Text & ";" & _
      Rapportage_GoPro_UserForm.Rapportage_GoPro_TextBox2.Text

 

[Christophe1]

Dank u we Edmoor, het gaat de goede kant op Ik krijg nu het venster om toe te staan een mail te versturen.
Ik krijg nu wel een foutmelding op ".send"

 

[edmoor]

Wat is de foutmelding?
Maak van die puntkomma eens een komma.

 

[Christophe1]

Hoe het kan lopen... door die puntkomma te willen aanpassen merkte ik dat ik geen puntkomma had gezet maar een "/"...
Het werkt dus perfect met die puntkomma.
Heel hard bedankt Edmoor.

Vriendelijke groeten
Christophe

 

[edmoor]

Ok dan.
En graag gedaan