mCore™ .NET SMS Library 1.2

mCore.SMS.QueueVCardSending Event

Public Class MyClass
   Public WithEvents objSMS As New mCore.SMS
   Public Sub SendQueue()
      Dim objVCARD As mCore.vCard = objSMS.vCard
      Dim strKey As String
      Try
         SetCommParameters()

         objVCARD.Destination = "+919873094767"

         objVCARD.FirstName = "John"
         objVCARD.MiddleName = ""
         objVCARD.LastName = "Doe"

         objVCARD.Email = "john.doe@mycompany.com"
         objVCARD.URL = "http://www.johndoe.com"

         objVCARD.Company = "My Company"
         objVCARD.JobTitle = "Project Manager"

         objVCARD.HomePhone = "+911126457896"
         objVCARD.BusinessPhone = "+9123567852"
         objVCARD.MobilePhone = "+919865285263"

         objVCARD.HomeAddressStreet = ""
         objVCARD.HomeAddressCity = "New Delhi"
         objVCARD.HomeAddressState = ""
         objVCARD.HomeAddressCountry = "India"
         objVCARD.HomeAddressZIP = ""

         objVCARD.BusinessAddressStreet = "XYZ Street"
         objVCARD.BusinessAddressCity = "New Delhi"
         objVCARD.BusinessAddressState = "Delhi"
         objVCARD.BusinessAddressCountry = "India"
         objVCARD.BusinessAddressZIP = "110011"

         objVCARD.Comment = "Tax Consultant"

         strKey = objVCARD.SendToQueue(mCore.QueuePriority.High)
         MsgBox("vCard message added to queue." & vbCrLf & _
                  "[Queue Key: " & strKey & "]")

         objVCARD.Destination = "+919810098765"
         'Following message is sent with normal queue priority
         strKey = objVCARD.SendToQueue()
         MsgBox("vCard message added to queue." & vbCrLf & _
                  "[Queue Key: " & strKey & "]")

         objVCARD.Destination = "+919811045678"
         strKey = objVCARD.SendToQueue(mCore.QueuePriority.Low)
         MsgBox("vCard message added to queue." & vbCrLf & _
                  "[Queue Key: " & strKey & "]")

         'Message queue is enabled
         objSMS.Queue.Enabled = True

         'Messages can be added to the queue even
         'when the Message queue is enabled
         objVCARD.Destination = "+919873012345"
         strKey = objVCARD.SendToQueue(mCore.QueuePriority.High)
         MsgBox("vCard message added to queue." & vbCrLf & _
                  "[Queue Key: " & strKey & "]")

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

   'Event at the start of sending a queued vCard message
   Private Sub objSMS_QueueVCardSending(ByVal sender As Object, _
               ByVal e As mCore.QueueVCardSendingEventArgs) _
               Handles objSMS.QueueVCardSending
      MsgBox("Sending vCard message to: " & e.DestinationNumber & vbCrLf & _
            "[Queue Key: " & e.QueueMessageKey & _
            "]", MsgBoxStyle.Information, "SENDING VCARD")
   End Sub

   'Event at the end of sending a queued vCard message
   Private Sub objSMS_QueueVCardSent(ByVal sender As Object, _
               ByVal e As mCore.QueueVCardSentEventArgs) _
               Handles objSMS.QueueVCardSent
      If e.ErrorCode > 0 Then
         MsgBox("vCard message sending FAILED to: " & e.DestinationNumber & _
               vbCrLf & "[ERROR: " & e.ErrorDescription & _
               "]" & vbCrLf & "[Queue Key: " & e.QueueMessageKey & _
               "]", MsgBoxStyle.Critical, "VCARD FAILED")
      Else
         MsgBox("vCard message SENT to: " & e.DestinationNumber & vbCrLf & _
               "[Queue Key: " & e.QueueMessageKey & _
               "]", MsgBoxStyle.Information, "VCARD SENT")
      End If
   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

