PDF als bijlage in de mail

[Roma]

Beste,
Ik heb een code die een mail verstuurd en een PDF file als bijlage.
Deze werkt uitstekend. Maar ik heb de plaatsing waar de files veranderd. (De gebruiker kan dit nu zelf instellen)
Nu krijg ik het niet meer voor elkaar om de bijlage te versturen.
Wie heeft hier een oplossing voor.
Wat in het rood staat was het oude adres

    ' PDFmaken en mailen
     Unprotect ""
         'Map maken cel=naam map
  With Sheets("Instellingen")
  If Len(Dir(sHoofdmap & .[F30], vbDirectory)) = 0 Then MkDir sHoofdmap & .[F30]
  If Len(Dir(submap & .[F31], vbDirectory)) = 0 Then MkDir subdmap & .[F31]
  If Len(Dir(submap & .[F32], vbDirectory)) = 0 Then MkDir subdmap & .[F32]
  If Len(Dir(submap & .[F33], vbDirectory)) = 0 Then MkDir subdmap & .[F33]
   End With
  Application.ScreenUpdating = False
          With Sheets("Faktuur")
      .Range("b6:K71").ExportAsFixedFormat 0, .Range("A1") & "\" & .Range("C18") & .Range("F31") & .Range("F30") & ".pdf"
       End With
  Sheets("Faktuur").Range("B33:J61").ClearContents
  Application.ScreenUpdating = True
        ''  [COLOR="#FF0000"]Fname = "C:\Fakturen\" & Range("C18") & Range("F31") & Range("F30") & ".pdf"[/COLOR]          Range("B6:K71").ExportAsFixedFormat 0, Fname
        Unprotect ""
   [B33:J61].ClearContents
    [F30] = [F30 + 1]
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = Sheets("Faktuur").Range("A11").Value
        .CC = ""
        .BCC = ""
        .Subject = "Betreft faktuurnr."
            '.Body = StrBody
        .Attachments.Add Fname
        .Display '.Send
      ''  Else
    End With
    Protect ""
End Sub

 

[Roma]

is opgelost