Hi,

  I have been trying to email a report in word or pdf format using MAPI service. Following is my code:

Dim mail As MicrosoftMailDestinationOptions = ExportOptions.CreateMicrosoftMailDestinationOption s
            Dim exOptions As ExportOptions = New ExportOptions

            mail.MailToList = Trim(utxtTo.Text)
            mail.MailCCList = Trim(utxtCC.Text)
            mail.MailSubject = Trim(utxtSubject.Text)
            mail.MailMessage = Trim(utxtMessage.Text)

            exOptions.ExportDestinationType = ExportDestinationType.MicrosoftMail
            exOptions.ExportDestinationOptions = mail
            If strType = "Word" Then
                exOptions.ExportFormatType = ExportFormatType.WordForWindows

            ElseIf strType = "PDF" Then
                exOptions.ExportFormatType = ExportFormatType.PortableDocFormat
            End If
            exOptions.ExportFormatOptions = New PdfRtfWordFormatOptions
            crxRpt.Export(exOptions)

=================================
the problem i am facing is that it is sending the mail in outlook's outbox with the email, subject and message all correct, but the word or pdf file is not attached with the mail. some Untitled.txt file is seen as attachment.

What could be reason? Plz give some solution for this.

(: SachinBhalerao :)

first thing you hav to do is to export the crystal report as PDF formt in specific location

            Dim CrExportOptions As ExportOptions
            Dim CrDiskFileDestinationOptions As New _
            DiskFileDestinationOptions()
            Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions
            CrDiskFileDestinationOptions.DiskFileName = pdfFile
            CrExportOptions = cryRpt.ExportOptions
            With CrExportOptions
                .ExportDestinationType = ExportDestinationType.DiskFile
                .ExportFormatType = ExportFormatType.PortableDocFormat
                .DestinationOptions = CrDiskFileDestinationOptions
                .FormatOptions = CrFormatTypeOptions
            End With
            cryRpt.Export()


after you export , email the pdf from the specific location

            Dim Smtp As SmtpMail
            SmtpMail.SmtpServer.Insert(0, "your hostname")
            Dim Msg As MailMessage = New MailMessage
            Msg.To = "to address here"
            Msg.From = "from address here"
            Msg.Subject = "Crystal Report Attachment "
            Msg.Body = "Crystal Report Attachment "
            Msg.Attachments.Add(New MailAttachment(pdfFile))
            Smtp.Send(Msg)


i found this code from a website , if yo need more information plz refer this link

http://vb.net-informations.com/cryst...port_email.htm

bill