Error trying to export / send e-mail of a report

Hello,

I have a VB6 application with CRXIR2, and I need to create a button for the user to click and then the app would send an e-mail of a certain report in PDF to someone.

I made some searches here and on google, and found some idea of how to make it. So I wrote the code below:

Private Sub Command1_Click()

    Set rpt = applic.OpenReport(PathRPT + "SETabTE" + TipoRPT + ".rpt")

    rpt.FormulaFields.GetItemByName("Idioma").Text = "'" + Idioma + "'"

    '

    rpt.ExportOptions.FormatType = crEFTPortableDocFormat

    rpt.ExportOptions.DestinationType = crEDTEMailMAPI

    rpt.ExportOptions.MailSubject = "A Subject bla bla bla"

    rpt.ExportOptions.MailMessage = "Message bla bla bla"

    rpt.ExportOptions.MailToList = "isis@german-engenharia.com.br"

    rpt.ExportOptions.MailUserName = "enviosgi@german-engenharia.com.br"

    rpt.ExportOptions.MailPassword = "password"

    rpt.Export False

End Sub

I don't know if it is correct, because I am getting the following error when executing the method Export:

Run-time error '-2147190548 (800478ec)':

Erro no arquivo :

DLL de exportação ausente ou fora do intervalo

It is in Portuguese, maybe in English it would be something like that:

Erro in file:

Export DLL missing or out of the interval

The project has the reference to the CRAXDRT.DLL:

Reference=*\G{91FDA5AF-C945-4DDC-8C32-29A790CF16F0}#b.5#0#C:\Arquivos de programas\Business Objects\Common\3.5\bin\craxdrt.dll#Crystal Reports ActiveX Designer Run Time Library 11.5

Is my code wrong or incomplete?

Or do I need to reference any other library?

Thanks for any help!

Isis

Brazil