Mail Versenden

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

 

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 = "kaiweissmann@outlook.de;" & Tabelle1.Range("N1").Value 
    .CC = "mail@vbatrainer.de" 
    .BCC = "mail@vbatrainer.de" 
    .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
Share on linkedin
Share on xing
Share on email
Share on whatsapp
Share on facebook

Ähnliche themen

VBATrainer Excel VBA Coaching - Dozent Kai Weissmann

Kai Weissmann

VBA Entwickler

Hallo und schön, dass du hier bist! Schau dich gerne in meinen Blog-Posts um. Falls du Fragen zu einem Thema hast, schreib mir gerne einen Kommentar.

Kai Weissmann

Persönliche Empfehlungen
Mein Kurs

Jetzt registrieren

Close Bitnami banner
Bitnami