Active report PDF avançado

oi pessoal essa é dificil tipo tenho um exemplo q envia email pelo active report mas ele so aceita o formato PDF e um documento especifico, ainda ele nao procura documentos de outros tipos , eu gostaria de procurar o documetno no computador e poder envialo alguem ja fez isso?

Dim rpt As New rptMainTemplate

rpt.LoadLayout txtSourceLayout.Text
rpt.Run 'render the report

m_failstatus = "pdf creation."
Dim pdfexport As New ARExportPDF
pdfexport.FileName = App.Path & "pdftempfile.pdf"

pdfexport.Export rpt.Pages

If fpreview = False Then
    m_failstatus = "Message creation."
    DoSend pdfexport.FileName
    m_csent = m_csent + 1
    SetSendCount
Else
    Call ShellExecute(0, "OPEN", pdfexport.FileName, vbNull, vbNull, 1)
End If

Exit Sub 'Success!
fail: