Re: [MSAccessProfessionals] Send SMS from Access

hi Khalid,

one sure way is to know the carrier for the phone and you can construct address in email form and then just use email ;)

If you use Outlook, here is some basic code:

sub SendEmail()
'151118 strive4peace
   on error goto Proc_Err

   Dim outApp As Object
   Dim outMsg As Object
  
   Set outApp = CreateObject("Outlook.Application")
   Set outMsg = outApp.CreateItem(0) '0=olMailItem

   with outMsg
      '.Importance = olImportanceHigh
       .To = sEmail
       '.CC = "cc email address"
       '.BCC = "cc email address"
        .Subject = "Your subject line"
        .Body = "Your message"
       ' .Attachments.Add sPathFile
       ' If you want to edit the message then uncomment Display and comment Send
       '.Display
        .Send 
   end with        
  
Proc_Exit:
   On Error Resume Next
   'release object variables
   Set outMsg = Nothing
   Set outApp = Nothing
   Exit Sub
 
Proc_Err:
   MsgBox Err.Description, , _
        "ERROR " & Err.Number _
        & "   SendEmail"

   Resume Proc_Exit
   Resume
End Sub

 If you know phone number and carrier, you can construct SMS through E-Mail.  For instance (this is an old list so some might be different now):

T-Mobile: phonenumber@tmomail.net
Virgin Mobile: phonenumber@vmobl.com
Cingular: phonenumber@cingularme.com
Sprint: phonenumber@messaging.sprintpcs.com
-- [10-digit phone number]@messaging.sprintpcs.com
Verizon: phonenumber@vtext.com
Nextel: phonenumber@messaging.nextel.com
Alltel: phonenumber@message.alltel.com
AT&T (formerly Cingular): phonenumber@txt.att.net
-- For multimedia messages, use [10-digit-number]@mms.att.net
Boost Mobile: phonenumber@myboostmobile.com
Cricket Wireless:  phonenumber@sms.mycricket.com
--- For multimedia messages: [10-digit phone number]@mms.mycricket.com
Nextel (now part of Sprint Nextel): [10-digit telephone number]@messaging.nextel.com
Virgin Mobile USA: [10-digit phone number]@vmobl.com
Bell Canada: [10-digit-phone-number]@txt.bellmobility.ca
Centennial Wireless: [10-digit-phone-number]@cwemail.com
Cellular South: [10-digit-phone-number]@csouth1.com
Cincinnati Bell: [10-digit-phone-number]@gocbw.com
Metro PCS: [10-digit-phone-number]@mymetropcs.com or [10-digit-phone-number]@metropcs.sms.us
Qwest: [10-digit-phone-number]@qwestmp.com
Rogers: [10-digit-phone-number]@pcs.rogers.com
Suncom: [10-digit-phone-number]@tms.suncom.com
Telus: [10-digit-phone-number]@msg.telus.com
U.S. Cellular: [10-digit-phone-number]@email.uscc.net

kind regards,
crystal

On 7/28/2022 9:48 AM, Khalid Tanweer via groups.io wrote:

Hello everyone,
My client has demanded me that when an invoice is printed for any customer a thank you SMS should go to the customer and a SMS should be received by the owner of the shop containing some selected fields of that invoice. I need complete help in this regard.
I'm using Access 2019 on windows 11.
Best regards,
Khalid