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 vote200 views1 answer
Vba add shape oval
VBA
0 vote216 views1 answer
String contins in vba
VBA
8 votes480 views1 answer
Vba make a short integer from two bytes
VBA
0 vote233 views1 answer
Build an index all files of a FTP site
VBA
0 vote202 views1 answer
Vb net check if file exists
VBA
0 vote199 views2 answers
Excel vba copy paste after last row
VBA
1 vote225 views1 answer
Extract the second word in a text in excel
VBA
0 vote235 views1 answer
How to add line graph vb net
VBA
0 vote231 views1 answer
Vba search string position
VBA
4 votes213 views2 answers
Vba create folder if not exist
VBA