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>

<legend><center><b>Balances, envios de SMS</b></center></legend>

<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>

</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