Soru Pdf olarak kaydettiğim dosyayı mail ile gönderme

[brkbkl]

Merhabalar aşağıdaki kod ile dosyalarımı pdf olarak kaydediyorum.
Yine bu macro içerisine otomatik mail göndermek istiyorum
Daha önce bunu excel dosyası olarak gönderiyordum fakat diğer sayfalardaki bilgilerin gönderilmesini istemiyorum.
Sadece ilgili sayfayı pdf olarak nasıl gönderebilirim

Sub KOD_PDF()

yol = "\\server\Proje\"
isim = Format(Range("C17").Value)
'isim = Split(ThisWorkbook.Name, ".")(0)
tarih = Format(Now, "dd-mm-yyyy-hh-mm")

Sheets("Nominasyon").Select
ActiveSheet.Range("A1:H52").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "/" & isim & "-" & tarih & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True

MsgBox isim & " ismiyle" & vbCrLf _
& yol & " dosya yoluna kaydedilmiştir. İlgili kişilere mail yolu ile iletilmiştir."
End Sub