메일 전송

 

 

 

Dim iMsg
Dim iConf
Dim Flds

Const cdoSendUsingPort = 2 
'-> 1일 경우 로컬(SMTP), 2일 경우 외부(SMTP)로 메일전송

Const strSmartHost = "smtp.gmail.com" 
'보낼 메일 Host Server 설정

Set iMsg = CreateObject("CDO.Message")
'-> CDO.Message 객채를 생성

Set iConf = iMsg.Configuration
'-> Configuration 설정값을 저장할 iConf 객채 생성

With iConf.Fields

   .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
'-> 서버 접근방법을 설정합니다

   .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
'-> 서버 주소를 설정합니다

   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'-> 접근할 포트번호를 설정합니다

   .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
'-> 접속시도할 제한시간을 설정합니다

   .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'-> SMTP 접속 인증방법을 설정합니다

   .item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "아이디"
'-> SMTP 서버에 인증할 ID를 입력합니다

   .item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "암호"
'-> SMTP 서버에 인증할 암호를 입력합니다

   .Update
End With

With iMsg
   .To = "받는사람@이메일주소"
   .From = "보내는사람@이메일주소"

   .Cc = "참조받는사람@이메일주소"
   .Subject = "제목"
   .TextBody = "내용"
   .Send
End With
   
Set Flds = Nothing
Set iConf = Nothing
Set iMsg = Nothing

Response.write "메일발송완료"