I did search but didn't find what I was looking for.
I inherited most from an existing site that was all .asp. I have rebuilt all in .php now and the only problem i have is that there is an area where they fill out a form to request a VPN account. It is then supposed to send an email from a group mailbox and an email to them, their supervisor, and the VPN admin (all of which they were required to fill out on the form). I then have it set to go to the successful submission page with a short description of what to do next.
Well I have no idea how to build the email part of it and get it to use the information populated from the form and use it to fill out the email.
It's currently in asp and I am not familiar enough with either language to see how to do the conversion of the asp version to make a successful php version.
Any help would be appreciated. Loving the site, lots of great info here.
Here is the asp script.
<my_to_field="AAC Security Requests <example@example.gov>,Albert Carreras <example@example.gov>"
my_to_field=my_to_field & Request.Form("requiredUsersEmail")
my_to_field=my_to_field & ", " & Request.Form("requiredSupervisorEmail")
call sendmail(my_to_field)
Sub sendmail(sendto)
Dim m
Set m = CreateObject("CDO.Message")
m.From = "AAC Security Requests <example@example.com>"
m.To = sendto
m.Subject = "One-VA VPN Access Request " & Request.Form("requiredLastName") & "," & " " & Request.Form("requiredFirstName") & " " & " " & Request.Form("ContractorCompanyName")
message=""
message=message & "One-VA VPN Access Request" & Chr(13) & Chr(10)
message=message & "" & Chr(13) & Chr(10)
message=message & Request.Form("requiredFirstName") & " " & Request.Form("requiredLastName") & " " & "is requesting approval for remote access to the VA network via the One-VA VPN access." & Chr(13) & Chr(10)
message=message & "" & Chr(13) & Chr(10)
message=message & "The next step is for the supervisor to reply to this e-mail with their approval. If you do not concur, there is no need to reply." & Chr(13) & Chr(10)
message=message & "Once AAC Security Requests receives the supervisor's concurrence, processing will continue." & Chr(13) & Chr(10)
message=message & "" & Chr(13) & Chr(10)
message=message & "If you have an CFD issued laptop, Desktop Support (395) will contact you for installing the software." & Chr(13) & Chr(10)
message=message & "" & Chr(13) & Chr(10)
message=message & "By default contractors will be restricted to CFD IP addresses through the VA network while connected remotely via the One-VA VPN." & Chr(13) & Chr(10)
message=message & "Access to any non-CFD IP addresses, as well as restricting Internet access, must be specifically requested in the reply to this e-mail." & Chr(13) & Chr(10)
message=message & "" & Chr(13) & Chr(10)
message=message & "Thank you." & Chr(13) & Chr(10)
message=message & "" & Chr(13) & Chr(10)
message=message & "" & Chr(13) & Chr(10)
message=message & "Personal Information" & Chr(13) & Chr(10)
message=message & "" & Chr(13) & Chr(10)
message=message & "User Has Government Issued Laptop : " & Request.Form("GovIssuedLaptop") & Chr(13) & Chr(10)
message=message & "First Name : " & Request.Form("requiredFirstName") & Chr(13) & Chr(10)
message=message & "Last Name : " & Request.Form("requiredLastName") & Chr(13) & Chr(10)
message=message & "Middle Initial : " & Request.Form("MiddleInitial") & Chr(13) & Chr(10)
message=message & "Users Email Address : " & Request.Form("requiredUsersEmail") & Chr(13) & Chr(10)
message=message & "Last 6 SSN : " & Request.Form("requiredLastSS") & Request.Form("requiredLastSS1") & Chr(13) & Chr(10)
message=message & "Phone : " & Request.Form("requiredPhone") & Request.Form("requiredPhone1") & Request.Form("requiredPhone2") & Chr(13) & Chr(10)
message=message & "Windows User ID : " & Request.Form("requiredWindowsUserID") & Chr(13) & Chr(10)
message=message & "Mail Code : " & Request.Form("requiredMailCode") & Chr(13) & Chr(10)
message=message & "Type of User : " & Request.Form("UserType") & Chr(13) & Chr (10)
message=message & "Contractor Company Name : " & Request.Form("ContractorCompanyName") & Chr(13) & Chr(10)
message=message & "Supervisors Phone : " & Request.Form("requiredSupervisorPhone") & Request.Form("requiredSupervisorPhone1") & Request.Form("requiredSupervisorPhone2") & Chr(13) & Chr(10)
message=message & "Supervisors Email Address : " & Request.Form("requiredSupervisorEmail") & Chr(13) & Chr(10)
message=message & "" & Chr(13) & Chr(10)
message=message & "Justification for the One-VA VPN" & Chr(13) & Chr(10)
message=message & "" & Chr(13) & Chr(10)
message=message & Request.Form("requiredJustification") & Chr(13) & Chr(10)
message=message & "" & Chr(13) & Chr(10)
m.textbody = message
m.Send
Set m = Nothing
End Sub
MOD EDIT: 'CODE' bbcode tags added and e-mail addresses removed.
