메일 발송 ASP 소스

mailing.asp

 

<%
set objMessage = createobject("cdo.message")
set objConfig = createobject("cdo.configuration")
Set Flds = objConfig.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.10.2"
Flds.update
Set objMessage.Configuration = objConfig
objMessage.From = "test@sysdocu.com"    // 보내는 사람 이메일 주소
objMessage.To = "test@naver.com"    // 받는 사람 이메일 주소
objMessage.Subject = "CDO 컴포넌트 이용하여 Nmail 통해 메일발송 합니다."    // 제목
objMessage.TextBody = " 어떤 메일서버를 사용하더라도 릴레이 권한이 있어야 합니다."    // 내용
objMessage.fields.update
objMessage.Send

Response.write "발송 완료!"

set objMessage = nothing
set objConfig = nothing 
%>

 

 

5행의 끝자리 2는 이전 게시물 참고하시기 바랍니다.

- 윈도우 자체 : 1

- 기타 솔루션 : 2 

=> cdo 컴퍼넌트 이용시 sendusing 값 1이면 MS SMTP, 2이면 외부 메일 서버

192.168.10.2 : 발송 서버 IP 입력

 

참고 사이트 URL : http://www.passkorea.net/support/FAQ/ViewDoc.aspx?cat=9&docNo=138&iPage=1&schType=&schValue=