감사
'######## 메일 보내기 설정
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에 모든 퍼미션을 주어야합니다.
'어째튼, 소스를 공개하여 주신 분(태요사이트의 "
번호 | 제목 | 닉네임 | 조회수 | 작성일 |
---|
번호 : 135 |
번호 : 134 |
번호 : 133 |
번호 : 132 |
번호 : 131 |
번호 : 130 |
번호 : 129 |
번호 : 128 |
번호 : 127 |
번호 : 126 로그인 iframe 넣는 방법 [3] |
번호 : 125 |
번호 : 124 |
번호 : 123 |
번호 : 122 |
번호 : 121 |
번호 : 120 |
번호 : 119 |
번호 : 118 |
번호 : 117 |
번호 : 116 |
댓글 2