Question : send sms from access to a mobile

Hi:
I need to send sms messages from access to a mobile
please

Answer : send sms from access to a mobile

Hi M_SOLAIMAN

IMHO the simplest way to do that is to use E-mail.
You must know who is the provider of your recipient's cell.
Then you can send an email using kind of following format:
T-Mobile: [email protected]
Virgin Mobile: [email protected]
Cingular: [email protected]
Sprint: [email protected]ntpcs.com
Verizon: [email protected]
Nextel: [email protected]el.com

Refer to provider's website for exact syntax.

Below is an example to send E-mail from Access form using Gmail account

Hope this helps
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

Private Sub btSend_Click()
'original code by westconn1

Set objmessage = CreateObject("CDO.Message")
objmessage.Subject = Me.tbSubject
objmessage.From = Me.tbGmailLogin & "@gmail.com"
objmessage.To = Me.tbTo
objmessage.TextBody = Me.tbTextBody '"This is some sample message text."
 
 objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
'Name or IP of Remote SMTP Server
  
'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'Your UserID on the SMTP server
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = Me.tbGmailLogin
 
'Your password on the SMTP server
 
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Me.tbPassword
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
'Server port (typically 25)
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
'Use SSL for the connection (False or True)
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objmessage.Configuration.Fields.Update
objmessage.Send
Set objmessage = Nothing

'Call MsgBox("E-mail sent via Gmail SMTP", vbInformation, Application.Name)

End Sub
Open in New Window
Select All
Random Solutions  
 
programming4us programming4us