Gönderdiğiniz
e-posta en kısa zamanda yanıtlanacaktır.
Teşekkür ederiz.
EPA Endüstri Pazarlama Limited Şirketi
<%
'Declare variables for the e-mail script
dim strAddr
dim replyTo
dim strSubject
dim strText
'Next, declare itsReady variable so we can trigger e-mail function
'only if user has entered an e-mail address. A real form would
'have a stringent error checking routine
dim itsReady
itsReady = ""
'Get input from the form and assign it to script variables
strAddr = Trim(Request.form("user_email"))
if strAddr <> "" then
replyTo = cstr(strAddr)
end if
strSubject = Request.form("user_subject")
strName = Request.form("user_name")
strMsg = Request.form("user_text")
strText = "E-mail from: " & strAddr & vbCrLf & "Gonderen: " & strName & vbCrLf & "Concerning: " & strMsg
'Note: use vbCrLf (as above) to add line breaks in e-mail message
'Now trigger e-mail function if submitted with a non-blank user_email
if replyTo <> "" then itsReady = send_email()
'The send_email function formats and sends the e-mail
function send_email()
'Create an object or container for your mail
Dim objCDOSYSCon
Dim objCDOSYSMail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'Out going SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.baskent.edu.tr"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon
'Format the e-mail using fields from your HTML form
objCDOSYSMail.To = "20093512@mail.baskent.edu.tr"
objCDOSYSMail.From = "20093512@mail.baskent.edu.tr"
'The From address is a fake address to alert you to
'the origin of the email. You will not reply to it.
objCDOSYSMail.ReplyTo = replyTo
'replyTo is the user_email address from the form
objCDOSYSMail.Subject = strSubject
objCDOSYSMail.TextBody = strText
objCDOSYSMail.Send 'comment out to test script without sending mail
'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
end function
%>