0 Replies - 515 Views - Last Post: 24 January 2014 - 06:32 AM Rate Topic: -----

#1 jose.rodriguez.an  Icon User is offline

  • D.I.C Head

Reputation: 0
  • View blog
  • Posts: 58
  • Joined: 18-April 13

Problem sending meetings to outlook

Posted 24 January 2014 - 06:32 AM

Hello all,

I have a problem with one program. I am trying to send appointment to outlook calendar. For some people it works fine, but not for others.

I can't understand why.

This is the code:

'Send appointment to calendar
    Private Sub appointBT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles appointBT.Click
        Dim olApp As New Outlook.Application()
        'The instance of Outlook 
        Dim item As Outlook.AppointmentItem

            item = DirectCast(olApp.CreateItem(OlItemType.olAppointmentItem), AppointmentItem)
            item.Start = DateTime.Parse(dateLT.Text & " " & timeTXT.Text)
            item.Subject = SubjectTxt.Text
            item.RequiredAttendees = inviteTXT.Text
            item.ReminderMinutesBeforeStart = 10
            item.ReminderSet = True

            'Change the properties of the item 
            item = Nothing
            olApp = Nothing

            'After send the message clean text.
            If SubjectTxt.Text = "" Then
                MsgBox("Subject is empty, I suggest to put the incident number", MsgBoxStyle.Exclamation)
            ElseIf Not SubjectTxt.Text = "" Then
                MessageBox.Show("Sent to your calendar", "Information", MessageBoxButtons.OK)
            End If

        End Try

        SubjectTxt.Text = ""
        inviteTXT.Text = ""
        timeTXT.Text = ""
        dateLT.Text = Date.Today
    End Sub

Also I would like to send the message automatically to the invitees, instead to open the calendar and press send in the appointment.

Someone know what the problem is?

Thank you.

Is This A Good Question/Topic? 0
  • +

Page 1 of 1