Send an Outlook Task Through a VB app in background

[Rob McCaughey]

Hi all!

I'm a VB newbie, and trying to send an Outlook Task automatically without
user intervention in a VB application. When I use the following code, if I
enable the send portion (see code below) , I get an error saying "Send is
ambiguous across the inherited interfaces 'Outlook._taski tem' and
Outlook.itemeve nts.event'.

Any help would be appreciated!

Thanks

Rob
Public Sub SendTask(ByVal in_torecipients As String, ByVal in_subject As
String, ByVal in_body As String, ByVal in_attachmentfi lenames As ArrayList)

Dim oTaskItem As Outlook.TaskIte m

Dim enumer As IEnumerator

Dim attachment_file As String

oTaskItem =
CType(Me.outloo k_application.C reateItem(Outlo ok.OlItemType.o lTaskItem),
Outlook.TaskIte m)

enumer = in_attachmentfi lenames.GetEnum erator

While enumer.MoveNext

attachment_file = CType(enumer.Cu rrent, String)

oTaskItem.Attac hments.Add(atta chment_file, Type.Missing, Type.Missing,
attachment_file )

End While

oTaskItem.Assig n()

oTaskItem.Recip ients.Add(in_to recipients)

oTaskItem.Subje ct = in_subject

' oTaskItem.Owner = System.Environm ent.UserName

oTaskItem.Body = in_body

oTaskItem.DueDa te = DateTime.Today

oTaskItem.Remin derSet = True

oTaskItem.Remin derTime = oTaskItem.DueDa te

oTaskItem.Displ ay(True)

' oTaskItem.Save( )

'oTaskItem.Send () <- this is where the error occurs.

End Sub

[Jay B. Harlow [MVP - Outlook]]

Rob,
The following web site contains a plethora of information on using the
Outlook object model from VB.NET.

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

Hope this helps
Jay

"Rob McCaughey" <rl*@northameri cansigns.com> wrote in message
news:uy******** ******@TK2MSFTN GP09.phx.gbl...

Hi all!

I'm a VB newbie, and trying to send an Outlook Task automatically without
user intervention in a VB application. When I use the following code, if I
enable the send portion (see code below) , I get an error saying "Send is
ambiguous across the inherited interfaces 'Outlook._taski tem' and
Outlook.itemeve nts.event'.

Any help would be appreciated!

Thanks

Rob
Public Sub SendTask(ByVal in_torecipients As String, ByVal in_subject As
String, ByVal in_body As String, ByVal in_attachmentfi lenames As ArrayList)
Dim oTaskItem As Outlook.TaskIte m

Dim enumer As IEnumerator

Dim attachment_file As String

oTaskItem =
CType(Me.outloo k_application.C reateItem(Outlo ok.OlItemType.o lTaskItem),
Outlook.TaskIte m)

enumer = in_attachmentfi lenames.GetEnum erator

While enumer.MoveNext

attachment_file = CType(enumer.Cu rrent, String)

oTaskItem.Attac hments.Add(atta chment_file, Type.Missing, Type.Missing,
attachment_file )

End While

oTaskItem.Assig n()

oTaskItem.Recip ients.Add(in_to recipients)

oTaskItem.Subje ct = in_subject

' oTaskItem.Owner = System.Environm ent.UserName

oTaskItem.Body = in_body

oTaskItem.DueDa te = DateTime.Today

oTaskItem.Remin derSet = True

oTaskItem.Remin derTime = oTaskItem.DueDa te

oTaskItem.Displ ay(True)

' oTaskItem.Save( )

'oTaskItem.Send () <- this is where the error occurs.

End Sub