mCore™ .NET SMS Library 1.2

mCore.SMSDeleteException Class

Public Class MyClass
   Public WithEvents objSMS As New mCore.SMS
   Public Sub ReadInbox()
      Dim Msg As mCore.Message
      Try
         SetCommParameters()
         objSMS.MessageMemory = mCore.SMS.EnumMessageMemory.ME
         Try
            objSMS.Inbox.Refresh()

         Catch ex As mCore.SMSReadException
            MsgBox("Error reading Inbox!" & vbCrLf & ex.Message)
         End Try

         If objSMS.Inbox.HasMessages Then
            MsgBox("Total " & objSMS.Inbox.Count.ToString() & " messages")
            For Each Msg In objSMS.Inbox
               MsgBox("From:" & Msg.Phone & vbCrLf & Msg.Text)
               Try
                  Msg.Delete()
               Catch ex As mCore.SMSDeleteException
                  MsgBox(ex.Message, MsgBoxStyle.Critical, "mCore Demo")
               End Try
            Next
         End If
      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.SMS.EnumBaudRate.BaudRate_19200
         objSMS.DataBits = mCore.SMS.EnumDataBits.Eight
         objSMS.StopBits = mCore.SMS.EnumStopBits.One
         objSMS.Parity = mCore.SMS.EnumParity.None
         objSMS.FlowControl = mCore.SMS.EnumFlowControl.RTS_CTS

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

         SetCommParameters();
         objSMS.MessageMemory = mCore.SMS.EnumMessageMemory.ME;
         try
         {
            objSMS.Inbox().Refresh();
         }
         catch (mCore.SMSReadException ex)
         {
            MessageBox.Show("Error reading Inbox!" + "\r\n" + ex.ToString());;
         }
         if (objSMS.Inbox().HasMessages)
         {
            MessageBox.Show("Total " + objSMS.Inbox().Count.ToString() + " messages");
            foreach (mCore.Message Msg in objSMS.Inbox())
            {
               MessageBox.Show("From: " + Msg.Phone + "\r\n" + Msg.Text);
               try
               {
                  Msg.Delete();
               }
               catch (mCore.SMSDeleteException 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.SMS.EnumBaudRate.BaudRate_19200;
         objSMS.DataBits = mCore.SMS.EnumDataBits.Eight;
         objSMS.StopBits = mCore.SMS.EnumStopBits.One;
         objSMS.Parity = mCore.SMS.EnumParity.None;
         objSMS.FlowControl = mCore.SMS.EnumFlowControl.RTS_CTS;
      }

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