Automatisk email med VBA

Hej Alle eksperter

Jeg har denne VBA kode som jeg bruger til en knap der generere en automatisk email. Jeg har brugt den på et andet Excel dokument før og skal nu bruge den på et nyt. Men jeg får fejl når jeg kører den. Den siger "Denne fil blev ikke fundet".
Linjen fejlen kommer på har jeg skrevet FEJL helt ude til højre.
Kan ikke selv se hvad fejlen skulle være, når præcis samme kode virker et andet dokument.
Håber i kan hjælpe...

Private Sub CommandButton1_Click()

Dim IsCreated As Boolean
  Dim i As Long
  Dim PdfFile As String, Title As String
  Dim OutlApp As Object

  ' Not sure for what the Title is
  Title = Range("A1")

  ' Define PDF filename
  PdfFile = ActiveWorkbook.FullName
  i = InStrRev(PdfFile, ".")
  If i > 1 Then PdfFile = Left(PdfFile, i - 1)
  PdfFile = Format(Now(), "MM-DD-YYYY") & " Ordre" & ".pdf"

  ' Export activesheet as PDF
  With ActiveSheet
    .PageSetup.PaperSize = xlPaperLegal
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  End With

  ' Use already open Outlook if possible
  On Error Resume Next
  Set OutlApp = GetObject(, "Outlook.Application")
  If Err Then
    Set OutlApp = CreateObject("Outlook.Application")
    IsCreated = True
  End If
  OutlApp.Visible = True
  On Error GoTo 0

  ' Prepare e-mail with PDF attachment
  With OutlApp.CreateItem(0)

' Prepare e-mail
.Subject = "Faber-Castell ordre" & Format(Now(), "MM-DD-YYYY")
.To = "sale@email.com" ' <-- Put email of the recipient here
.CC = "" ' <-- Put email of 'copy to' recipient here
.Body = "Ordre " & vbLf & vbLf _
      & "" & vbLf & vbLf _
      '& "Regards," & vbLf _      (slet (') for regards Faber-Castell)
      '& Application.UserName & vbLf & vbLf
.Attachments.Add PdfFile                                                                      FEJL

' Try to send
On Error Resume Next
.display
Application.Visible = True
If Err Then
  MsgBox "E-mail was not sent", vbExclamation
Else
  MsgBox "Din ordre er hermed afgivet", vbInformation
End If
On Error GoTo 0

  End With

  ' Delete PDF file
  Kill PdfFile

  ' Release the memory of object variable
  Set OutlApp = Nothing


End Sub