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
