Email senden ohne Datei
Hartmut_M
Im Tabllenblaatt habe ich eine Schaltfläche, die dazu dienen soll, dass ich eine Email erstelle.
In VBA möchte ich nun die Emailadresse, den Betreff und einen Text als Variablen hinterlegen.
Dann soll das Emailprogramm aufgerufen werden und die Variablen eingetragen werden.
Ich möchte aber nicht die ganze Datei verschicken sondern nur einen Text in die Email einfügen.
Wie bekomme ich das hin?
Gruß Hartmut
Sub mail()
Dim betreff As String
Dim eMailAdresse As String
Dim text as string
betreff = "Test"
eMailAdresse = "max.muster@test.de"
text = "Dies ist mein Text"
Application.Dialogs(xlDialogSendMail).Show eMailAdresse, betreff
End Sub
Anzeige