메뉴 건너뛰기

Dev tips

ASP [re] cdo.message 메일보내기

taknim 2012.10.09 20:25 조회 수 : 5745 추천:991

http://blog.naver.com/ggugers/10121973153http://blog.naver.com/imusicland/80114947936추가 사항
SSL 적용 메일 & 한글 처리

        Dim iMsg As CDO.Message
        Dim iConf As CDO.Configuration
    
Set iMsg = New CDO.Message
Set iConf = New CDO.Configuration
iConf.Fields.Item(cdoSMTPServerPort) = 25
iConf.Fields.Item(cdoSendUsingMethod) = cdoSendUsingPort
iConf.Fields.Item(cdoSMTPServer) = [SMTP주소]
iConf.Fields.Item(cdoSendUserName) = [ID]
iConf.Fields.Item(cdoSendPassword) = [암호]
iConf.Fields.Item(cdoSMTPUseSSL) = True 'SSL적용여부(Boolean)
  
iConf.Fields.Item(cdoSMTPConnectionTimeout) = 10
iConf.Fields.Item(cdoSMTPAuthenticate) = cdoBasic
iConf.Fields.Item(cdoURLGetLatestVersion) = True
iConf.Fields.Update
With iMsg
   Set .Configuration = iConf
   .BodyPart.Charset = "UTF-8"           ' UTF-8로 인코딩해서 보낼때
   .BodyPart.Charset = "ks_c_5601-1987"      ' UTF-8로 인코딩하지 않고 보낼때
   .HTMLBodyPart.Charset = "ks_c_5601-1987"  ' UTF-8로 인코딩하지 않고 보낼때
   .From = "보내는사람메일주소"
   .To = "받는사람메일주소"
   .Subject = "메일제목"
   .HTMLBody = Text1.text
   .Send
End With

Set iMsg = Nothing