감사
'######## 메일 보내기 설정
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에 모든 퍼미션을 주어야합니다.
'어째튼, 소스를 공개하여 주신 분(태요사이트의 "
번호 | 제목 | 닉네임 | 조회수 | 작성일 |
---|
번호 : 115 |
번호 : 114 |
번호 : 113 원하는 게시판의 글만 추출하기 [3] |
번호 : 112 |
번호 : 111 |
번호 : 110 |
번호 : 109 |
번호 : 108 |
번호 : 107 아티보드 DB이전 방법 [5] |
번호 : 106 |
번호 : 105 |
번호 : 104 아티보드 스킨제작 2탄 [3] |
번호 : 103 |
번호 : 102 |
번호 : 101 |
번호 : 100 회원가입 및 방문기록 추출하기 [2] |
번호 : 99 가가 채팅방 연동 하기 [1] |
번호 : 98 |
번호 : 97 |
번호 : 96 사용자를 위한 팁 적용예... [3] |
댓글 2