[Resolvido]Dúvidas do tópico "Enviando SMS através do Access"

Referente a este tópico: Enviando SMS através do Access

---

Amigo, testei e ainda não recebi o SMS, mas se realmente funcionar, é INACREDITAVEL.

Parabéns

Amigão... ele precisa ter um modem conectado no PC com chip e créditos para enviar...

A sms&Co vende um modem com antena proprio para isso... mas pode usar alguns celulares como Modem..
Ai ele conecta em um ModemVirtual (Simulador) apenas para teste... se observas nas mensagens ele mostrara o status de enviado/recebido ou com aviso de recebimento...(Virtual)

Para efetivamente funcionar tem que estar conectado em um modem e selecionar o mesmo no frmMain..

Tenho um código do Skype se quiser posso enviá-lo tambem

Saudações

A biblioteca DLL tem validade... creio que depois tem que adquiri-la na SMS&Co com o devido registro..

Po, se puder enviar agradeço Hary.!!!

Bem.. este é o codigo do Spype.. não experimentei usá-lo neste Exemplo da SMS&Co

Mas Esta ai..

skypeSample.zip"
private Sub cmdSendSkype_Click()

' By Mark Plumpton
' Custom Data Solutions Ltd


SkypeSMS txtNumber, txtMessage


End Sub
Public Function SkypeSMS(strNumber As String, strBody As String)
'strNumber is in international format

Dim sky As New SKYPE4COMLib.skype
Dim sms As SKYPE4COMLib.SmsMessage

Set sms = sky.CreateSms(smsMessageTypeOutgoing, strNumber)
sms.Body = strBody
sms.Send

'you can loop here and wait till the message is sent or fails
Debug.Print sms.Status
Set sms = Nothing

End Function
Notes

'Uses Skype4Com.dll
' https://developer.skype.com/Docs/Skype4COM/Start

Valeu, depois vou testar, grande abraço!!!

expirou.