[VBA]네이버 메일 엑셀로 보내기

①네이버 메일에 접속해서 「환경설정」 > 「POP3/IMAP설정」에서 「POP3/MAP 사용」을 「사용함」으로 체크한다.

② VBA 에디터를 단축키 「Alt + F11」로 열어서 「도구」의 「참조」를 클릭한다.

③ 목록에서 「Microsoft CDO for Windows 2000 Library」를 체크하고 확인을 선택한다.

※Windows에 있는 CDO라는 메일을 보낼 수 있는 라이브러리를 참조한다는 의미입니다.

④ 모듈을 생성하고 아래의 코드를 삽입한다.

각자의 아이디, 패스워드, 메일 주소를 수정해서 넣어야 송신이 가능합니다.

Sub CDO_Send_Mail()
    

    Dim objCDOMsg   As Object
    Dim objCf       As Object
    
    Set objCDOMsg = CreateObject("CDO.Message")
    Set objCf = CreateObject("CDO.Configuration")
    
    With objCf.Fields
        objCf.Load -1
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True '''SSL
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '''SMTP인증
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '''송신 방법
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 '''타임아웃
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.naver.com" '''' 프로토콜
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 '''' 포트번호
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "*********" '''' 아이디
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*********" '''' 패스워드
        .Update '''설정을 업데이트
    End With
 
    
    With objCDOMsg
        Set .Configuration = objCf
            .To = "****@***.***;" ''' 수신자
            .CC = "****@***.***" ''' 참조
            .BCC = "****@***.***" ''' 숨은참조
            .From = "****@***.***" '''발송자
            .Subject = "메일 테스트" '''메일 제목
            .AutoGenerateTextBody = False
            .BodyPart.Charset = "ks_c_5601-1987"
            .TextBody = "메일을 발송하였습니다.." '''메일 내용
            .Send
    End With
End Sub