    
Army Family Action Plan (AFAP)
Improving Quality of Life
 Let us know what you think!
In the text box below please describe
the issue, tell us who it impacts and why,
and make recommendations on how to
resolve it
<%
Dim vSuccessful, vMessage
vSuccessful = "False"
If Request.Form("Comments") = "" Then
'Do Nothing
Else
vMessage = "AFAP concerns " & date() & vbCrLf & vbCrLf
vMessage = vMessage & "Message: " & Request.Form("Comments") & vbCrLf
Set myMail=CreateObject("CDO.Message")
myMail.Subject = "AFAP concerns: " & Request.Form("Subject")
myMail.From = "drum.mwraftb@conus.army.mil"
myMail.To = "drum.mwrpub@conus.army.mil"
myMail.TextBody = vMessage
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="74.54.166.48"
'Server port
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields.Update
myMail.Send
vSuccessful = "True"
set myMail=nothing
End If
%>
|
