Übergabe Subject und Body aus Outlook-Kommandozeile funktioniert nicht mehr

Da antworte ich mir mal selbst ;-)

In den vergangenen Tagen gab es ein paar Windows-Updates die anscheinend das Problem gelöst haben.

Es funktioniert jetzt der Body bei der "halbautomatischen " Variante (siehe Code direkt darüber) wie auch das:

With ActiveWorkbook

.sendmail Recipients:="*** Die E-Mail-Adresse wurde aus Datenschutzgründen entfernt. ***", Subject:="Subject der Mail"

.Close savechanges:=False

End With

(Code vom Themenanfang)

Irgendjemand scheint also von den Problemen gehört zu haben ;-)

MfG

Tom

Mit SendObject kannst du nur Anhänge versenden. Wenn du den Body setzen willst, kannst du das per Outlook Automation in VBA. Beispiel:

Sub TestMail()    Dim objOL As Object

    Dim objMail As Object

    Set objOL = CreateObject("Outlook.Application")

    If objOL Is Nothing Then    

        MsgBox "Outlook nicht installiert", vbExclamation

        Exit Sub

    End If

    Set objMail = objOL.CreateItem(0) '0=olMailItem

    With objMail      .Recipients.Add "empfaenger@outlook.com"

      .Body = "Hier kommt der Inhalt deiner Anfrage hin."

      .Subject = "Und hier der Betreff"

      '.Attachments.Add strFile 'Falls ein Anhang rein soll.

      .Send    End With
    Set objMail = Nothing  'Aufraeumen

    Set objOL = NothingEnd Sub
(Luftcode)
Gruss - Peter

Danke für die Antwort!

Dann nützt mir das leider alles nichts...

1. Geht es um das Versenden einer Exceldatei und

2. MUSS es ohne Outlook-Objektmodell funktionieren, weil nicht alle Outlook besitzen

Also dann doch wieder sendmail, was aber in Excel 2013 nicht richtig (Body wird nicht übertragen) und in Excel 2016 eigentlich gar nicht sinnvoll (kein Body, kein Betreff) funktioniert...

MfG

Tom

hab den Dateinamen mal in die Kommandozeile eingegeben, hat nicht funktioniert.

Vielen Dank. Ich verwende Office Professional Plus 2016
<br />


<br />