[ASP] 메일발송하기

보통의 경우 메일발송할때 자체 서버에서 메일서버를 셋팅해서 운영하면 스팸처리되어 제대로 수신이 안되는 경우가 허다하게 발생한다.

이러한 경우에 흔히 다음 메일서버나 구글메일서버의 smtp 를 이용하면 깔끔하게 수신처리됨을 알 수 있다.

 

<%
Function MailDelivery(fAdd, tAdd, mCon, mSub)
    Dim SendMail
    Dim SendConf
    Dim SendField
 
    Set SendMail  = Server.CreateObject("CDO.Message")
    Set SendConf  = Server.CreateObject("CDO.Configuration")
    Set SendField = SendConf.Fields
 
    SendField("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    SendField("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.daum.net"
    SendField("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    SendField("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    SendField("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
    SendField("http://schemas.microsoft.com/cdo/configuration/sendusername") = "아이디"
    SendField("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "비번"
    SendField.Update
 
    With SendMail
        Set .Configuration = SendConf
        .From = fAdd
        .To = tAdd
        .Subject = mCon
        .HTMLBody = mSub
        .Send
    End With
    Set SendMail = Nothing
    Set SendField = Nothing
    Set SendConf = Nothing
End Function
 
 
fAdd = "보내는 메일"
tAdd = "받는 메일"
 
mSub = "임시 비밀번호 발급 안내입니다."
mCon = "내용입니다."
 
Call MailDelivery(fAdd, tAdd, mSub, mCon)
%>