감사
'######## 메일 보내기 설정
set objMessage = create**("cdo.message")
set objConfig = create**("cdo.configuration")
Schemas = "Http://Schemas.Microsoft.Com/Cdo/Configuration"
Set Flds = objConfig.Fields
With Flds
Flds.Item(Schemas&"/Sendusing") = 1
Flds.Item(Schemas&"/Smtpserver") = "localhost"
Flds.Item(Schemas&"/Smtpserverport") = 25
Flds.Item(Schemas&"/Smtpconnectiontimeout") = 30
Flds.Update
End With
Set objMessage.Configuration = objConfig
'########## 메일 설정 끝
objMessage.To = to_email ' 받는사람
objMessage.From = from_email ' 보내는사람
objMessage.bcc = " " '참조 메일
objMessage.Subject = subject ' 제목
objMessage.HTMLBody = content ' 내용
objMessage.BodyPart.Charset="ks_c_5601-1987" ' 내용 한글
objMessage.HTMLBodyPart.Charset="ks_c_5601-1987"
objMessage.fields.update
if to_email <> "" then
objMessage.Send ' 실제로 보낸는 메소드
end if
set objMessage = nothing
set objConfig = nothing
set Flds = nothing
'유의점
'서버 2008이고요 smtp가 설치되고요. mailroot에 모든 퍼미션을 주어야합니다.
'어째튼, 소스를 공개하여 주신 분(태요사이트의 "
댓글 2