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

1 vote186 views1 answer
Extract the second word in a text in excel
VBA
0 vote174 views1 answer
Vba loop through table
VBA
6 votes179 views1 answer
Excel vba check if a string only contains alpha characters
VBA
0 vote136 views1 answer
Vbide vbproject reference
VBA
0 vote172 views1 answer
Loop through all text boxes in a form vb
VBA
2 votes199 views2 answers
Excel vba if sunday or staurday
VBA
1 vote188 views1 answer
Find and replace textbox
VBA
22 votes299 views1 answer
Xl vba check for folder
VBA
0 vote182 views1 answer
Open file dialog in vb.net
VBA
-1 vote200 views1 answer
Code for reading letters only in vb 6
VBA