mCore™ .NET SMS Library 1.2

vCalendar.Send Method

Public Class MyClass
   Public WithEvents objSMS As New mCore.SMS

   Public Sub SendVCalendar()
      Dim objVCAL As mCore.vCalendar = objSMS.vCalendar
      Try
         SetCommParameters()
         objVCAL.Destination = "+919873094767"
         objVCAL.StartDateTime = #3/17/2006 10:30 AM#
         objVCAL.EndDateTime = #3/17/2006 11:45 AM#

         'OR specify the event duration
         'objVCAL.EventDuration = "75M"
         objVCAL.Location = "Corporate Office"
         objVCAL.Description = "New recruitment interview for project manager"
         objVCAL.Summary = "Recruitment Interview"

         objVCAL.Send()
         MsgBox("vCalendar sent!", MsgBoxStyle.Information, strMyAppName)

      Catch ex As mCore.vCalendarException
         MsgBox(ex.Message, MsgBoxStyle.Critical, "mCore Demo")
      Catch ex As mCore.GeneralException
         MsgBox(ex.Message, MsgBoxStyle.Critical, "mCore Demo")
      Catch ex As Exception
      End Try
   End Sub

   Public Sub SetCommParameters()
      Try
         objSMS.Port = "COM1"
         objSMS.BaudRate = mCore.BaudRate.BaudRate_19200
         objSMS.DataBits = mCore.DataBits.Eight
         objSMS.StopBits = mCore.StopBits.One
         objSMS.Parity = mCore.Parity.None
         objSMS.FlowControl = mCore.FlowControl.RTS_CTS

      Catch ex As mCore.GeneralException
         MsgBox(ex.Message)
      Catch ex As Exception
      End Try
   End Function
End Class

         SetCommParameters();
         objVCAL.Destination = "+919873094767"
         objVCAL.StartDateTime = new System.DateTime(2006, 3, 17, 10, 30, 0);
         objVCAL.EndDateTime = new System.DateTime(2006, 3, 17, 11, 45, 0);

         //OR specify the event duration
         //objVCAL.EventDuration = "75M";
         objVCAL.Location = "Corporate Office";
         objVCAL.Description = "New recruitment interview for project manager";
         objVCAL.Summary = "Recruitment Interview";

         objVCAL.Send();
         MessageBox.Show("vCalendar sent!");
      }

      catch (mCore.vCalendarException e)
      {
         MessageBox.Show(e.ToString());
      }
      catch (mCore.GeneralException e)
      {
         MessageBox.Show(e.ToString());
      }
      catch (Exception e)
      {
      }
   }

   public static void SetCommParameters()
   {
      try
      {
         objSMS.Port = "COM1";
         objSMS.BaudRate = mCore.BaudRate.BaudRate_19200;
         objSMS.DataBits = mCore.DataBits.Eight;
         objSMS.StopBits = mCore.StopBits.One;
         objSMS.Parity = mCore.Parity.None;
         objSMS.FlowControl = mCore.FlowControl.RTS_CTS;
      }
      catch (mCore.GeneralException e)
      {
         MessageBox.Show(e.ToString());
      }
      catch (Exception e)
      {
      }
   }
}