ASP 에서 SMTP 서버를 이용해서 메일 보내기

오랫만에 코딩 관련해서 그을 올려봅니다.

갑자가 메일 발송관련 업무가 하달(*??) 되서 급히 소스를 구해서다가

잊지 않으려고 발악을 해 봅니다. windows 2003 이 후에서부터 유용한 버전 입니다.

<% @LANGUAGE=’VBSCRIPT’ codepage=65001%>
<%option explicit%>
<%Response.Expires=”0″%>   
<%
Dim objConfig
Dim objMessage
Dim Flds
  Set objConfig = Server.CreateObject(“CDO.Configuration”)
  Set objMessage = Server.CreateObject(“CDO.Message”)
 
 
 
  ‘ 메일 서버 세팅   
  Set Flds = objConfig.Fields
  Flds(“http://schemas.microsoft.com/cdo/configuration/smtpserver”)                 = “172.23.23.23” ‘ 메일서버 IP
  Flds(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”)             = 25         ‘ 포트번호
  Flds(“http://schemas.microsoft.com/cdo/configuration/sendusing”)                  = 2         ‘cdoSendUsingPort
  Flds(“http://schemas.microsoft.com/cdo/configuration/smtpaccountname”)            = “홍길동” ‘ 계정이름
  Flds(“http://schemas.microsoft.com/cdo/configuration/sendemailaddress”)           = “kdhong@mail.com” ‘aaa@mail.com”
  Flds(“http://schemas.microsoft.com/cdo/configuration/smtpuserreplyemailaddress”)  = “kdhong@mail.com” ‘aaa@mail.com”
  Flds(“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”)           = 1 ‘cdoBasic
  Flds(“http://schemas.microsoft.com/cdo/configuration/sendusername”)               = kdhong” ‘ 계정ID
  Flds(“http://schemas.microsoft.com/cdo/configuration/sendpassword”)               = “a1234” ‘ 비밀번호
 
  Flds(“urn:schemas:mailheader:return-receipt-to”)                                   = “kdhong@gmail.com” ‘받는 사람이 이 메시지를 열었을 때 읽음 확인 메시지가 여기에서 지정된 사람에게 보내집니다.
  Flds(“urn:schemas:mailheader:disposition-notification-to”)                           = “kdhong@msinterdev.org” ‘MDN(Message Disposition Notification)은 이 메시지의 확인 메시지가 리턴 될 수신자를 지정합니다.
                                                                                                ‘MDN에 대하여는 Request for Comments (RFC) 2298에 자세히 설명됩니다.

    Flds.Update

  ‘ 발송할 내용 세팅
  Set objMessage.Configuration = objConfig
  objMessage.DSNOptions = 14  ‘이 메시지의 배달 상태 확인(delivery status notification:DSN)값으로 14는 배달 성공, 실패 및  지연시
                             ‘확인메시지 생성
  objMessage.To = “test@hotmail.com”
  objMessage.From = “kdhong@mail.com”
  objMessage.CC = “cc@mail.com”  
  objMessage.Subject = “시험 발송”
  objMessage.HtmlBody = “시험발송”
 
  ‘objMessage.BodyPart.Charset=”ks_c_5601-1987″
  ‘objMessage.HTMLBodyPart.Charset=”ks_c_5601-1987″
  objMessage.BodyPart.Charset=”utf-8″
  objMessage.HTMLBodyPart.Charset=”utf-8″

  ‘objMessage.AddAttachment = “file://d\……”
  objMessage.fields.update
  objMessage.Send ‘ 발송

  Set objMessage = Nothing
  Set objConfig = Nothing
%>