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

8 votes236 views1 answer
Excel vba determine number of elements in a 1D array
VBA
1 vote146 views1 answer
Vba declare api 64 bit 32 bit
VBA
0 vote149 views1 answer
Vb net dgv doesn't keep currency format
VBA
8 votes310 views1 answer
Excel vba make word from bytes
VBA
0 vote160 views1 answer
Dlete rows with blanks and space " " vba
VBA
0 vote141 views1 answer
Excel vba disable screen update
VBA
-1 vote148 views1 answer
VBA check if a cell contains a letter or string
VBA
0 vote156 views1 answer
Change form background image vb
VBA
18 votes319 views2 answers
Vba make word from bytes
VBA
0 vote146 views1 answer
Vba code to select image in sheet
VBA