VBA kode som sender mail

har du prøvet at opdele dem med ; ?

Sub Button7_Click()
Dim eMail As String
    eMail = "mail1@mail.dk"
eMail2 = "mail2@mail.dk"
  ActiveWorkbook.SendMail Recipients:=eMail;eMail2
End Sub

:)

Sub Button7_Click()
Dim eMail
eMail = Array("navn1@server.dk", _
            "Navn2@Andenserver.dk")
ActiveWorkbook.SendMail Recipients:=eMail
   
End Sub

bak:
Det virker :-)
Men du kunne vel ikke lige fortælle mig hvad den underscore gør gavn for. Jeg mener hvad funktion har den normalt i en VBA kode.

et mellemrum og Underscoren efter hinanden indikterer at første og anden linie er i samme sætning
Altså det samme som:
eMail = Array("navn1@server.dk", "Navn2@Andenserver.dk")

Når jeg indspiller / laver makroer har jeg ofte excel i den ene side af skæmen og VBA-editoren i den anden, så kan man også se hvad den indspiller samtidig. Derfor er det sommetider en fordel at linierne ikke er så lange.

OK
Tusinde tak for hjælpen :-)