Using Outlook Application

Question

0.00/5 (No votes)

See more:

When I make the following call to declare the object in a sub, the program crashes in the VS environment.

Dim oApp As New Outlook.Application

Why does this happen and how is it corrected?

Posted 7-Feb-13 13:33pm

KevinBrady57

Updated 7-Feb-13 13:36pm

v2

Add a Solution

Comments

Sergey Alexandrovich Kryukov 7-Feb-13 19:42pm

Not enough information. Could you wrap it in try-catch block and get exception information?
—SA

KevinBrady57 7-Feb-13 19:58pm

I did. Here's the code

Try
Dim oApp As New Outlook.Application

Catch e As Exception
MsgBox(e.Message)

End Try

No exception is reported. VS just returns to my main program form.

Sergey Alexandrovich Kryukov 7-Feb-13 20:14pm

What do you mean? (And what is "main program form"?) Did you put a break point inside Catch, before MsgBox is called? If it returned to the called, it means New Outlook.Application was called without a problem.
If happens: it may mean that there is something wrong in your observations. Under certain conditions, the debugger shows incorrect location...
What you say now is self-contradicting. You need to get reliable observations.
—SA

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Sheikh Muhammad Haris · Answer 1 · 2013-02-07T14:20:00

Solution 1

Add Reference Microsoft.Interop.Outlook

Posted 7-Feb-13 14:20pm

Sheikh Muhammad Haris

Comments

KevinBrady57 8-Feb-13 11:05am

I added a reference to Microsoft.Office.Interop.Outlook in the project. The call to create the Outlook.Application object still bails-out. Below is the code for the entire subroutine.

Sub SendOutlookEmail(ByVal iMsgBody As String, ByVal iMsgSubj As String, ByVal iToEMailAddr As String, ByVal iAttachment As String)
' Create an Outlook application.
'Dim oApp As Outlook._Application

Dim oApp As Outlook.Application

Try
oApp = New Outlook.Application ' sub bails-out here

Catch e As Exception

MsgBox(e.Message)

End Try

' Create a new MailItem.
Dim oMsg As Outlook._MailItem
Dim oAttachs As Outlook.Attachments = oMsg.Attachments
Dim oAttach As Outlook.Attachment

oMsg = oApp.CreateItem(Outlook.OlItemType.olMailItem)

oMsg.Subject = iMsgSubj

oMsg.Body = iMsgBody & vbCr

oMsg.To = iToEMailAddr

If iAttachment <> "" Then
Dim sSource As String = iAttachment
' TODO: Replace with attachment name
Dim sDisplayName As String = FileNameOnly(iAttachment) ' use the filename as the attachement name
Dim sBodyLen As String = oMsg.Body.Length
oAttachs = oMsg.Attachments
oAttach = oAttachs.Add(sSource, , sBodyLen + 1, sDisplayName)
End If

' Send the message
oMsg.Send()

' Clean up
oApp = Nothing
oMsg = Nothing
oAttach = Nothing
oAttachs = Nothing

End Sub