[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1022
  • Last Modified:

VB.net Send Outlook Invite

Hi,

How to send meeting invite using VB.Net?

Thanks,

Sanjay.
0
sanjay-gandhi
Asked:
sanjay-gandhi
  • 2
  • 2
1 Solution
 
MacroShadowCommented:
How about this from Microsoft:
Imports System.Reflection

Module Module1

    Sub Main()
       ' Create an Outlook application.
        Dim oApp As Outlook.Application = New Outlook.Application()

        ' Get Mapi NameSpace and Logon.
        Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")
        oNS.Logon("YourValidProfile", Missing.Value, False, True) ' TODO:
        
        ' Create an AppointmentItem.
        Dim oAppt As Outlook._AppointmentItem = oApp.CreateItem(Outlook.OlItemType.olAppointmentItem)
        'oAppt.Display(true)  'Modal	

        ' Change AppointmentItem to a Meeting. 
        oAppt.MeetingStatus = Outlook.OlMeetingStatus.olMeeting

        ' Set some common properties.
        oAppt.Subject = "Created using OOM in VB.NET"
        oAppt.Body = "Hello World"
        oAppt.Location = "Samm E"

        oAppt.Start = Convert.ToDateTime("11/30/2001 9:00:00 AM")
        oAppt.End = Convert.ToDateTime("11/30/2001 1:00:00 PM")

        oAppt.ReminderSet = True
        oAppt.ReminderMinutesBeforeStart = 5
        oAppt.BusyStatus = Outlook.OlBusyStatus.olBusy  '  olBusy
        oAppt.IsOnlineMeeting = False
        oAppt.AllDayEvent = False

        ' Add attendees.
        Dim oRecipts As Outlook.Recipients = oAppt.Recipients

        ' Add required attendee.
        Dim oRecipt As Outlook.Recipient
        oRecipt = oRecipts.Add("UserTest1") ' TODO:
        oRecipt.Type = Outlook.OlMeetingRecipientType.olRequired

        ' Add optional attendee.
        oRecipt = oRecipts.Add("UserTest2") ' TODO:
        oRecipt.Type = Outlook.OlMeetingRecipientType.olOptional

        oRecipts.ResolveAll()

        'oAppt.Display(true)

        ' Send out request.
        oAppt.Send()

        ' Logoff.
        oNS.Logoff()

    End Sub

End Module

Open in new window

http://support.microsoft.com/kb/313789
0
 
sanjay-gandhiAuthor Commented:
Does not work. Either Outlook.Application gives error or only Application gives error. I had downloaded similar code from Net, but that too gave similar errors. I have also included the namespaces mentioned on Microsoft link, but sorry, no gains.

Sanjay.
0
 
MacroShadowCommented:
That is weird, if you followed these steps that were mentioned in the aforementioned Microsoft How-To you should not be running into an error. Just to make sure, is this what you did:
    1. On the Project menu, click Add Reference.
    2. On the COM tab, click Microsoft Outlook XX.X Object Library, and then click Select.
    3. In the Add References dialog box, click OK to accept your selections. If you are prompted to generate wrappers for the libraries that you selected, click Yes.
0
 
sanjay-gandhiAuthor Commented:
Yes, I followed these steps. But it did not ask to generate any wrappers.

But on retry, it asked me to add Imports Microsoft.Office.Interop, and one more namespace.

It has finally worked with the above namespace.

Plus how do I ask the attendee to give accept or reject.

Thanks.
Sanjay.
0

Featured Post

The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now