[Resolved] Open Outlook application

snufse · February 18th, 2008, 03:33 PM

I'm trying to call Outlook with an attachment:

This works fine:

Code:

Shell("C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE")

When I try with an attachment, it tells me that file is not found even if the file is there:

Code:

Dim myOutlookString As String = "C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE""" + "/a " + """C:\mycrystalreport.pdf"
Shell(myOutlookString)

Any ideas?

samjudson · February 19th, 2008, 05:57 AM

You don't appear to have a space between the end of OUTLOOK.EXE and the /a symbol.

/- Sam Judson : Wrox Technical Editor -/

snufse · February 19th, 2008, 09:53 AM

I tried this as well (space bewteen .exe and /a)and getting error:

An error has been encountered trying to access Outlook.
System.IO.FileNotFoundException: File not found.

It might sound silly, but the file exists in c:\.

Code:

Dim myOutlookString As String = "C:\Program Files\Microsoft Office\Office12\Outlook.exe""" + " /a " + """C:\mycrystalreport.pdf"
Shell(myOutlookString)

samjudson · February 19th, 2008, 09:58 AM

You also appear to have a strange number of " symbols in there. Try the following:

Dim myOutlookString As String = """C:\Program Files\Microsoft Office\Office12\Outlook.exe"" /a ""C:\mycrystalreport.pdf"""
Shell(myOutlookString)

/- Sam Judson : Wrox Technical Editor -/

snufse · February 19th, 2008, 03:45 PM

That really did the trick. Thank you.

By the way,

1. Is there a way to pogramatically attach a crystal report to outlook instead of exporting to a folder and then attach?

2. Or is there a way where I programatically can export the crystal report to a file?

My (vb) program produces a crystal report and I would like to click a button and then open outlook with attachment.

snufse · February 20th, 2008, 04:16 PM

I figured out how to programatically create/export crystal report to a file object:

Code:

Dim myFilePath As String = "C:\Documents and Settings\" + Windows.Forms.SystemInformation.UserName + "\Local Settings\Temp" + myFileName
Dim myReport As New ReportClass
myReport = myCrystalReport
myReport.ExportToDisk(ExportFormatType.WordForWindows, myFilePath)

Now I can email ie call/open Outlook and attach the report automatically:

Code:

Dim myOutlookString As String = """C:\Program Files\Microsoft Office\Office12\Outlook.exe"" /a """ + myFilePath + """"
Shell(myOutlookString)

dani_adam71 · October 26th, 2008, 10:53 PM

hi,

"C:\Program Files\Microsoft Office\Office12\Outlook.exe""" + " /a " + """C:\mycrystalreport.pdf"

work fine to call Outlook with attachment, but is it possible to insert send to address, mail subject, mail body and CC??

Thanks