Excel VBA에서 CDO를 사용하여 메일 보내기

5089 단어 VBAExcelVBAcdo

먼저 할 일



CDO를 참조하십시오.

도구 - 참조 설정에서 Microsoft CDO for Windows 2000 Library를 선택합니다.


프로그램



activesheet
B1로 보내는 이메일 주소
B2에 제목
B3에 본문
가 기입되어 있는 것으로 합니다.
Option Explicit

 Sub SendMail()
    Dim objCDO As New CDO.Message
    With objCDO
        With .Configuration.Fields '設定項目
            .Item(cdoSendUsingMethod) = cdoSendUsingPort '外部SMTP指定
            .Item(cdoSMTPServer) = "mail.server.name" 'SMTPサーバ名
            .Item(cdoSMTPServerPort) = 25 'ポート№(メールサーバーごとに変更)
            .Item(cdoSMTPConnectionTimeout) = 60 'タイムアウト

            .Item(cdoSMTPAuthenticate) = cdoBasic 'SMTP認証
            .Item(cdoSMTPUseSSL) = False 'SSL指定
            .Item(cdoSendUserName) = "sender ID" '送信ユーザー
            .Item(cdoSendPassword) = "password" '送信パスワード
            .Item(cdoLanguageCode) = CdoCharset.cdoShift_JIS  '文字セット指定
            .Update '設定更新
        End With

        .BodyPart.Charset = "utf-8" '本文の文字セット指定
        .From = "sender@address" '送信者アドレス
        .To = cells(1,2) '受信者
        .Subject = Cells(2, 2).Value '題名
        .TextBody = Cells(3, 2).Value '本文
        .Send '送信
    End With

    Set objCDO = Nothing
End Sub

좋은 웹페이지 즐겨찾기