간단 테스트를 위해서 자주 사용하기에 기재해 놓습니다.
뭐 이 허접 소스가 필요하신분은 가져다 쓰셔도 무방합니다. ㅋ
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
%>
Rss Feed