PDF gleichzeitig per Mail schicken und drucken

[SteBen]

Hallo zusammen,

ich hab das gleiche Problem & komme leider auch mit der Erklärung hier nicht weiter -.-

Ich möchte den Druckbereich des akiven Arbeitsblattes als pdf Dokument per email versenden & gleichzeitig drucken.

Ich benutze folgendes Makro:

Code:

Sub druck()

Range("A1:G40").Select
Selection.PrintOut Copies:=1
Dim app   As Object
   Dim file  As String
   Dim isNew As Boolean

   file = ActiveSheet.Range("D4") & ".pdf"

   ActiveSheet.ExportAsFixedFormat xITypePDF, [color=#ff3333][b]Environ [/b][/color]("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 = "xyz@xyz.de"
      .CC = "xyz@xyz.de"
      .BCC = "xyz@xyz.de"
      .Subject = ActiveSheet.Range("D4") & "ETIN"

      .Body = ActiveSheet.Range("D4") & " BILLING SHEET"

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

   If isNew Then app.Quit
End Sub

Problem an der Sache, bei mir funktioniert das, wie gewünscht. Nur bei meinen Kollegen klappt es eben nicht & sie werden immer auf einen Fehler im obigen, rot markierten Abschnitt hingewiesen.

Jemand eine Idee, woran es liegen könnte?

Viele Grüße
SteBen

Beitrag abgetrennt aus diesem Thread: https://www.clever-excel-forum.de/Thread...und-senden

[maninweb]

Hallo,

möglicherweise existiert die Umgebungsvariable nicht auf dem betroffenen Rechner oder der User hat keine
Schreibrechte. Könntest über MsgBox Environ("TEMP") das mal an dem betroffenen Rechner abfragen.

Gruß