Gem ark som PDF og åben mail, klar til afsendelse

Hejsa,

Nu fik jeg da hjælp til og løst det med filnavnet :)

Men har denne kode, som jeg har googlet og prøvet mig frem med, men den vil ikke åbne mail programmet.
Jeg kører bruger Office 365.
Mener at have læst at der er flere måder at gøre det på. Men den ene måde skulle understøtte at man også kan køre koden på andre PC'er.

Nedenstående kode virker så langt at den gemmer arket som PDF, men så sker der heller ikke mere.
Nogen der kan sparke mig i den rigtige retning?

Sub Gem_som_PDF_OG_mail()
'
' Gem_som_PDF_OG_mail Makro
'
Dim thisPath As String, docName As String

thisPath = Application.ActiveWorkbook.Path

docName = thisPath & "\TO " & Range("C4") & " - " & Range("C6") & " - " & Range("C5")

Sheets("TO dansk").Activate
'Range("C4").Select
With Sheets("TO dansk")
    .ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=docName, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False 'True
'End With


'Option Explicit


    On Error GoTo err_handler

    Dim oApp As Outlook.Application
    Dim oMail As Outlook.MailItem

    Set oApp = CreateObject("Outlook.application")
    Set oMail = oApp.CreateItem(0)
   
       
    Dim folderPath As String
    'Dim pdfFileName As String
   
    '// Construct the file path and name
    'folderPath = "C:\Users\exampleuser\emails\"
    'pdfFileName = Sheets("Sheet1").Range("C1").Value & ".pdf"
   
    '// Export the workbook as PDF
  ' ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=folderPath & pdfFileName
   
    '// Open Outlook and create a new email
    Set oApp = Outlook.Application
    Set oMail = oApp.CreateItem(olMailItem)
   
    With oMail
        .To = "hha@shipyard.dk" 'Sheets("Sheet1").Range("B5").Value
        .CC = "example@myemail.com"
        .Subject = "Enjoy the attached: " & docName 'pdfFileName
        .body = "This is a test..." 'This is the text that will appear in the body of the email. Remove it if not needed.
        .Attachments.Add Source:=docName, Type:=xlTypePDF  'folderPath & pdfFileName, Type:=xlTypePDF
        .Display 'This will display the email so you can review it before sending. If you want to send it automatically replace .Display with .Send
    End With
   
    If oApp Is Nothing Then
  MsgBox "Could not start Outlook.", vbInformation
  Exit Sub
End If

clean_exit:
    Set oMail = Nothing
    Set oApp = Nothing
    Exit Sub
   

err_handler:
    'Something has gone wrong, spit out an error messsage
    MsgBox Err.Number & ": " & Err.Description, vbCritical, "Error"
    GoTo clean_exit

End Sub