궁금궁금
※ 필수입력정보 ※
▷ 제품버젼 :
▷ 오류발생 메뉴/주소 :
▷ 에러메세지 :
저 프로그램으로 짜서 메일 발송이 되게 하는데 outlook에서는 수신이 되는데 왜 ?? webmail에서는 email이 안오죠 그리고 한번만 보고 나면 메일이 저절로 없어지네요 답변 부탁 드립니다.
▷ 질문내용 :
<%
Dim name, email, receiver, receiver_email, content, subject
name = request("name")
receiver = request("receiver")
subject = request("subject")
email = request("email")
receiver_email = request("receiver_email")
content = request("content")
content = replace(content,chr(13)&chr(10),"<br>")
set objMessage = createobject("cdo.message")
set objConfig = createobject("cdo.configuration")
' 메일서버를 지정 합니다.
' sendusing 값이 1이면 MS SMTP를 이용하고 2이면 소켓전송방식으로 다른 메일서버를 사용 할 수 있습니다.
' smtpserver 항목은 IP혹은 도메인으로 입력하면 됩니다. (예: 211.170.106.1 or mail.passkorea.net )
Set Flds = objConfig.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Flds.update
Set objMessage.Configuration = objConfig
objMessage.To = receiver_email '받는 사람 이메일 주소
objMessage.From = receiver_email '보내는 사람 이메일 주소
objMessage.Subject = subject & "[Client Q&A]" '제목
objMessage.TextBody = content
' 메일 내용이 HTML 형식이면 objMessage.TextBody 대신에 objMessage.HTMLBody를 사용
objMessage.fields.update
objMessage.Send
Response.write "발송 완료!!!!"
set objMessage = nothing
set objConfig = nothing
%>
이전 글 | 대량메일 발송시 일부 발송이 안됩니다.. 2 | 오*호 | 2007.03.26 |
---|---|---|---|
다음 글 | 수신은 되는데 송신이 안됩니다.(에러메시지) 1 | 1**4 | 2007.03.23 |