Thema Datum  Von Nutzer Rating
Antwort
Rot xls -> code Outlook/Mail öffnen und Datei einfügen
07.11.2022 10:37:15 TobiTobson
NotSolved
09.11.2022 17:19:50 Gast83990
NotSolved

Ansicht des Beitrags:
Von:
TobiTobson
Datum:
07.11.2022 10:37:15
Views:
113
Rating: Antwort:
  Ja
Thema:
xls -> code Outlook/Mail öffnen und Datei einfügen

Hallo Zusammen,

in einer bestehenden xls-Datei habe ich folgenden code zum öffnen von Outlook und einer neuen Mail inkl. dem Einfügen einer pdf:

 

Sub Mail_Senden

    Dim MyMessage As Object, MyOutApp As Object
    Dim Qe, korrekt As Integer
    Dim AWS, Link As String

    AWS = PDF_Datei

    Set MyOutApp = CreateObject("Outlook.Application")
    
    Set MyMessage = MyOutApp.CreateItem(0)
    With MyMessage
              
        .To = "max.mustermann@mail.de "
       
        .Subject = "Betreffzeile"
        .Body = "Sehr geehrte Damen und Herren," & vbCrLf & vbCrLf & "das ist der Text der Mail." & vbCrLf & "Bitte lesen, danke." & vbCrLf & vbCrLf & vbCrLf & "Mit freundlichen Grüßen" & vbCrLf & vbCrLf & "Der Mailschreiber"
        .Attachments.Add AWS
        .Display    'Mail anzeigen

    End With
    Set MyOutApp = Nothing
    Set MyMessage = Nothing

End Sub

 

Der Befehl ".Attachments.Add AWS" funktioniert auf Grund von firmeninternen-IT-Richtlinien nicht. Mein Idee ist jetzt, dass wenn die Mail erstellt wird per "Öffnen eines Dateidialogs in einem bestimmten Ordner" die Datei sozusagen händisch in die Mail einzufügen. Der Dateidialog muss entsprechend in den code rein.

Leider sind meine VBA-Kentnisse eher schlecht als recht.

Kann ir hier jemand weiterhelfen?!

DAnke Tobi

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot xls -> code Outlook/Mail öffnen und Datei einfügen
07.11.2022 10:37:15 TobiTobson
NotSolved
09.11.2022 17:19:50 Gast83990
NotSolved