Clever-Excel-Forum

Moin,

unzwar ich hab ein kleines Problem.
Ich möchte unabhänig vom Pfad eine PDF erstellen und diese in Outlook einfügen zum versenden.

Eigentlich funktioniert alles Perfekt, allerdings nicht auf einen anderen Rechner.
Bei mir speichert er Temporär die PDF und fügt sie in Outlook ein.

Bei anderen kommt ein Laufzeitfehler "2147024894" - Überprüfen sie den Pfad und Dateinamen.

Code:

Code:
Dim strPDF As String

Dim OutlookApp As Object, strEmail As Object

Set OutlookApp = CreateObject("Outlook.Application")

Set strEmail = OutlookApp.CreateItem(0)

Range("A1:J144").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

   Range("N4") & ".pdf", Quality:=xlQualityStandard _

  , IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _

  :=False

strPDF = Range("N4") & ".pdf"

With strEmail

  .To = ""

  .Subject = Range("N4")

  .Body = "Hier könnte ihr Text stehen"

  .Attachments.Add strPDF

  .Display

  Kill strPDF

End With

Set OutlookApp = Nothing

Set strEmail = Nothing

End Sub

Er erkennt den strPDF nicht. Aber wie gesagt nur bei anderen Computern. Ich habe die EXEL auf ein Sharepoint bei mir funktioniert es ohne Probleme?

Vielleicht mal so probieren...habe Environ hinzugefügt Smile

Code:
Sub ExportundEmail()

    Dim strPDF As String

    Dim OutlookApp As Object, strEmail As Object

    Set OutlookApp = CreateObject("Outlook.Application")

    Set strEmail = OutlookApp.CreateItem(0)

    Range("A1:J144").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

       Environ("temp") & "\" & Range("N4") & ".pdf", Quality:=xlQualityStandard _

      , IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _

      :=False

    strPDF = Environ("temp") & "\" & Range("N4") & ".pdf"

    With strEmail

      .To = ""

      .Subject = Range("N4")

      .Body = "Hier könnte ihr Text stehen"

      .Attachments.Add strPDF

      .Display

      Kill strPDF

    End With

    Set OutlookApp = Nothing

    Set strEmail = Nothing

End Sub

bei mir funktioniert es so ohne Probleme, anbei die Datei zum testen. [attachment=47943]

Hoffe es hilft Ihnen!

zur Info CP
https://www.ms-office-forum.net/forum/sh...p?t=385513

DoubleDenU

Niko

DIZA