LOCAL loSkype as skype4com.skype, lcPhoneNr as String, lcMessage as String, lnStatus as number

lnStatus = 0

loSkype = CreateObject("Skype4COM.Skype", "Skype_")
lcPhoneNr = "+311234567890"
lcMessage = "this is a test"

If Not loSkype.Client.IsRunning Then
   do while Not loSkype.Client.IsRunning
      loSkype.Client.Start() 
   enddo
EndIf

loSkype.SendSms( lcPhoneNr, lcMessage)

INKEY(.5)

?loSkype.Convert.SmsMessageStatusToText(lnStatus)

LOCAL loSkype as skype4com.skype 
LOCAL lcMessage
    
  m.loSkype = CREATEOBJECT("Skype4COM.Skype", "Skype_")  
  m.cMessage = "this is a test"  
    
  IF !loSkype.Client.IsRunning
      DO WHILE !loSkype.Client.IsRunning  
        m.loSkype.Client.Start(.T.,.T.)   
     ENDDO
  EndIf  
  
 m.loSkype.Client.OpenMessageDialog("Ник пользователя", m.cMessage)
 
 m.loSkype = .NULL.

m.loSkype.Client.OpenSendContactsDialog("Ник пользователя")

MESSAGEBOX(m.loSkype.Version)