sms
Con este cacho codigo y los permisos necesarios de tu movil miviestar podrás programar una estupenda aplicación de envios de sms desde tu ordenata.
crea una pagina html con este codigo:
<html>
<title><b>Balances-SMS</b></title>
<body>
<div><fieldset>
<legend><center><b>Balances, envios de SMS</b></center></legend>
<form action='https://opensms.movistar.es/aplicacionpost/loginEnvio.jsp' method='POST'>
<input type='hidden' name='TM_ACTION' value='AUTHENTICATE'>
<BR>Mi Movil : <input type='text' name='TM_LOGIN'>
<BR>Password : <input type='password' name='TM_PASSWORD'size=20>
<BR>Destinos : <input type='text' name='to'size=40>
<BR>Texto : <input type='text' name='message' size=80>
<input name="ContinueCmd" type='submit' value='Enviar'>
</fieldset>
</div>
</form>
</body>
</html>
crea un formulario con este otro codigo
Nota: En este formulario incrusta un control: Explorador del Web de Microsoft
Private Sub Form_Open(Cancel As Integer)
Dim PASSWORD As String
On Error GoTo Form_Open_Error
PASSWORD = InputBox("Es imprescindible su password de administrador", "Acceso restringido !!")
If PASSWORD = "123" Then
Else
MsgBox "Password incorrecto contacte con programación!", vbCritical, "Balances"
DoCmd.Close acForm, Me.Name
Exit Sub
End If
Call estableceCuenta
FlagFocus = True
Call SetFormIcon("Mail.ico", Me.Name, Me.hWnd)
Me.Explorador.Visible = False
Me.Explorador.Navigate CurrentProject.path & "\Ct_Codigos\BalancesSms.html"
Me.Explorador.Visible = False
On Error GoTo 0
Exit Sub
Form_Open_Error:
MsgBox "Error " & err.Number & " (" & err.Description & ") in procedure Form_Open of Documento VBA Form_z_sms", vbCritical, "Balances"
End Sub
Private Sub estableceCuenta()
Dim ret As Boolean
On Error GoTo estableceCuenta_Error
Set rst = DBEngine.Workspaces(0).OpenDatabase(lugarsecundario & "_Datos.mdb").OpenRecordset("tbl_Correos")
rst.Index = "Nombre"
rst.Seek "=", "Movistar"
If rst.NoMatch Then
MsgBox "NoMatch", vbCritical, "Balances"
Else
Me.txtuser = rst!Usuario
Me.txtLogin = rst!Cuenta
Me.txtClave = rst!ClaveUsuario
End If
rst.Close
Set rst = Nothing
On Error GoTo 0
Exit Sub
estableceCuenta_Error:
MsgBox "Error " & err.Number & " (" & err.Description & ") in procedure estableceCuenta of Documento VBA Form_z_sms", vbCritical, "Balances"
End Sub
Private Sub xExplorador_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim doc As HTMLDocument
On Error GoTo xExplorador_DocumentComplete_Error
Set doc = Explorador.Document
doc.Body.innerHTML = " <html> " _
& " <title><b>Balances-SMS</b></title> " _
& " <body> " _
& " <div><fieldset> " _
& " <legend><center><b>Balances, envios de SMS</b></center></legend> " _
& " <form action='https://opensms.movistar.es/aplicacionpost/loginEnvio.jsp' method='POST'> " _
& " <input type='hidden' name='TM_ACTION' value='AUTHENTICATE'> " _
& " <BR>Mi Movil : <input type='text' name='TM_LOGIN'> " _
& " <BR>Password : <input type='password' name='TM_PASSWORD'size=20> " _
& " <BR>Destinos : <input type='text' name='to'size=40> " _
& " <BR>Texto : <input type='text' name='message' size=80> " _
& " <input name=""ContinueCmd"" type='submit' value='Enviar'> " _
& " </fieldset> " _
& " </div> " _
& " </form> " _
& " </body> " _
& " </html> "
On Error GoTo 0
Exit Sub
xExplorador_DocumentComplete_Error:
MsgBox "Error " & err.Number & " (" & err.Description & ") in procedure xExplorador_DocumentComplete of Documento VBA Form_z_sms", vbCritical, "Balances"
End Sub
Private Sub lblSend_Click()
Me.txtC.SetFocus
If IsNull(txtLogin) Then MsgBox "Falta Login", vbCritical, "Balances": Exit Sub
If IsNull(txtClave) Then MsgBox "Falta clave", vbCritical, "Balances": Exit Sub
If IsNull(txtto) Then MsgBox "Falta receptor del mensaje", vbCritical, "Balances": Me.txtto.SetFocus: Exit Sub
If IsNull(Len(Me.txtsmsText)) Then MsgBox "Falta mensaje", vbCritical, "Balances": Me.txtsmsText.SetFocus: Exit Sub
Me.Explorador.Document.all.item("TM_LOGIN").Value = txtLogin
Me.Explorador.Document.all.item("TM_PASSWORD").Value = txtClave
Me.Explorador.Document.all.item("To").Value = txtto
Me.Explorador.Document.all.item("message").Value = txtsmsText
DoEvents
Me.Explorador.Document.all("ContinueCmd").Click
DoEvents
Me.txtsmsText.Visible = False
Me.lblSend.Visible = False
Me.cdrSend.Visible = False
Me.imgAjouter.Visible = False
Me.Explorador.Visible = True
Me.lblSendB.Visible = True
Me.cdrSendB.Visible = True
Me.imgAjouterB.Visible = True
Call guardaelsms
End Sub
Private Sub guardaelsms()
strSQL = "SELECT tbl_Sms.* FROM [" & lugarsecundario & "_Data.mdb" & "].tbl_sms "
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
rst.AddNew
rst("DE") = DLookup("[StrUser]", "MsysMenus")
rst("PARA") = txtC
rst("Tlfno") = txtto
rst("Referencia") = Me.txtReferencia
rst("Mensaje") = txtsmsText
rst("fecha") = Me.txtFechahora
rst.Update
rst.Close
Set rst = Nothing
End Sub
o si no descargate el asunto desde: https://docs.google.com/leaf?id=0B7KVuSDnwjl3ZTVmYzc2ZWItN2E2Ni00ZjY1LTk5ODEtZjYxZWIyZTRhMTI1&hl=es