'objMessage'에 해당되는 글 1건



ASP로 메일 보내기


이메일을 보내기 위해선 서버상에 다양한 설정도 이루어져야 합니다.
소스상에서는 정석적으로 아래에 방법을 사용합니다.
이 소스를 보니 오래된 언라라는 느낌이 강하게 드네요

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
<%
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
%>
cs



댓글을 달아 주세요