SMTP CDO로 메일 보내기


<meta http-equiv=”Content-Type” content=”text/html; charset=utf-8″ />
<%

Dim objMail
Dim AgentSubject
Dim Contents

subject= ” 메일 테스트 ”

Contents = “내용 입니다 ”

‘——————————————————–
Set objMail = Server.CreateObject(“CDO.Message”) ‘ CDO
objMail.HTMLBody = “”
objMail.BodyPart.Charset = “UTF-8”
objMail.HTMLBodyPart.Charset = “UTF-8”

With objMail

.From = “아무개<mail02@yahoo.co.kr>”  ‘// 보내는 사람
.ReplyTo = ” mail@yahoo.co.kr” 회신 이메일
.Subject = subject
.HTMLBody = Contents
.To = “tomail@mail.kr”
.Send ‘ 메일 보내기
End With

Set objMail= nothing
‘————————————————————-

%>

Dim objMail

Dim AgentSubject

Dim Contents

subject= ” 메일 테스트 ”

Contents = “내용 입니다 ”

‘——————————————————–

Set objMail = Server.CreateObject(“CDO.Message”) ‘ CDO

objMail.HTMLBody = “”

objMail.BodyPart.Charset = “UTF-8”

objMail.HTMLBodyPart.Charset = “UTF-8”

With objMail

.From = “아무개<mail02@yahoo.co.kr>” ‘// 보내는 사람

.ReplyTo = ” mail@yahoo.co.kr” 회신 이메일

.Subject = subject

.HTMLBody = Contents

.To = “tomail@mail.kr”

.Send ‘ 메일 보내기

End With

Set objMail= nothing

‘————————————————————-