FastCat
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Есть форма обратной связи на .VBScript
Она отсылает сообщение на e-mail используя localhost.
Подскажите pls, как ее нужно модифицировать, что бы использовался не localhost, а сторонний mail сервер ?
Код: <%@ Language=VBScript %>
<html>
<head>
<title>Обработка формы</title>
</head>
<body>
<%
Set sm = Server.CreateObject("SMTP_sender.sendmail")
sm.Open "localhost"
sm.Koi8 = true
sm.From = "<>"
sm.AddTo = "mail@mail.ru"
sm.Subject = "Заявка " + Request("who_name")
theBody = " Заявка " + Request("who_name") + vbCrLf
theBody = theBody + " Заявка - " + Request("who_phone") + vbCrLf
theBody = theBody + " Заявка - " + Request("pom") + vbCrLf
theBody = theBody + " Заявка - " + Request("who_pom") + vbCrLf
theBody = theBody + " Заявка " + Request("dep") + vbCrLf
mainHeader = vbCrLf + " Заявка:" + vbCrLf
' theBody = theBody + vbCrLf
' theBody = theBody + " Заявка:" + vbCrLf
smSpace = " "
infBody = ""
tmpBody = ""
infBody = infBody + tmpBody
if Request("invnumber") = "" then
tmpBody = tmpBody + smSpace + " Заявка N Заявка: " + smSpace + " Заявка " + vbCrLf
else
tmpBody = tmpBody + smSpace + " Заявка N Заявка: " + smSpace + Request("invnumber") + vbCrLf
end if
if Request("name") = "ON" then tmpBody = tmpBody + smSpace + " Заявка " + vbCrLf
if Request("name") = "ON" then tmpBody = tmpBody + smSpace + " Заявка " + vbCrLf
if Request("name") = "ON" then tmpBody = tmpBody + smSpace + " Заявка " + vbCrLf
if Request("name") = "ON" then tmpBody = tmpBody + smSpace + " Заявка " + vbCrLf
if Request("name") = "ON" then tmpBody = tmpBody + smSpace + " Заявка " + vbCrLf
if Request("name") = "ON" then tmpBody = tmpBody + smSpace + " Заявка " + vbCrLf
if Request("name") = "ON" then tmpBody = tmpBody + smSpace + " Заявка " + vbCrLf
if Request("name") = "ON" then tmpBody = tmpBody + smSpace + " Заявка " + vbCrLf
if Request("name") = "ON" then tmpBody = tmpBody + smSpace + " Заявка " + vbCrLf
if Request("name") = "ON" then tmpBody = tmpBody + smSpace + " Заявка + vbCrLf
if Request("name") = "ON" then tmpBody = tmpBody + smSpace + " Заявка " + vbCrLf
tmpBody = tmpBody + vbCrLf
tmpBody = tmpBody + smSpace + " Заявка:" + vbCrLf
if Request("opis_text") = "" then
tmpBody = tmpBody + smSpace + " Заявка " + vbCrLf
else
tmpBody = tmpBody + smSpace + smSpace + smSpace + Request("opis_text") + vbCrLf
end if
tmpBody = tmpBody + vbCrLf
tmpBody = tmpBody + smSpace + " Заявка:" + vbCrLf
if Request("other_text") = "" then
tmpBody = tmpBody + smSpace + " Заявка " + vbCrLf
else
tmpBody = tmpBody + smSpace + smSpace + smSpace + Request("other_text") + vbCrLf
end if
if tmpBody <> "" then theBody = theBody + mainHeader + tmpBody
sm.Body = theBody
sm.SendLetter
%>
<%=sm.Error%>
<p><br>
<%'=theBody%><%
sm.Close
set sm = nothing
%><script language="JavaScript">
alert(" Заявка \r\n Заявка.\r\nЗаявка \r\n Заявка \r\n Заявка \r\n Заявка ");
document.location.href=" Заявка "
</script>
</p>
</body>
</html> |
p.s.
sm.Open "localhost" я менял на sm.Open "mail.mydomain.ru" (этот сервер авторизации не требует).
Но ничего не работает при такой замене.
На самом сервере через telnet на mail.mydomain.ru все работает. |
