Excel VBA에서 CDO를 사용하여 메일 보내기
먼저 할 일
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
끝
Reference
이 문제에 관하여(Excel VBA에서 CDO를 사용하여 메일 보내기), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다
https://qiita.com/NoTASK/items/6c81cf2fbe0793057711
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념
(Collection and Share based on the CC Protocol.)
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
끝
Reference
이 문제에 관하여(Excel VBA에서 CDO를 사용하여 메일 보내기), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다
https://qiita.com/NoTASK/items/6c81cf2fbe0793057711
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념
(Collection and Share based on the CC Protocol.)
Reference
이 문제에 관하여(Excel VBA에서 CDO를 사용하여 메일 보내기), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다 https://qiita.com/NoTASK/items/6c81cf2fbe0793057711텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념 (Collection and Share based on the CC Protocol.)