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
‘————————————————————-

%>