2010.12.23 15:24

CDO.Message / CDONTS 를 이용해 메일 보내기.


 간단 테스트를 위해서 자주 사용하기에 기재해 놓습니다.
뭐 이 허접 소스가 필요하신분은 가져다 쓰셔도 무방합니다. ㅋ

Mail_insert.asp

<left><form method="post" action="mail_send.asp">
받는 사람 : <input type="text" name="txtTo" ID="Text1"><br>
보내는 사람 : <input type="text" name="txtFrom" ID="Text2"><br>
제목 : <input type="text" name="txtSubject" ID="Text3"><br>
내용 : <input type="text" name="txtcontent" ID="text4"><p>

<input type="submit" value="메일보내기" name="btnSubmit" ID="btn1">

</form>
<left><form method="post" action="mail_send2.asp">
받는 사람 :<input type="text" name="txtTo_Name" ID="Text6"><br>
받는 사람메일주소 : <input type="text" name="txtTo" ID="Text1"><br>
보내는사람 : <input type="text" name="txtFrom_Name" ID = "text5"><br>
보내는 사람메일 주소: <input type="text" name="txtFrom" ID="Text2"><br>
제목 : <input type="text" name="txtSubject" ID="Text3"><br>
내용 : <input type="text" name="txtcontent" ID="text4"><p>
<!--font color="red">로컬 경로 그대로 입력</font>
파일첨부 : <input type="text" name="Filepath" ID="text7"><p-->

<input type="submit" value="메일보내기2" name="btnSubmit" ID="btn2">
</form>
</left>






Mail_send.asp
<%
  '정보받아오기
  sMailFrom = Request("txtFrom")
  sMailTo = Request("txtTo")
  sMailCc = Request("txtCc")
  sMailBcc = Request("txtSubject")
  sMailsubject = Request("txtSubject")
  sMailContent = Request("txtContent")
  sMailType = Request("rdoMailType")
 
  '메일 객체 생성.
  set objMail = server.CreateObject("CDO.Message")
  set objConfig = Createobject("CDO.Configuration")
 
  'Smtp Configuration
  Set Flds = objConfig.Fields
 
  With Flds
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
 
   'SendUsing 값은 Windows 2000의 경우 1(cdoSendUsingPickup), 2003의 경우(codSendUsingPort)로 설정
   'Smtp 발송서버 설정
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="127.0.0.1"
   .update
  End With
 
  With objMail
    .Configuration = objconfig
    .To=sMailTo '받는사람 이메일주소.
    .From = sMailFrom  '보내는 사람 이메일주소
    .Cc = sMailCc   '참조 이메일주소
    .Bcc = sMailBcc '숨은 참조 이메일 주소
    .Subject = sMailSubject'제목
   
    '내용
    If sMailType = "0" Then
      .TextBody = sMailContent 'Text형식
    Else
      .HTMLBody = sMailContent 'Html 형식
    End if
   
    '첨부파일
    .AddAttachment "D:\WWW_ROOT\check.zip"
   
    .fields.update
    .Send
  End With 
 
  set objMail = nothing
  set objConfig = nothing
%>

 





Mail_Send2.asp

<%
  Public Function SendMail(strSenderName, strSenderAdd,strReceiverName, strReceiverAdd, strSubject, strMailBody, sFileName)
 
  SendMail = False
  sFrom = ""&strSenderName&"" & "<"& strSenderAdd &">" '보내는사람.
  sTo = ""&strReceiverName&"" & "<"& strReceiverAdd &">"  '받는사람
  Set objMail = Server.CreateObject("CDO.Message") 'CDO 2.0(메일 보내기 컴포넌트 개체 생성)
 
  Set MailConfig = objMail.Configuration
    With MailConfig.Fields
   
    '1:로컬(smtp)  2:외부(smtp)
    .item("http://schemas.microsoft.com/cdo/configuration/sendusing")=1
   
    'Pickup디렉토리설정.
    .item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")="C:\inetpub\mailroot\Pickup"
   
    '호스트설정.
    .item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="127.0.0.1"
   
    'SMTP Port
    .item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
   
    '연결시간
    .item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")=30
    .Update
  End With
  Set MailConfig = Nothing
 
  objMail.From = sFrom ' 메일을 보내는 사람의 이메일주소
  objMail.To = sTo ' 메일을 받는사람의 이메일주소(여러사람일경우는;표시로 구분)
  objMail.Subject =strSubject ' 메일제목
  objMail.HTMLBody = strMailBody
 
  '첨부파일 존재시
  If Len(sFileName)>3 Then
    objMail.AddAttachment sFileName
  End if
  objMail.send
  Set ObjMail = Nothing
  If Not Err Then
    SendMail = True
  End if
  End Function
 
  FromName = Request("txtFrom_Name")
  FromEmail = Request("txtFrom")
  Toname = Request("txtTo_Name")
  ToEmail = Request("txtTo")
  Subject = Request("txtSubject")
  Message = Request("txtcontent")
  rFilePath = ""
 
  bMsg = SendMail(FromName, FromEmail, ToName, ToEmail, Subject, Message, rFilePath)
%>



CDONTS를 통한 메일 보내기.


 <%
Dim MyBody
Dim cdo
Set cdo=CreateObject("CDONTS.NewMail")
cdo.From = "mail@mail.com"
cdo.To="mail@mail.com"
cdo.Subject="Test_Mail"
MyBody="mail_Body"
cdo.Body=MyBody
cdo.Send set
cdo=Nothing
%>
Trackback 0 Comment 0