I have a public sub (below) that works perfectly on my development desktop running MS Access (Office 365 Business Standard Click 2 Run) but won't send the email from the Godaddy VPS windows server 2016. I am using 2013 access runtime to run the database on the VPS. Everything works fine in runtime except the email send. I have searched for an answer for days with no luck.
Public Sub DriverAlert_Click()
Dim thund As String
Dim stAddress As String
Dim cc As String
Dim bcc As String
Dim subj As String
Dim body As String
stAddress = Me.AssignedDriverEmail
'email = "test@test.com"
'cc = "test@test.com"
'bcc = "test@test.com"
subj = "Driver Alert"
body = "From" & vbCrLf & FrmCompanyFLC & vbCrLf & Me.FrmAddressFLC & vbCrLf & Me.FrmCityStateZipFLC & vbCrLf & Me.FrmContactFLC & vbCrLf & Me.FrmPhoneFLC & vbCrLf & vbCrLf & vbCrLf _
& "TO" & vbCrLf & Me.ToCompanyFLC & vbCrLf & Me.ToAddressFLC & vbCrLf & Me.ToCityStateZipFLC & vbCrLf & Me.ToContactFLC & vbCrLf & Me.ToPhoneFLC & vbCrLf & vbCrLf _
& "BILLING" & vbCrLf & Me.BillCompany & vbCrLf & Me.BillAddress & vbCrLf & Me.BillCityStateZip & vbCrLf & Me.BillPhone & vbCrLf & Me.BillContact & vbCrLf & Me.BillPO & vbCrLf & vbCrLf _
& "Quantity: " & Me.NoOfPeicesFLC & vbCrLf & "Weight: " & Me.WeightFLC & vbCrLf & "Description: " & Me.Description & vbCrLf & "Miles: " & Me.Miles & vbCrLf & "Rate: " & Me.Rate & vbCrLf & "Arrive/Depart: " & Me.ArriveDepart & vbCrLf & "Flight #: " & Me.FlightNumberFLC & vbCrLf & "MAWB #: " & Me.MAWBFLC & vbCrLf & vbCrLf & "Notes: " & Me.NotesFLC & vbCrLf _
thund = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe " & _
"-compose " & """" & _
"to='" & stAddress & "'," & _
"cc='" & cc & "'," & _
"bcc='" & bcc & "'," & _
"subject='" & subj & "'," & _
"body='" & body & "'" & """"
' DoCmd.SendObject , , acFormatTXT, stAddress, , , subj, body, True
Call Shell(thund, vbNormalFocus)
' SendKeys "^+{ENTER}", True
Exit Sub
End Sub
Thank you in advance.