Pdf mit Outlook senden

Mike · 2023-08-08T10:07:19+00:00

Hallo zusammen, ich habe den nachfolgenden VBA Code erstellt und bei mir getestet. Er funktioniert bei mir wie gewünscht. Der gleiche code führt bei meinen Kollegen zu Laufzeitfehler 1004, obwohl auch bei ihnen die Microsoft Outlook 16.0 Object Library angehackt ist. Eine Kopie des Tabellenblatts wird zwar angelegt, die nachfolgende Outlook Nachricht wird jedoch nicht geöffnet. Sub PDF() 'PDF erstellen Application.DisplayAlerts = False Dim aws As String Dim olapp As Object ActiveSheet.Copy ActiveSheet.Unprotect "save" ActiveSheet.UsedRange.Copy ActiveSheet.UsedRange.PasteSpecial Paste:=xlPasteValues ActiveSheet.Protect "save" ActiveWorkbook.Save aws = ActiveWorkbook.FullName Set olapp = CreateObject("Outlook.Application") With olapp.CreateItem(0) .To = "test@test.de" 'Empfänger .HTMLBody = "Hallo " 'Body .Subject = "Test" 'Betreff '.ReadReceiptRequested = True 'Lesebestätigung anfordern .Attachments.Add aws .Display End With Set olapp = Nothing Application.DisplayAlerts = True End Sub Woran kann das liegen? Gruß Mike

Hallo Mike,

es wird hier mit "Late Binding" gearbeitet, da ist es egal, ob die entsprechende Library angehakt ist.

Außerdem müsste man wissen, wo (gelb hinterlegt) der Fehler auftritt.
Oder mal mit Einzelschritt durchgehen...
Wird z.B. in oLapp ein Wert gesetzt usw.?

Gruß
Karl-Heinz

Hier noch eine kleine Abwandlung als Anregung incl. Signatur

Sub PDF()

' PDF erstellen

  Application.DisplayAlerts = False



  With ActiveSheet

     .Copy

     .Unprotect "save"

     .UsedRange.Copy

     .UsedRange.PasteSpecial Paste:=xlPasteValues

     .Protect "save"

  End With

  ActiveWorkbook.Save



  With CreateObject("Outlook.Application").CreateItem(0)

     .GetInspector.Display

     .To = "test@test.de" ' Empfänger

     .htmlbody = "Hallo " & "
" & .htmlbody ' Body

     .Subject = "Test" ' Betreff

     ' .ReadReceiptRequested = True 'Lesebestätigung anfordern

     .Attachments.Add ActiveWorkbook.FullName

  End With

  

  Application.DisplayAlerts = True

End Sub

Hallo zusammen,

der erste nachfolgende code von Karl-Heinz läuft bei mir einwandfrei.

Sub PDF()
' PDF erstellen
Application.DisplayAlerts = False

With ActiveSheet
.Copy
.Unprotect "save"
.UsedRange.Copy
.UsedRange.PasteSpecial Paste:=xlPasteValues
.Protect "save"
End With
ActiveWorkbook.Save

With CreateObject("Outlook.Application").CreateItem(0)
.GetInspector.Display
.To = "test@test.de" ' Empfänger
.HTMLBody = "Hallo " & "" & .HTMLBody ' Body
.Subject = "Test" ' Betreff
' .ReadReceiptRequested = True 'Lesebestätigung anfordern
.Attachments.Add ActiveWorkbook.FullName
End With

Application.DisplayAlerts = True
End Sub

Eine Kopie des Tabellenblatts wird erstellt und schreibschützt in eine E-Mail gelegt. Bei jedem Ausführen wird eine neue Mappe1, Mappe2 usw. erstellt. Ich müsste nur noch auf Senden drücken.

Bei meinen Kollegen bleibt die Prozedur jedoch bei der geöffneten geschützten Kopie der Arbeitsmappe (Mappe 1, Mappe 2 ...) stehen. Outlook wird nicht geöffnet und die Fehlermeldung angezeigt. Es muss irgendwie an den Benutzereinstellungen liegen, denn der Fehler wird bei meinem Kollegen selbst mit meinem PC erzeugt.

Alle weiteren Modifikationen führen bei mir zu dem genannten Fehler.

Gruß Mike

Forumthread: Pdf mit Outlook senden

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial