Sub Mail_Versenden() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .to = "test@test.com" .Subject = "Test Email" .Body = "Nachricht" .Attachments.Add ActiveWorkbook.FullName .Display End ...