class MyClass
{
   public mCore.SMS objSMS = new mCore.SMS();

   public MyClass()

   {
      objSMS.QueueVCardSending +=
         new mCore.SMS.QueueVCardSendingEventHandler
         (objSMS_QueueVCardSending);

      objSMS.QueueVCardSent +=
         new mCore.SMS.QueueVCardSentEventHandler
         (objSMS_QueueVCardSent);
   }

   public static void SendQueue()
   {
      mCore.vCalendar objVCAL = objSMS.vCalendar();
      string strKey = "";
      try
      {

         SetCommParameters();

         objVCARD.Destination = "+919873094767";

         objVCARD.FirstName = "John";
         objVCARD.MiddleName = "";
         objVCARD.LastName = "Doe";

         objVCARD.Email = "john.doe@mycompany.com";
         objVCARD.URL = "http://www.johndoe.com";

         objVCARD.Company = "My Company";
         objVCARD.JobTitle = "Project Manager";

         objVCARD.HomePhone = "+911126457896";
         objVCARD.BusinessPhone = "+9123567852";
         objVCARD.MobilePhone = "+919865285263";

         objVCARD.HomeAddressStreet = "";
         objVCARD.HomeAddressCity = "New Delhi";
         objVCARD.HomeAddressState = "";
         objVCARD.HomeAddressCountry = "India";
         objVCARD.HomeAddressZIP = "";

         objVCARD.BusinessAddressStreet = "XYZ Street";
         objVCARD.BusinessAddressCity = "New Delhi";
         objVCARD.BusinessAddressState = "Delhi";
         objVCARD.BusinessAddressCountry = "India";
         objVCARD.BusinessAddressZIP = "110011";

         objVCARD.Comment = "Tax Consultant";

         strKey = objVCARD.SendToQueue(mCore.QueuePriority.High);
         MessageBox.Show("vCard message added to queue.\r\n" +
                  "[Queue Key: " + strKey + "]");

         objVCARD.Destination = "+919810098765";
         //Following message is sent with normal queue priority
         strKey = objVCARD.SendToQueue();
         MessageBox.Show("vCard message added to queue.\r\n" +
                  "[Queue Key: " + strKey + "]");

         objVCARD.Destination = "+919811045678";
         strKey = objVCARD.SendToQueue(mCore.QueuePriority.Low);
         MessageBox.Show("vCard message added to queue.\r\n" +
                  "[Queue Key: " + strKey + "]");

         //Message queue is enabled
         objSMS.Queue.Enabled = true;

         //Messages can be added to the queue even
         //when the Message queue is enabled
         objVCAL.Destination = "+919873012345";
         strKey = objVCARD.SendToQueue(mCore.QueuePriority.High);
         MessageBox.Show("vCard message added to queue.\r\n" +
                  "[Queue Key: " + strKey + "]");
      }

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

   //Event at the start of sending a queued vCalendar message
   private void objSMS_QueueVCardSending
      (object sender, mCore.QueueVCardSendingEventArgs e)
   {
      MessageBox.Show("Sending vCard message to: " + e.DestinationNumber + "/r/n" +
            "[Queue Key: " + e.QueueMessageKey + "]");
   }

   //Event at the end of sending a queued vCard message
   private void objSMS_QueueVCardSent
      (object sender, mCore.QueueVCardSentEventArgs e)
   {
      if (e.ErrorCode > 0)
      {
         MessageBox.Show("vCard message sending FAILED to: " + e.DestinationNumber +
               "/r/n" + "[ERROR: " + e.ErrorDescription + _
               "]/r/n[Queue Key: " & e.QueueMessageKey + "]");
      }
      else
      {
         MessageBox.Show("vCard message SENT to: " + e.DestinationNumber +
               "/r/n" + "[ERROR: " + e.ErrorDescription + _
               "]/r/n[Queue Key: " & e.QueueMessageKey + "]");
      }
   }

   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)
      {
      }
   }
}