SMTP. office365로 메일 보내기

회사 SMTP 서버에서 발송하는 이메일이 다음에 막혔다. 

매번 연락해서 풀기도 햇는데 앞으로도 계속 애먹일 것 같아서 

MS가 친절이 관리해주는 office365 smtp를 사용 하기로 결정 

막상 해보니 간단했는데 어디선가 오타로 막혀서 이건 해결 불가 까지 갔다가 회생햇다 .휴..

소스가 있어서 보관용으로 남겨 본다. 


Dim iMsg

Dim iConf  

Dim Flds

 

Set  iConf  =  CreateObject("CDO.Configuration")

Set  iMsg  =  CreateObject("CDO.Message")

Set  Flds  =  iConf.Fields

 

With  Flds

     

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 '--포트

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""   ' 발송 허용 계정 / 공유사서함인 경우 발신권한계정 .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""  ' 발신권한 패스워드 

    .Update

End  With

 

 

  With iMsg

  Set .Configuration = iConf

          .To       =  

          .From     = 

          .Subject  = 

          .HTMLBody = strbody

          .Send

End With

Set iConf = nothing

Set iMsg = nothing

Set Flds = nothing