|
|
|
<%'---------------------------------------------%>
<%
Dim mailcontent, myMail,txtFrom
If Request.Form("txtEmail") = "" then
txtFrom = "NoAddress@NoAddress.com"
Else
txtFrom = Request.Form("txtEmail")
End If
if Request.form("posted") = "true" then
mailcontent = "From: " & Request.form("txtName") & vbNewLine & _
"Subject: " & Request.form("txtSubject") & vbNewLine & _
"Email: " & Request.form("txtEmail") & vbNewLine & _
"Body: " & Request.form("txtBody")
Set myMail = CreateObject("CDO.Message")
Set objConfig = Server.CreateObject("CDO.Configuration")
'Configuration:
objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
objConfig.Fields(cdoSMTPServer)="smtp.1and1.com"
objConfig.Fields(cdoSMTPServerPort)=25
objConfig.Fields(cdoSMTPAuthenticate)=cdoBasic
objConfig.Fields(cdoSendUserName) = "m37951512-admin"
objConfig.Fields(cdoSendPassword) = "ptsadmin"
'Update configuration
objConfig.Fields.Update
Set myMail.Configuration = objConfig
myMail.Subject = "OCNJMuseum.org Feedback"
myMail.From = txtFrom
myMail.To = "info@ocnjmuseum.org"
myMail.TextBody = mailcontent
myMail.Send
Set objConfig = nothing
Set myMail = nothing
%>
<%else%>
<%end if%>
|
