Fehler beim Emailversand
Jenny
ich habe eine Tabelle mit einem Button, dem nachfolgendes Makro zugewiesen ist, das leider noch nicht ganz so funktioniert, wie geplant. :-)
Ziel:
Beim Klick auf den Button soll eine neue Email im bereits geöffneten Email-Programm (ist permanent geöffnet) erstellt werden.
Dabei sollen Empfänger, Betreff und Anrede der Email via VBA vorgegeben werden, die Email soll jedoch nicht sofort verschickt werden, so dass dort bei Bedarf noch Text ergänzt werden kann.
Wichtig ist dabei, dass keine Datei (auch nicht die aktuelle) an die Email angefügt wird.
Problem:
Das ganze soll sowohl unter Outlook, als auch unter Windows Mail funktionieren.
Sub Email()
' Keyboard Shortcut: Ctrl+e
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "Test Anrede" & vbNewLine & vbNewLine & _
"" & vbNewLine & _
"Test Text"
On Error Resume Next
With OutMail
.To = "test@test.com"
.Subject = "Test Betreff"
.Body = strbody
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
LG,
Jenny