Telephon call in vba

 '// 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

Source: stackoverflow.com

Similar codes

0 vote236 views1 answer
Check range is in another range vba
VBA
0 vote272 views1 answer
COMO GRAVAR U VALOR NO ARQUIVO APPSETINGS EM VB NET
VBA
0 vote238 views1 answer
Vba DisplayGridlines
VBA
0 vote243 views1 answer
Excel vba saveas no prompt for overwrite
VBA
0 vote231 views1 answer
Excel vba disable alerts
VBA
1 vote253 views1 answer
Shortcut to apply a formula to an entire column in excel
VBA
0 vote265 views2 answers
VB
VBA
9 votes305 views2 answers
Excel vba convert 2 Short integers to a Long integer
VBA
4 votes245 views1 answer
Excel vba Imitating the "IN" operator from python
VBA
2 votes236 views2 answers
Excel vba copy values range to another range
VBA