Inhaltsverzeichnis
Dies ist ein einfaches Beispiel für das Senden einer E-Mail aus Excel.
Klicken Sie hier für ein komplexeres Beispiel: Arbeitsblatt per E-Mail als separate Arbeitsmappe senden. In diesem Beispiel werden auch der Kennwortschutz und andere häufige Probleme behandelt.
| 12345678910111213141516171819202122232425262728 | Unter Mail_Workbook()Application.ScreenUpdating = FalseOutApp als Objekt dimmenOutMail als Objekt dimmen'Anfangsvariablen erstellenSet OutApp = CreateObject("Outlook.Application")Setze OutMail = OutApp.CreateItem(0)'EmailBei Fehler Fortsetzen als nächstesMit OutMail.to = "[email protected]".CC = "".BCC = "".Betreff = "Betreff".Body = "Bodytext"'.Attachments.Add (FilePath) 'Optional, wenn Sie einen Anhang haben.Anzeige' .Senden 'Optional, um das Senden von E-Mails zu automatisieren.Ende mitBei Fehler GoTo 0Setze OutMail = NichtsSet OutApp = NichtsApplication.ScreenUpdating = TrueEnd Sub |
