Inhalt einer Zelle als Betreff in E-Mail einfügen
05.11.2019 16:32:23
Martin
ich habe mal wieder ein kleines Problem.
Ich würde gerne mit dem klick auf einen Button eine neue E-Mail öffnen und dann den Inhalt der Zelle "M121" in den Betreff kopieren. Ohne den Inhalt der Zelle nur mit dem Text "Test" klappt das schon.
Sub EmailErstellenUndManuellVersenden()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.Subject = "Inhalt Zelle M121"
.Body = "Servus"
.Display
End With
End Sub
Vielen Dank.
Grüße aus Rosenheim
Martin