CODE-SCHNIPSEL

Option Explicit
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_mailsend.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.online-vba.de
' ****************************************************************

Public Sub OVBAde_Mailversand()
   Dim oAppOutlook As Object
    
    Set oAppOutlook = CreateObject("Outlook.Application")
    With oAppOutlook.CreateItem(0)
        .To = "info@wershovenonline.de" 'E-Mail Empfänger
        .CC = "max.m@online-vba.de" 'E-Mail Kopie an
        .BCC = "berta.b@online-vba.de" 'E-Mail Blind-Kopie an
        .Subject = "Betreffzeile" 'E-Mail Betreffzeile
        .Body = "Mail-Inhalt ..." 'E-Mail Inhalt
        .Attachments.Add "C:/Beispieldatei.pdf" 'E-Mail Anhang
        .Display 'E-Mail anzeigen
    End With
    
    Set oAppOutlook = Nothing
End Sub