PDA

View Full Version : Sending SMS through VBA



instanceofti
07-27-2016, 03:49 PM
My code worked for sending emails using the code below. I have tried directly from Windows live mail using phone number and it worked.
But, the minute I put the phone number in the code I get a 1004 error. Using livemail 2014 windows 10 (phone number and email syntax changed on purpose because of URL limitations on here)

Sub mail()


Dim strDate As String

Sheets("Log").Visible = True
Sheets("Numbers").Visible = True

Sheets("Numbers").Copy
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SaveAs "Pricer productivity " & ThisWorkbook.Name _
& " " & strDate & ".xls"
ActiveWorkbook.SendMail "mynumber at vtext.com", _
"Clothing Pricer"
ActiveWorkbook.SendMail "my email at yahoo.com", _
"Clothing Pricer"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False

Sheets("Log").Visible = False
Sheets("Numbers").Visible = False

ActiveWorkbook.Save

End Sub

instanceofti
07-27-2016, 03:52 PM
phone number used was a 10 digit number example: 5095551212@vtext.com

code worked properly until my verizon phone number was used (however, directly from Live Mail it did work)