Отправка смс через скайп

[strannick]

Сообщение от Hugo121

Ну тогда давайте сравним цены - через сайт 15 коп. штука.
Похоже, что где-то в 15 раз дешевле, чем скайп...

Та дело не в цене. Тут не массовая рассылка. Штук 10-20 в день. Поэтому и вопрос о рассылке со своих аккаунтов.

[Hugo121]

Так я тоже делал человеку не массовую. Ему сотрудникам нужно сообщения слать, по одному.
Но на сайте есть другие полезности, чего думаю нет в скайпе - это и сразу результат ушло/нет, и всякие отчёты на сайте или в запросах. Можно все отосланные смс просмотреть.
Мне в общем всё равно, я не настаиваю

[strannick]

Сообщение от Hugo121

Мне в общем всё равно, я не настаиваю

Да я предлагал тоже разные варианты. Но задача вот именно такая.
Пополнил сегодня свой скайп, пробую, ругается на:

Set oSms = oSkype.SendSms("+380995555555", "Прошло")

Из самого скайпа прошло, а через макрос нет. Чем можно объяснить? Вот такая ошибка (вложил).

[raxp]

...у меня в хэдерах три параметра в функции и услуга должна быть активна.

[strannick]

Сообщение от raxp

...у меня в хэдерах три параметра в функции и услуга должна быть активна.

Услуга активна (вручную же проходит). А какие три параметра?

[doober]

У меня все без проблем работает.При самом первом запуске скайп спрашивает,можно ли Excel подключиться к скайпу,надо дать добро.
Замаливайте грехи.

http://www.programmersclub.ru/отправка-смс-через-skype/

[strannick]

Сообщение от doober

У меня все без проблем работает.При самом первом запуске скайп спрашивает,можно ли Excel подключиться к скайпу,надо дать добро.
Замаливайте грехи.

Все поподключал. Ругается на SendSms (именно эту часть подсвечивает). Сейчас установлю 2013й офис (все равно надо ставить) и на нем буду пробовать.

[strannick]

Переустановил офис, переустановил скайп, поставил надстройку, все подключил (на рисунках). Все равно подсвечивает SendSms. Скайп не запрашивал подключение в excel. Может что лишнее втулил?

[strannick]

Вот еще нарыл такой код ():

Public Sub SendTestSMS()
    Dim strMsg As String
    Dim strContact As String
    Dim strPhoneNumber As String

    strPhoneNumber = GetSetting("SendSkypeSMS", "PhoneNumber", "Data", "")

    strContact = InputBox("Make sure you allow Outlook to use Skype when prompted in Skype." & vbCrLf & _
                            "You will probably have to do this for every session" & vbCrLf & _
                            "Enter your mobile number (+44123456789)", "Enter Phone Number", strPhoneNumber)

    SaveSetting "SendSkypeSMS", "PhoneNumber", "Data", strContact

    If Len(strContact) = 0 Then
        Exit Sub
    End If

    strMsg = "A test message from Outlook"
    subSendSMS strContact, strMsg

    strPhoneNumber = GetSetting("SendSkypeSMS", "PhoneNumber", "Data", "")
    MsgBox "Sent a text to: " & strPhoneNumber
    SaveSetting "SendSkypeSMS", "PhoneNumber", "Data", strPhoneNumber

End Sub

Public Sub SendSMSRule(Item As Outlook.MailItem) 'Outlook will give us the mail item that matched the rule
    Dim strPhoneNumber As String

    strPhoneNumber = GetSetting("SendSkypeSMS", "PhoneNumber", "Data")

    If strPhoneNumber = "" Then
        MsgBox "You have to send a test SMS message so that I know what your phone number is!", vbCritical
        Exit Sub
    End If

    subSendSMS strPhoneNumber, Item.Subject

End Sub

Private Sub subSendSMS(strRecipients As String, strMessage As String)
    Dim objSkype        As SKYPE4COMLib.Skype
    Dim objSMS          As SKYPE4COMLib.SmsMessage

    Set objSkype = New SKYPE4COMLib.Skype

    If Not objSkype.Client.IsRunning Then
        objSkype.Client.Start
    End If

    objSkype.Attach , True

    Set objSMS = objSkype.CreateSms(smsMessageTypeOutgoing, strRecipients)

    With objSMS
        .Body = strMessage
        .Send
    End With

    objSkype.Convert.SmsMessageStatusToText (objaStatus)

KillObjects:
    Set objSMS = Nothing
    Set objSkype = Nothing
End Sub

Помогите разобрать.

[strannick]

Возвращаясь к напечатанному. Проблема решилась путем повторной установки SkypeAPI. Код отправки смс уже с циклом по ячейкам (для пробы):

Sub sendsms()
Dim mSkype As New Skype
Dim mSMSMessage As New SmsMessage
Dim SMSNumber As String, SMSText As String, SMSReplayNumber As String, SendStatus As String
Dim nSendStatus As Long

For i = 1 To 2
  SMSNumber = Cells(i, 2).Value ' Cell A2 contains mobile number
  SMSText = Cells(i, 1).Value   'Cell A1 contains sms text message to send
   
  Set mSMSMessage = mSkype.CreateSms(smsMessageTypeOutgoing, SMSNumber)
  With mSMSMessage
   .Body = SMSText
   .Send
   nSendStatus = .Status
 End With
Next i

End Sub

Но номера телефонов вопринимает только в международном формате +380ХХХХХХХХХ (для Украины). Так что необходимо делать преобразование (очищать от пробелов, скобок, тире и т.д.).
Кстати, пока решал эту проблему нашел код отправки сообщений через скайп по нику скайпа:

Sub testingskype()
Dim aSkype As SKYPE4COMLib.Skype
Set aSkype = New SKYPE4COMLib.Skype
Dim oChat As Chat
Dim skUser As SKYPE4COMLib.User
    Set skUser = aSkype.User("Тут ник получателя")
    Set oChat = aSkype.CreateChatWith(skUser.Handle)
    oChat.OpenWindow
    oChat.SendMessage "Привет!.....Тестируем скайп"
End Sub

Всем большое спасибо!!!