Send aktivt ark som pdf - VBA

Sub mail()
'
' mail Makro
ActiveSheet.Copy
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\torb6759\AppData\Local\Temp\test send mail.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
      Application.Dialogs(xlDialogSendMail).Show
      ActiveWorkbook.Close False
End Sub

Hej Kabbak

Det virker ikke - hele regnearket vedhæftes som xlsx fil

Tville

Test lige denne kode. Den vil også kunne sende.

Sub SendFileAsPDF()
    Dim mailthis As Object
    Dim OutApp As Object
    Dim MyFile As String
    Dim tmpFolder As String
   
    Set OutApp = CreateObject("Outlook.Application")
    Set mailthis = OutApp.CreateItem(0)

    Application.ScreenUpdating = False
    tmpFolder = Environ("temp")

    MyFile = tmpFolder & "MinPDFFil" & ".pdf"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                    MyFile, _
                                    Quality:=xlQualityStandard, IncludeDocProperties:=False, _
                                    IgnorePrintAreas:=True, OpenAfterPublish:=False

    mailthis.Attachments.Add MyFile
    Application.ScreenUpdating = True
    On Error GoTo GetOut

GetOut:
    'Send the message
    mailthis.Display
    Kill MyFile
End Sub

der manglede lige en backslash
MyFile = tmpFolder & "\MinPDFFil" & ".pdf"

I din kode har du brugt 
Application.Dialogs(xlDialogSendMail).Show
den vil altid kun gribe det aktive regneark og ikke andre filer

Hej Bak

Det virker bare helt perfekt. Tak skal du have.
Hvordan giver jeg dig point?

Jeg laver lige et svar, som du kan acceptere.