Inhalt
✓ Geöffnete Excel-Datei an eine neue Outlook-Mail anhängen
✓ Outlook-Bibliothek aktivieren/Verweis setzen (Extras –> Verweise –> Haken bei “Microsoft Outlook 16.0 Outlook Library” setzen –> OK)
✓ Outlook-Applikation initialisieren
✓ Outlook-Mail initialisieren
✓ Maileigenschaften festlegen: to(Empfänger), CC, BCC, HTMLBody(Inhalt), BodyFormat(HTML-Format)
✓ Mail versenden mit Send
✓ With-Anweisung
✓ Mail anzeigen lassen mit Display
✓ Mail an mehrere Empfänger versenden
✓ Empfänger aus der Excel-Oberfläche auslesen
✓ Strings verketten
✓ Tabellenblätter Ansprechen
✓ Zellen Ansprechen
✓ Signatur beibehalten
✓ Anhang in Mail einfügen
✓ Mail als Entwurf speichern
✓ HTML-Tags, um Text fett zu machen und Zeilenumbrüche einzufügen
✓ Outlook-Bibliothek aktivieren/Verweis setzen (Extras –> Verweise –> Haken bei “Microsoft Outlook 16.0 Outlook Library” setzen –> OK)
✓ Outlook-Applikation initialisieren
✓ Outlook-Mail initialisieren
✓ Maileigenschaften festlegen: to(Empfänger), CC, BCC, HTMLBody(Inhalt), BodyFormat(HTML-Format)
✓ Mail versenden mit Send
✓ With-Anweisung
✓ Mail anzeigen lassen mit Display
✓ Mail an mehrere Empfänger versenden
✓ Empfänger aus der Excel-Oberfläche auslesen
✓ Strings verketten
✓ Tabellenblätter Ansprechen
✓ Zellen Ansprechen
✓ Signatur beibehalten
✓ Anhang in Mail einfügen
✓ Mail als Entwurf speichern
✓ HTML-Tags, um Text fett zu machen und Zeilenumbrüche einzufügen
Code
Sub Mail_erstellen() Dim oApp As New Outlook.Application Dim oMail As Outlook.MailItem Set oMail = oApp.CreateItem(olMailItem) With oMail .BodyFormat = olFormatHTML .Display .To = "[email protected];" & Tabelle1.Range("N1").Value .CC = "[email protected]" .BCC = "[email protected]" .Subject = "Beispiel-Mail" .HTMLBody = "Dies ist ein Beispieltext" & .HTMLBody .Attachments.Add "C:UserskaiweDesktopTestdatei.png" '.Send .Save End With 'Bereitgestellt von VBATrainer: www.vbatrainer.de End Sub