telephon call in vba

The solution for “telephon call in vba” can be found here. The following code will assist you in solving the problem.

Get the Code! 
‘// Create a Skype4COM object:

Set oSkype = WScript.CreateObject(“Skype4COM.Skype”, “Skype_”)


‘// Start the Skype client:

If Not oSkype.Client.IsRunning Then oSkype.Client.Start() End If


‘// Send SMS:

Set oSMS = oSkype.SendSms(“+1234567890”, “Hello!”)


WScript.Sleep(60000)


‘// Message event handler:

Public Sub Skype_SmsMessageStatusChanged(ByRef aSms, ByVal aStatus)

  WScript.Echo  “>Sms ” & aSms.Id & ” status ” & aStatus & ” ” & oSkype.Convert.SmsMessageStatusToText(aStatus)

End Sub


‘// Target event handler:

Public Sub Skype_SmsTargetStatusChanged(ByRef aTarget, ByVal aStatus)

  WScript.Echo  “>Sms ” & aTarget.Message.Id & ” target ” & aTarget.Number & ” status ” & aStatus & ” ” & oSkype.Convert.SmsTargetStatusToText(aStatus)

End Sub

Thank you for using DeclareCode; We hope you were able to resolve the issue.

More questions on [categories-list]

Similar Posts

vbs

Bym0nxt3r

The solution for “vbs” can be found here. The following code will assist you in solving the problem.Thank you for using DeclareCode; We hope you were able to resolve the issue. More questions on [categories-list]