Sub SendMailTo()

Dim objOutlook As Object
Dim objEmail As Object
Dim SendTo, Name, Qte As String

Set objOutlook = CreateObject("Outlook.Application")
Set objEmail = objOutlook.CreateItem(0) ' This Line creats everytime a new message, otherwise the last message will be edited
        
SendTo = Worksheets("Sheet1").Cells(1, 2) 'Emailadresse steht in Reihe 1, Zeile 2
Name = Worksheets("Sheet1").Cells(1, 1) 'Name steht in Reihe 1, Zeile 1
Qte = Worksheets("Sheet1").Cells(1, 3) 'Anzahl steht in Reihe 1, Zeile 3

      With objEmail
        .to = SendTo 'die Mail wird an die Person geschickt, die unter SendTo gespeichert ist, in diesem Fall Reihe 1, Zeile 2
        .CC = "test@yahoo.com" 'du kannst es standart an eine Person in CC schicken, oder kannst wie bei SendTo eine Variable einsetzen, auf Gänsefüßen aufpassen!
        .Subject = "This is a test message" 'Titel/Betreff
        .Body = "Hello Test, your Number is: " & Qte ' 'In diesem Text, gibt es einen Standart Satz mit einer Variablen Anzahl, in diesem Beispiel Qte definiert als Reihe 1 Zeile 3
        .Attachments.Add "C:\Privat\Test\Beispill.pdf" 'Du kannst einen Anhang aus deinem Ordner dazusetzen (Kannst du aber auch weg lassen)
        .Display        ' Display the message in Outlook. 'Hier wird dir die Mail als Pop Up angezeigt (Kannst du aber auch weg lassen)
        .Save           ' Save as draft 'Hier wird die Mail als Draft gespeichert, du kannst sie ggf. anschließend noch bearbeiten

        .Send          ' Alternativ kanns du natürlich auch direkt senden
    End With
    
    ' CLEAR.
    Set objEmail = Nothing:    Set objOutlook = Nothing 'Hier wird alles gespeicherte wieder zurück gesetzt, falls du eine Schleife in der Mail einbaust
        

End Sub