Thema Datum  Von Nutzer Rating
Antwort
Rot Worddokument in PDF wandeln und E-Mail mit Anhang öffnen
21.01.2021 18:38:55 Majohr
NotSolved
21.01.2021 23:39:20 Gast48543
NotSolved

Ansicht des Beitrags:
Von:
Majohr
Datum:
21.01.2021 18:38:55
Views:
976
Rating: Antwort:
  Ja
Thema:
Worddokument in PDF wandeln und E-Mail mit Anhang öffnen

Guten Abend,

leider bin ich völliger Anfänger.

Ich habe in meiner Word einen Button eingefügt.

Bei Klick auf den Button soll sich die Word in eine PDF umwandeln und sich eine E-Mail mit Anhang öffnen.

Mit der Aufzeichnung klappt es nicht. Hat jemand einen Code zur Hand? DANKE

 

Mit nachstehendem Code geht es auch nicht:

 


Private Sub CommandButton1_Click()

     
   Dim app   As Object
   Dim file  As String
   Dim isNew As Boolean

   file = ActiveDocument.Name & ".pdf"

   ActiveDocument.ExportAsFixedFormat wdExportFormatPDF, Environ("TEMP") & "\" & file

   On Error Resume Next
   Set app = GetObject(, "Outlook.Application")
   If app Is Nothing Then
      Set app = CreateObject("Outlook.Application")
      isNew = True
   End If

   With app.CreateItem(0)
      .To = "bd31@gmx.de"
      .CC = ""
      .BCC = ""
      .Subject = "Anlage: " & file

      .Body = "Sehr geehrte Damen und Herren." & vbCr _
            & vbCr _
            & "Anbei das Excel-Dokument als PDF." & vbCr _
            & vbCr _
            & "Mit freundlichen Grüßen."

      .Attachments.Add Environ("TEMP") & "\" & file
      
           
   End With

   If isNew Then app.Quit
End Sub

 


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 Worddokument in PDF wandeln und E-Mail mit Anhang öffnen
21.01.2021 18:38:55 Majohr
NotSolved
21.01.2021 23:39:20 Gast48543
NotSolved