ASP | 예제 - 메일 보내기

---

ASP로 메일 보내기

---

이메일을 보내기 위해선 서버상에 다양한 설정도 이루어져야 합니다.

소스상에서는 정석적으로 아래에 방법을 사용합니다.

이 소스를 보니 오래된 언라라는 느낌이 강하게 드네요

<%
set objMessage = createobject("cdo.message")
set objConfig = createobject("cdo.configuration")
 
Set Flds = objConfig.Fields
Flds.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'-> 서버 접근방법을 설정합니다
Flds.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.lbcsoft.com"
'-> 서버 주소를 설정합니다
Flds.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'-> 접근할 포트번호를 설정합니다
Flds.item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
'-> 접속시도할 제한시간을 설정합니다
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'-> SMTP 접속 인증방법을 설정합니다
Flds.item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mail@lbcsoft.com"
'-> SMTP 서버에 인증할 ID를 입력합니다
Flds.item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "lbcsoftmail"
'-> SMTP 서버에 인증할 암호를 입력합니다
Flds.update
 
Set objMessage.Configuration = objConfig
 
Mail_Dir = server.mappath("\")
 
objMessage.To = "받는이 메일 주소"
objMessage.From = "보내는이 메일 주소"
objMessage.Subject = "메일 타이틀"
objMessage.HTMLBody = "<b>메일 내용</b>"
'// objMessage.TextBody 텍스트만 보낼시엔 이것을
objMessage.fields.update
objMessage.Send
 
set objMessage = Nothing
set objConfig = Nothing
%>