E-Mail ohne Makros automatisch versenden.

Sub mail()
Dim eMailEmpfänger
ReDim eMailEmpfänger(1 To 2)
eMailEmpfänger(1) = "Fuhrmann, Frederik"
eMailEmpfänger(2) = "Mustermann, Hans"
Betreffzeile = "Betrefftext"
ActiveWorkbook.SendMail eMailEmpfänger, Betreffzeile

End Sub

Funktioniert echt super, leider werden auch die Makros, bzw. der o. g. Code
mit gemailt , was nicht so toll ist, denn auch der Empfänger kann dann
diesen Button drücken und ab geht die Mail an besagte 2 Personen.
Gibt es eine Möglichkeit den Code zu verändern und die Makros nicht mit
Zu versenden ??

Danke das ihr helft, Gruß, Ralf F.