※ 필수입력정보 ※

▷ 제품버젼 :
▷ 사용중인 주소(URL) : http://
▷ 문제발생시 메뉴/주소 :
▷ 문제발생시 에러메세지
:

▷ 질문내용
:

항상 성실한 답변을 해 주시는 관리자님 감사합니다.

3.2 버젼에 있던 폼메일 소스를 사용하려 하는데 발송이 안된다는 메세제가 계속 뜨네요...

좀 봐주세요~~!!



<!--#include file="../include/Config.asp"-->

<%
' 페이지가 timeout 되는 시간를 10000초로 늘인다.
Server.ScriptTimeout = 10000

Dim selectBox
Dim subject
Dim from
Dim too
Dim charset
Dim sendtype
Dim memo
Dim arrayToo
Dim countToo
Dim send_stuatus

Set Sendmail = Server.CreateObject("Nsendmail.mail.1")

Subject = Request.Form("subject")
From = Request.Form("From")
Too = Request.Form("To")
charset = Request.Form("charset")
sendtype = Request.Form("sendtype")
memo = Request.Form("memo")

arrayToo = split(Too,",")
countToo = ubound(arrayToo)

' 메일발송시 발송된 메일을 저장하는 루틴을 위하여 필요함...
send_status = true

if countToo > 0 then
for i = 0 To countToo
'servers 변수는 메일 서버 도메인 입니다.
if Sendmail.Sendformemail(memo, servers, From, arrayToo(i), "", Subject, charset, sendtype) <> 0 then
send_status = false
end if
Next
else
if Sendmail.Sendformemail(memo, servers, From, Too, "", Subject, charset, sendtype) <> 0 then
send_status = false
end if
end if

Set Sendmail=nothing

if send_status = true then
message = "메일이 정상적으로 발송되었습니다."
else
message = "메일발송에 실패하였습니다."
end if

With Response
.Write "<Script language=""javascript"">" & vbcrlf _
& "<!--" & vbcrlf _
& " alert(""" & message & """);" & vbcrlf _
& " self.location.href = ""formmail.asp"";" & vbcrlf _
& "//-->" & vbcrlf _
& "</script>" & vbcrlf
.End
End With
%>