mCore™ .NET SMS Library 1.2

mCore.QueueVCardSendingEventArgs Class

Description:

The QueueVCardSendingEventArgs class prepares data for the QueueVCardSending event.

Namespace: mCore
Assembly: mCoreLib (in mCoreLib.dll)
Inherits: System.EventArgs

Exceptions:

mCore.GeneralException

Properties:

Property Description Type
DestinationNumber Destination mobile phone number to which the vCard message is being sent String
Priority Queue priority of the vCard message being sent SMS.EnumQueuePriority
QueueMessageKey Unique key as string that identifies the vCard message in the queue String

Usage Example:

Visual Basic
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
 
C#

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

See Also:

mCore.SMS.QueueVCardSending Event
mCore.SMS.QueueVCardSendingEventHandler Delegate

 

Copyright © IG Logix Softech Pvt Ltd, All Rights Reserved