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
|