CDO를 이용해서 메일 보내기. -.-;;;;
아... 열라 삽질했다. ㅠ_ㅠ;;;;
우울해;;; ㅠ_ㅠ;;;
Set iMsg = Server.CreateObject("CDO.Message") ' 개체 생성
Set iConf = iMsg.Configuration
' SendUsing 속성을 지정하기 위한 개체 생성
With iConf.Fields
.item("http://schemas.microsoft.com/cdo/configuration/sendusing (새 창으로 열기)") = 1
' 1일 경우 로컬(SMTP), 2일 경우 외부(SMTP)를 이용해서 메일전송
.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport (새 창으로 열기)") = 25
' 포트번호
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory (새 창으로 열기)") = "C:\Inetpub\mailroot\Pickup"
' Pickup 디렉토리 설정(익스체인지서버가 설치된 경우는 익스체인지 픽업 디렉토리 지정)...위 smtpserverport와 둘중 하나만 사용
.item("http://schemas.microsoft.com/cdo/configuration/smtpserver (새 창으로 열기)") = "218.145.70.178"
' 외부일 경우 ip 혹은 도메인명 로컬이면, local로 명시
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout (새 창으로 열기)") = 30
' 요청 타임아웃 설정
.Update
End With
with iMsg
.To = 수신자 이메일
.From = 발신자 이메일
.Subject = "제목"
.HtmlBody = "내용"
.Send
end with
Set iMsg = Nothing ' 개체 종료
(0) 
(0)
