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 vote126 views1 answer
Delete rows in excel vba code
VBA
0 vote136 views1 answer
How to make a a msgbpx in vbs
VBA
4 votes124 views1 answer
Excel vba how to reset usedrange
VBA
0 vote124 views1 answer
Vbnet cycle through charaters in string
VBA
1 vote118 views1 answer
Excel vba hide zero values
VBA
0 vote120 views1 answer
Handling a click event anywhere inside a panel vb
VBA
0 vote122 views1 answer
Send webhook vbscript
VBA
0 vote121 views1 answer
Vba integer to double
VBA
1 vote130 views1 answer
Add rows to datagridview vb.net
VBA
1 vote132 views1 answer
Sort using vba
VBA