How to export a report to MAPI destination in VS .NET

    ‘Add the following namespaces 
   Imports CrystalDecisions.CrystalReports.Engine
   Imports CrystalDecisions.Shared
   Imports System.IO

   ‘ Code for exporting the report to PDF and attaching the exported file to an email. 
   Dim crExportOptions As ExportOptions
   Dim crDiskFileDestinationOptions As
   DiskFileDestinationOptions
   Dim ExportPath As String

   ‘ Create an instance of the Report
   Dim oRpt As New NameOfYourReport()

   ‘ Or open a report file
   Dim oRpt1 As New ReportDocument()
   oRpt1.Load(Request.PhysicalApplicationPath +
   “YourReport.rpt”, OpenReportMethod.OpenReportByTempCopy)

   ‘ Create the directory path if it does not already exist

   ExportPath = Request.PhysicalApplicationPath + “Exported”
   If Directory.Exists(ExportPath) = False Then
      Directory.CreateDirectory(Request.PhysicalApplicationPath + “Exported”)
   End If
   Dim fname As String
   fname = ExportPath + “Portabledoc.pdf”

   ‘ Set the path for the exported report
   crDiskFileDestinationOptions = New
   DiskFileDestinationOptions()
   crDiskFileDestinationOptions.DiskFileName = fname

   ‘ Set the options to export the report to PDF format
   crExportOptions = oRpt.ExportOptions
   With crExportOptions
      .DestinationOptions = crDiskFileDestinationOptions
      .ExportDestinationType = ExportDestinationType.DiskFile
      .ExportFormatType = ExportFormatType.PortableDocFormat
   End With

   ‘ Export the report
   oRpt.Export()
   Response.Write(“report exported to: ” & fname)

   ‘ Create a new mail attachment and add the exported report
   Dim att As New Mail.MailAttachment((fname))
   Dim oMsg As New System.Web.Mail.MailMessage()

   oMsg.Attachments.Add(att)

   ‘ Set the To, From, And subject for the email
   oMsg.To = “someonesemail@email.com“
   oMsg.From = “myemail@email.com “
   oMsg.Subject = “You have been sent a Crystal Report”

   ‘ Connect to the server and send the message
   ‘ For example this is the Hotmail smtp Server(“”)
   Mail.SmtpMail.SmtpServer = “lyris01.hosting.innerhost.com”
   System.Web.Mail.SmtpMail.Send(oMsg)
   Response.Write(“
“)
   Response.Write(“Message sent to: ” & oMsg.To.ToString)

   ‘ Delete the exported report file
   File.Delete(fname)

    // Add the following namespaces
   using CrystalDecisions.CrystalReports.Engine;
   using CrystalDecisions.Shared;
   using System.IO;

   // Code for exporting the report to PDF and attaching the exported file to an email
   ExportOptions crExportOptions;
   DiskFileDestinationOptions;
   crDiskFileDestinationOptions;
   String ExportPath;

   // Create an instance of the Report
   NameOfYourReport oRpt = new NameOfYourReport();

   // Or open a report file
   ReportDocument oRpt1 = new ReportDocument();
   oRpt1.Load(Request.PhysicalApplicationPath + “file://YourReport.rpt/“,
   OpenReportMethod.OpenReportByTempCopy);

   // Create the directory path if it does not already exist
   ExportPath = Request.PhysicalApplicationPath + “Exported”;
   if (Directory.Exists(ExportPath) == false)
   {
      Directory.CreateDirectory(Request.PhysicalApplicat ionPath + “Exported”);
   }
   String fname;
   fname = ExportPath + “Portabledoc.pdf”;

   // Set the path for the exported report
   crDiskFileDestinationOptions = new DiskFileDestinationOptions();
   crDiskFileDestinationOptions.DiskFileName = fname;
   // Set the options to export the report to PDF format
   crExportOptions = oRpt.ExportOptions;
   crExportOptions.DestinationOptions = crDiskFileDestinationOptions;
   crExportOptions.ExportDestinationType = ExportDestinationType.DiskFile;
   crExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat;

   // Export the report
   oRpt.Export();
   Response.Write(“report exported to: ” + fname);

   // Create a new mail attachment and add the exported report
   System.Web.Mail.MailAttachment att = new
   System.Web.Mail.MailAttachment((fname));
   System.Web.Mail.MailMessage oMsg = new System.Web.Mail.MailMessage();
   oMsg.Attachments.Add(att);

   // Set the To, From, And subject for the email
   oMsg.To = “someonesemail@email.com“;
   oMsg.From = “myemail@email.com “; 
   oMsg.Subject = “You have been sent a Crystal Report”;

   // Connect to the server and send the message
   // For example this is the Hotmail smtp Server(“”)
   System.Web.Mail.SmtpMail.SmtpServer = “lyris01.hosting.innerhost.com”;
   System.Web.Mail.SmtpMail.Send(oMsg);
   Response.Write(“
“);
   Response.Write(“Message sent to: ” + oMsg.To.ToString());

   // Delete the exported report file
   File.Delete(fname);

   Dim repdoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
        Dim diskOpts As New CrystalDecisions.Shared.DiskFileDestinationOptions()
        Dim ExpOpts As CrystalDecisions.Shared.ExportOptions
        Dim htmlopts As New CrystalDecisions.Shared.HTMLFormatOptions()
        Dim MailOpts As New CrystalDecisions.Shared.MicrosoftMailDestinationOptions()
        repdoc = reportDocument1
        repdoc.Load(“c:world sales report.rpt”)

        ExpOpts = repdoc.ExportOptions

        With ExpOpts
            .ExportDestinationType = CrystalDecisions.[Shared].ExportDestinationType.MicrosoftMail
            .ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.RichText

        End With

        With MailOpts
           
     .MailToList = “Don Williams”
            .MailSubject = “Attached is a PDF file – .net Export test “
            .MailSubject = “This is the Subject”
            .MailCCList = “John Doe”
            .UserName = “intljdoe
            .Password = “pookie”

        End With

        ExpOpts.DestinationOptions = MailOpts

        Try
            repdoc.Export()
        Catch err As Exception
            MessageBox.Show(err.ToString())
        End Try

CrystalDecisions.CrystalReports.Engine.ReportDocument repdoc = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
            CrystalDecisions.Shared.DiskFileDestinationOptions diskOpts = new CrystalDecisions.Shared.DiskFileDestinationOptions();
            CrystalDecisions.Shared.ExportOptions ExpOpts = new CrystalDecisions.Shared.ExportOptions();
            CrystalDecisions.Shared.HTMLFormatOptions htmlopts = new CrystalDecisions.Shared.HTMLFormatOptions();
            CrystalDecisions.Shared.MicrosoftMailDestinationOptions MailOpts = new CrystalDecisions.Shared.MicrosoftMailDestinationOptions();

            //repdoc = rptClientDoc;
            repdoc.Load(“c:
eport2.rpt”);

            ExpOpts = repdoc.ExportOptions;

            ExpOpts.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.MicrosoftMail;
            ExpOpts.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.RichText;
           
         MailOpts.MailToList = “Don Williams”;
            MailOpts.MailSubject = “Attached is a PDF file – .net Export test “;
            MailOpts.MailSubject = “This is the Subject”;
            //MailOpts.MailCCList = “John Doe”;
            MailOpts.UserName = “intldwilliams”;
            MailOpts.Password = “yourpassword”;

            ExpOpts.DestinationOptions = MailOpts;

            repdoc.Export();