'Send' is an ambiguous object - how do I fix this?

[Thane Walkup]

Greetings,

I'm trying to write an app that will reply automatically to a message
received in Outlook 2002 as part of a Rules Wizard scripting call. I
originally tried VBA, but discovered quite rapidly that Microsoft's attempts
to secure Outlook against script execution has made this impossible to do
from VBA. I've attempted to move this into a VB.NET application, and I'm
experiencing some problems with the code. I will admit up front that I have
no real experience with VB.NET, and have a small smidgen of experience with
C#.

Basically all the code is looking good, except for two bits, replyMail.Send
and objMsg.Reply. Both replyMail and objMsg are defined as:
Microsoft.Offic e.Interop.Outlo ok.MailItem

The error message I get is:

"T:\Projects\VB ReplyAddIn\VBRe plyAddIn\Connec t.vb(53): 'Reply' is ambiguous
across the inherited interfaces 'Microsoft.Offi ce.Interop.Outl ook._MailItem'
and 'Microsoft.Offi ce.Interop.Outl ook.ItemEvents_ 10_Event'."

and

"T:\Projects\VB ReplyAddIn\VBRe plyAddIn\Connec t.vb(71): 'Send' is ambiguous
across the inherited interfaces 'Microsoft.Offi ce.Interop.Outl ook._MailItem'
and 'Microsoft.Offi ce.Interop.Outl ook.ItemEvents_ 10_Event'."

I've tried wrapping them with 'CType' to no avail - I get the same error no
matter which type I cast to.

Here's the code snippet in question:

Public Class ReplyToMail
Public Sub ReplyToMail(ByV al objMsg As
Microsoft.Offic e.Interop.Outlo ok.MailItem)
Dim replyMail As Microsoft.Offic e.Interop.Outlo ok.MailItem ' The
reply message
Dim msg As String
Dim attach As Microsoft.Offic e.Interop.Outlo ok.Attachment ' For
walking through all attachments
Dim attachlist As String ' For storing all the attachments.

replyMail = objMsg.Reply ' Set up the initial reply.
replyMail.Subje ct = "Message Received:" + objMsg.Subject

msg = msg + "You may contact us through the following methods:" +
vbCrLf + vbCrLf
<snipped company information - code is just 'msg = msg + "more
information">
replyMail.Body = msg + replyMail.Body ' Add the message to the body
of the document.

For Each attach In objMsg.Attachme nts ' Get all attached file names.
attachlist = attachlist + "<<" + attach.FileName + ">>" + vbCrLf
Next

replyMail.Body = replyMail.Body + vbCrLf + attachlist
replyMail.Send( )
End Sub
End Class

Any suggestions are much appreciated.

Thanks,
Thane

[Jay B. Harlow [MVP - Outlook]]

Thane,
For a list of articles on using Outlook from .NET see:

http://www.microeye.com/resources/res_outlookvsnet.htm

To address your issue, see:

http://support.microsoft.com/?kbid=315981

Hope this helps
Jay

"Thane Walkup" <tw*****@quor um-irb.com> wrote in message
news:10******** *****@corp.supe rnews.com...

Greetings,

I'm trying to write an app that will reply automatically to a message
received in Outlook 2002 as part of a Rules Wizard scripting call. I
originally tried VBA, but discovered quite rapidly that Microsoft's attempts to secure Outlook against script execution has made this impossible to do
from VBA. I've attempted to move this into a VB.NET application, and I'm
experiencing some problems with the code. I will admit up front that I have no real experience with VB.NET, and have a small smidgen of experience with C#.

Basically all the code is looking good, except for two bits, replyMail.Send and objMsg.Reply. Both replyMail and objMsg are defined as:
Microsoft.Offic e.Interop.Outlo ok.MailItem

The error message I get is:

"T:\Projects\VB ReplyAddIn\VBRe plyAddIn\Connec t.vb(53): 'Reply' is ambiguous across the inherited interfaces 'Microsoft.Offi ce.Interop.Outl ook._MailItem' and 'Microsoft.Offi ce.Interop.Outl ook.ItemEvents_ 10_Event'."

and

"T:\Projects\VB ReplyAddIn\VBRe plyAddIn\Connec t.vb(71): 'Send' is ambiguous
across the inherited interfaces 'Microsoft.Offi ce.Interop.Outl ook._MailItem' and 'Microsoft.Offi ce.Interop.Outl ook.ItemEvents_ 10_Event'."

I've tried wrapping them with 'CType' to no avail - I get the same error no matter which type I cast to.

Here's the code snippet in question:

Public Class ReplyToMail
Public Sub ReplyToMail(ByV al objMsg As
Microsoft.Offic e.Interop.Outlo ok.MailItem)
Dim replyMail As Microsoft.Offic e.Interop.Outlo ok.MailItem ' The
reply message
Dim msg As String
Dim attach As Microsoft.Offic e.Interop.Outlo ok.Attachment ' For
walking through all attachments
Dim attachlist As String ' For storing all the attachments.

replyMail = objMsg.Reply ' Set up the initial reply.
replyMail.Subje ct = "Message Received:" + objMsg.Subject

msg = msg + "You may contact us through the following methods:" +
vbCrLf + vbCrLf
<snipped company information - code is just 'msg = msg + "more
information">
replyMail.Body = msg + replyMail.Body ' Add the message to the body of the document.

For Each attach In objMsg.Attachme nts ' Get all attached file names. attachlist = attachlist + "<<" + attach.FileName + ">>" + vbCrLf Next

replyMail.Body = replyMail.Body + vbCrLf + attachlist
replyMail.Send( )
End Sub
End Class

Any suggestions are much appreciated.

Thanks,
Thane