Outlook VBA .Send()( Error

I

Ivan Weiss

I am trying to send a test e-mail through my program using Outlook so
that I know my code works and I can submit office forms through e-mail
instead of paper. Here is my code:

Dim objOutlook As New Outlook.Application()
Dim objMail As MailItem =
objOutlook.CreateItem(OlItemType.olMailItem)

With objMail
.To = "(e-mail address removed)"
.Subject = "Testing"
.HTMLBody = "<HTML><HEAD></HEAD><BODY bgcolor = 'red'>" _
& "<font color = 'white'>Hello!</font>" _
& "</body></html>"
'.Display()
.Send()
End With

objMail = Nothing
objOutlook = Nothing

I have
Imports Microsoft.Office.Core
Imports Outlook
above my form class

However, the .Send() method returns the following error:

'Send' is ambiguous across the inherited interfaces 'Outlook._MailItem'
and 'Outlook.ItemEvents_10_Event'.

Does anyone know why I am getting this and how I can send my email
without the user having to click on send?
 
F

Fergus Cooney

Hi Ivan,

If the articles that Jay has given haven't taken you all the way, you can
do
Dim objMail As _MailItem
which makes objMail explicitly take the type that has the Send method.

or keep objMail as it is and use
DirectCast (objMail, Outlook._MailItem).Send
which uses the correct type just for the Send.

Regards,
Fergus
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Sending E-Mail through application 6
Cannot Send Mail Through Outlook without Outlook Open 6
VBA about sending e-mail automatickly 1
Sending emails with Outlook from Excel 2
VBA to send files in folder 1
Application-Defined or Object-Defined error 287 7
My email code suddenly doesn't work anymore. 4
Auto send email with attachment and open the web page as content 7

Top