Clever-Excel-Forum

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

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ß

SteBen

maninweb