ASP 로 메일 발송하는 두번째 방법

CDONTS.NewMail 을 사용할수 없을때 사용합니다.

잘살펴보시면 어디를 자신의 서버에 맞게 세팅하셔야 할지 아실껍니다.

그냥 Copy&paste 하시면 동작하지 않을지도^^
<%
  Set objConfig = Server.CreateObject("CDO.Configuration")
  Set objMessage = Server.CreateObject("CDO.Message")
 
  ' 메일 서버 세팅   
  Set Flds = objConfig.Fields
  Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.server" ' 메일서버 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") = aaa@mail.com ' 계정이름
  Flds("http://schemas.microsoft.com/cdo/configuration/sendemailaddress") = """관리자"" aaa@mail.com"
  Flds("http://schemas.microsoft.com/cdo/configuration/smtpuserreplyemailaddress")= """관리자"" aaa@mail.com"
  Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'cdoBasic
  Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = aaa@mail.com ' 계정ID
  Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "1234" ' 비밀번호
  Flds.Update

  ' 발송할 내용 세팅
  Set objMessage.Configuration = objConfig
  objMessage.To = "보내는 사람주소
  objMessage.From = "받는사람 주소"
  objMessage.CC = "참조 주소" 
  objMessage.Subject = "메일제목"
  objMessage.HtmlBody = "메일 내용"
  objMessage.fields.update
  objMessage.Send ' 발송

  Set objMessage = Nothing
  Set objConfig = Nothing
%>

 ASP 에서 메일발송하는 방법

폼메일 만들때 사용하는 소스 ^^
<%
  Set objMail = Server.CreateObject("CDONTS.NewMail")
  objMail.From = "보내는 사람 주소"
  objMail.To = "받는 사람 주소"
  objMail.Subject = "메일 제목"
  objMail.BodyFormat = 0  '0:HTML,1:TEXT
  objMail.MailFormat = 0  '0:MIME,1:TEXT
  objMail.Body = "내용"
  objMail.importance=0 '메일 우선순위 0:가장빠름, 1:보통, 2:느림.
  objMail.Send
 
  Set objMail = Nothing
%>