Send pdf og indsæt excel celler i mail med makro

Hej alle

Jeg har to spørgsmål, det kan være at løsningen allerede er blevet skrevet, men jeg kan ikke få det til at virke i min makro.

Derfor beder jeg om specifikt hjælp til min makro.

De to spørgsmål er:
1) hvordan får jeg pdf-filen sendt med min email?
(jeg kan sagtens sende excel-filen, men jeg kan ikke få den til at sende pdf-filen i stedet for.)

2) Indsætte tekst fra celle R17 i sheet Input i min EmailBody.

På forhånd tak for hjælpen.
Mvh. Mette

Min macro:

Sub Makro1()
        Application.ScreenUpdating = False
       
        sidsterække = Sheets("Deltagere").Columns(1).Range("A65536").End(xlUp).Row
       
        For x = 2 To sidsterække
       
        nr = Sheets("Deltagere").Cells(x, 6)
        Dyrker = Sheets("Deltagere").Cells(x, 2)
        Email = Sheets("Deltagere").Cells(x, 1)
        Filnavn2 = "Resultat ID " & Sheets("Deltagere").Cells(x, 6) & " " & Dyrker
           
        Sheets("Resultatmall2").Cells(1, 1) = Sheets("Deltagere").Cells(x, 2)
               
        'Spørgsmål 1
        Sheets("Resultatmall2").Cells(5, 3) = Sheets("Input2").Cells(3, x + 5)
        Sheets("Resultatmall2").Cells(5, 4) = Sheets("Input2").Cells(4, x + 5)
        Sheets("Resultatmall2").Cells(5, 5) = Sheets("Input2").Cells(5, x + 5)
        Sheets("Resultatmall2").Cells(5, 6) = Sheets("Input2").Cells(6, x + 5)
        Sheets("Resultatmall2").Cells(5, 7) = Sheets("Input2").Cells(7, x + 5)
        Sheets("Resultatmall2").Cells(5, 8) = Sheets("Input2").Cells(8, x + 5)
        Sheets("Resultatmall2").Cells(5, 9) = Sheets("Input2").Cells(9, x + 5)
        Sheets("Resultatmall2").Cells(5, 10) = Sheets("Input2").Cells(10, x + 5)
        Sheets("Resultatmall2").Cells(5, 11) = Sheets("Input2").Cells(11, x + 5)
               
    Sheets("Resultatmall2").Cells(124, 11) = Sheets("Input2").Cells(81, x + 5)
       
    Filensnavn = ActiveWorkbook.Name
    Navnlængde = Len(ActiveWorkbook.Name)
    Fullnavnlængde = Len(ActiveWorkbook.FullName)
    Filplacering = Left(ActiveWorkbook.FullName, Fullnavnlængde - Navnlængde)

'Kopiere resultatfilerne
    Sheets(Array("Resultat")).Select
    'Sheets("Frågor").Activate
    Sheets(Array("Resultat")).Copy
   
    Filnavn = Filnavn2
   
   
   
    PDFnavn = Filplacering & Filnavn
 
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    PDFnavn, Quality:=xlQualityStandard

   
    ActiveWorkbook.SaveAs Filename:= _
    Filplacering & Filnavn, FileFormat:= _
    xlOpenXMLWorkbook, CreateBackup:=False
   
   
   
    'Send filen via mail
        Dim OutlookApp As Object
        Dim OutlookMail As Object
       
       
        Set OutlookApp = CreateObject("Outlook.Application")
        Set OutlookMail = OutlookApp.createItem(0)
        On Error Resume Next
   
   
        Set OutlookMail = OutlookApp.createItem(0)
        On Error Resume Next
        With OutlookMail
        .To = Email
        .CC = ""
        .BCC = ""
        .Subject = "Resultat af spørgerunde 1"
        .Body = "Hej " & Dyrker & "." & vbCrLf & vbCrLf & "tekst fra Celle R17" & vbCrLf & vbCrLf & " Med venlig hilsen XX"
        .Attachments.Add Application.ActiveWorkbook.FullName
        .Send
        End With
        Set OutlookMail = Nothing
        Set OutlookApp = Nothing
   

    Workbooks(Filnavn).Close savechanges:=True
   
    Workbooks(Filensnavn).Activate
    Next x
   
   
End Sub