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