Thema Datum  Von Nutzer Rating
Antwort
Rot Excel Tabellen Blatt als PDF per E-Mail versenden
 15.03.2017 11:22:29 Daniel
NotSolved
15.03.2017 17:58:24 gast
NotSolved
15.03.2017 18:08:47 Daniel
NotSolved
15.03.2017 18:28:32 gast
NotSolved
15.03.2017 18:34:11 Daniel
NotSolved
15.03.2017 18:44:22 gast
NotSolved
15.03.2017 19:02:51 Daniel
NotSolved

Ansicht des Beitrags:
Von:
Daniel		 Datum:
15.03.2017 11:22:29		 Views:
1316		 Rating:
     
Antwort:
  Ja
Thema:
Excel Tabellen Blatt als PDF per E-Mail versenden		 
Kann mir jemand verraten warum ich den "Laufzeitfehler 424 Objekt erforderlich" immer bekomme?
Ich seh gerade den Wald vor lauter Bäumen nicht mehr.

Public Sub TabelleAlsPdf()

Dim olApp      As Object
Dim AWS        As String
Dim olOldBody  As String
Dim strAddress As String
Dim i          As Integer

Rem Pfad für PDF festlegen
AWS = "C:\Users\wilcek\Documents\Protokol.pdf"

Rem Tabelle1 als PDF speichern
ThisWorkbook.Sheets("Tabelle1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=AWS

Rem Email erstellen
Set olApp = CreateObject("Outlook.Application")
    With olApp.CreateItem(0)
              
              
              .GetInspector.Display
              olOldBody = .htmlBody
              
              .To = Range("A30").Value
              .Subject = "***INTERN*** Projektnummer: " & " " & ThisWorkbook.Worksheets("Tabelle1").Range("B19") & _
                                                                                                " Checkliste ***INTERN***" 'Betreff
              .htmlBody = "Hallo,<br><br>" & _
                          "anbei finden Sie die Checkliste zum Projekt: & " _
                           & _
                          "<br><br>" & _
                          olOldBody ' Body. "<br>" = Zeilenumbruchanweisung
              .Attachments.Add AWS 'Datei anhängen
              .Display
              .send.Value
    End With

'ActiveWorkbook.Close savechanges:=False  'Schließen ohne zu speichern

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 Excel Tabellen Blatt als PDF per E-Mail versenden
 15.03.2017 11:22:29 Daniel
NotSolved
15.03.2017 17:58:24 gast
NotSolved
15.03.2017 18:08:47 Daniel
NotSolved
15.03.2017 18:28:32 gast
NotSolved
15.03.2017 18:34:11 Daniel
NotSolved
15.03.2017 18:44:22 gast
NotSolved
15.03.2017 19:02:51 Daniel
NotSolved