Sub Mail_senden()
Dim Empfaenger As String
Dim EmpfArray() As String
Dim Betreff As String
Dim Zähl As Long
Empfaenger = Range("A51").Value
Betreff = "Betreff"
EmpfArray() = Split(Empfaenger, ";")
Application.Dialogs(xlDialogSendMail).Show EmpfArray, Betreff
End Sub
Sub Mail_senden2()
Dim OutlookApp As Object
Dim Mail As Object
Dim Empfaenger As String
Dim Betreff As String
Empfaenger = Range("A51").Value
Betreff = "Betreff"
Set OutlookApp = CreateObject("Outlook.Application")
Set Mail = OutlookApp.CreateItem(0)
With Mail
.To = Empfaenger
.CC = "name1@domain; name2@domain"
.Subject = Betreff
'Pfad hier für die zu sendende Datei entsprechend anpassen
.Attachments.Add "C:\Users\...\Mail.xlsm"
.Display
End With
Set OutlookApp = Nothing
Set Mail = Nothing
End Sub
