원격 서버의 SMTP 사용하기

원격 서버의 SMTP 사용하기 [출처] 원격 서버의 SMTP 사용하기|작성자 항해자  

아래의 소스를 참조하세요..

www.asper.pe.kr 소스를 참고 했습니다.

<%
    Dim iMsg, iConf, Flds

    Set iMsg  = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    Set Flds  = iConf.Fields
    iConf.Load 1    ' IIS에 있는 기본 설정을 가지고 온다.

    Set Flds = iConf.Fields
    With Flds
        ' 메일 서버를 지정
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.asper.pe.kr"
        ' 메일 서버의 포트를 지정
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        ' 로컬이 아닌 네트워크로 통해 다른 컴퓨를 이용
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .UpDate
    End With

    With iMsg
    Set .Configuration = iConf
        .To         = "asper@asper.pe.kr"
        .From       = "bighead@test.com"
        .Subject    = "Test Mail Title"
        .HTMLbody   = "<b>Test</b>"
        .Send
    End With
%>

[출처] 원격 서버의 SMTP 사용하기|작성자 항해자