Happy Codings - Programming Code Examples

Visual Basic Programming Code Examples

Visual Basic > ActiveX Controls Code Examples

Sending Crystal Reports to MAPI



Sending Crystal Reports to MAPI

Dim App as New craxdrt.Application
Dim rpt as craxdrt.Report

Set rpt = App.OpenReport("\\cms_live\Reports\Report Maker
2k1\Admin\ImpBuddyProfile.RPT")

   With rpt.ExportOptions
                .DestinationType = crEDTEMailMAPI
                .FormatType = crEFTPortableDocFormat

                .MailToList = "steve"

                .MailSubject = "Mail Subject"
                .MailMessage = strMessage
            End With

            With rpt
                .DisplayProgressDialog = False
                .EnableParameterPrompting = False
                .ParameterFields(1).AddCurrentValue "Any Old Value"
                .Export False
            End With

Success is not the key to happiness. Happiness is the key to success. If you love what you are doing, you will be successful.

Albert Schweitzer

The difference between school and life? In school, you are taught a lesson and then given a test. In life, you are given a test that teaches you a lesson.

Tom Bodett

Great achievement is usually born of great sacrifice, and is never the result of selfishness.

Napoleon Hill

I have learned that people will forget what you said, people will forget what you did, but people will never forget how you made them feel.

Maya Angelou

Your talent determines what you can do. Your motivation determines how much you're willing to do. Your attitude determines how well you do it.

Lou Holtz

The future belongs to those who believe in the beauty of their dreams.

Eleanor Roosevelt

If you set goals and go after them with all the determination you can muster, your gifts will take you places that will amaze you.

Les Brown

Never give up your right to be wrong, because then you will lose the ability to learn new things and move forward with your life.

David M. Burns