{"id":2930,"date":"2020-12-03T18:31:56","date_gmt":"2020-12-03T09:31:56","guid":{"rendered":"http:\/\/kuuur.net\/?p=2930"},"modified":"2020-12-03T18:32:23","modified_gmt":"2020-12-03T09:32:23","slug":"excelvba-sendmail","status":"publish","type":"post","link":"https:\/\/kuuur.net\/?p=2930","title":{"rendered":"Excel VBA\uff1a\u30e1\u30fc\u30eb\u3092\u9001\u4fe1\u3059\u308b"},"content":{"rendered":"

Excel VBA\u304b\u3089\u30e1\u30fc\u30eb\u3092\u9001\u4fe1\u3059\u308b\u30dc\u30bf\u30f3\u3092\u3064\u304f\u308a\u307e\u3059\u3002
\n\u30d1\u30b9\u30ef\u30fc\u30c9\u30ed\u30c3\u30af\u3092\u304b\u3051\u305f\u30d6\u30c3\u30af\u3092\u5229\u7528\u3057\u3066\u3044\u3066\u3001\u30d1\u30b9\u30ef\u30fc\u30c9\u304c\u308f\u304b\u3089\u306a\u304f\u306a\u3063\u305f\u3089\u30e1\u30fc\u30eb\u3092\u9001\u4fe1\u3057\u3066\u30d1\u30b9\u30ef\u30fc\u30c9\u3092\u6559\u3048\u308b\u6a5f\u80fd\u3092\u4ed8\u3051\u3088\u3046\u3068\u601d\u3044\u3001\u8abf\u3079\u307e\u3057\u305f\u3002
\n\u8abf\u3079\u305f\u5f8c\u306b\u3001\u30d1\u30b9\u30ef\u30fc\u30c9\u30ed\u30c3\u30af\u3092\u3057\u3066\u3082\u7a81\u7834\u3059\u308b\u65b9\u6cd5\u304c\u3044\u304f\u3064\u3082\u3042\u308b\u3053\u3068\u3092\u77e5\u308a\u3001\u30d1\u30b9\u30ef\u30fc\u30c9\u30ed\u30c3\u30af\u3092\u304b\u3051\u308b\u3053\u3068\u81ea\u4f53\u7121\u610f\u5473\u306a\u3053\u3068\u304b\u3068\u8003\u3048\u3066\u3044\u307e\u3059\u2026<\/p>\n

CDO\uff08Microsoft Collaboration Data Objects\uff09\u3092\u4f7f\u7528\u53ef\u80fd\u306b\u3059\u308b<\/h2>\n

\u300c\u958b\u767a\u300d\u30e1\u30cb\u30e5\u30fc\u3088\u308a\u30c7\u30b6\u30a4\u30f3\u30e2\u30fc\u30c9\u306b\u3057\u3066\u3001\u300c\u633f\u5165\u300d\u2192\u300cActivX\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u300d\u2192\u300c\u30b3\u30de\u30f3\u30c9\u30dc\u30bf\u30f3\uff08ActiveX\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\uff09\u300d\u3092\u8a2d\u7f6e\u3057\u307e\u3059\u3002
\n\u53f3\u30af\u30ea\u30c3\u30af\u3057\u3066\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u958b\u3044\u3066\u3001\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u540d\u3092\u300csendMail\u300d\u3001Caption\u3092\u300c\u30e1\u30fc\u30eb\u9001\u4fe1\u300d\u306b\u3057\u307e\u3059\u3002<\/p>\n

\u30c7\u30b6\u30a4\u30f3\u30e2\u30fc\u30c9\u306e\u307e\u307e\u3001\u914d\u7f6e\u3057\u305f\u30dc\u30bf\u30f3\u3092\u30c0\u30d6\u30eb\u30af\u30ea\u30c3\u30af\u3057\u3066VBA\u306e\u30b3\u30fc\u30c9\u5165\u529b\u753b\u9762\u3092\u958b\u304d\u307e\u3059\u3002<\/p>\n

\u300c\u30c4\u30fc\u30eb\u300d\u2192\u300c\u53c2\u7167\u8a2d\u5b9a\u300d\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002<\/p>\n

\"\"<\/a><\/p>\n

\u300c\u53c2\u7167\u53ef\u80fd\u306a\u30e9\u30a4\u30d6\u30e9\u30ea\u30d5\u30a1\u30a4\u30eb\u300d\u306e\u4e00\u89a7\u304b\u3089\u300cMicrosoft CDO for Windows 2000 Library\u300d\u306b\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u3066\u3001\u300cOK\u300d\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/p>\n

\"\"<\/a><\/p>\n

\u30b3\u30fc\u30c9<\/h2>\n
Dim sendMailObject As New CDO.Message
\nWith sendMailObject
\nWith .Configuration.Fields
\n.Item(cdoSMTPServer) = “xxx.xxx.xxx” ‘ SMTP\u30b5\u30fc\u30d0
\n.Item(cdoSendUsingMethod) = “cdoSendUsingPort”
\n.Item(cdoSMTPServerPort) = 587 ‘ \u9001\u4fe1\u30dd\u30fc\u30c8\u540d
\n.Item(cdoSMTPConnectionTimeout) = 60 ‘ \u30bf\u30a4\u30e0\u30a2\u30a6\u30c8\u6642\u9593
\n.Item(cdoSMTPAuthenticate) = cdoBasic ‘ SMTP\u8a8d\u8a3c\u306e\u7a2e\u985e
\n.Item(cdoSMTPUseSSL) = False ‘ SSL
\n.Item(cdoSendUserName) = “xxxxxxx” ‘ \u9001\u4fe1\u30e6\u30fc\u30b6\u30a2\u30ab\u30a6\u30f3\u30c8\u540d
\n.Item(cdoSendPassword) = “xxxxxx” ‘ \u9001\u4fe1\u30d1\u30b9\u30ef\u30fc\u30c9
\n.Item(cdoLanguageCode) = CdoCharset.cdoShift_JIS ‘ \u6587\u5b57\u30b3\u30fc\u30c9
\n.Update
\nEnd With
\nWith .Fields
\n.Item(“urn:schemas:mailheader:X-Priority”)= 1
\n.Item(“urn:schemas:mailheader:X-MsMail-Priority”)= “High”
\n.Update
\nEnd With
\n.MDNRequested = False ‘ \u958b\u5c01\u78ba\u8a8d
\n.MimeFormatted = True ‘ MIME\u3092\u4f7f\u3063\u305f\u66f8\u5f0f\u8a2d\u5b9a
\n.From = “xxx@xxx.xxx” ‘ \u9001\u4fe1\u5143\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9
\n.To = “xxx@xxx.xxx” ‘ \u5b9b\u5148\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9
\n.Subject = “xxxxxx” ‘ \u30e1\u30fc\u30eb\u4ef6\u540d
\n.TextBody = “xxxxx” ‘ \u30e1\u30fc\u30eb\u672c\u6587
\n.Send
\nEnd With
\nSet sendMailObject = Nothing
\nEnd Sub<\/div>\n

\u30e1\u30fc\u30eb\u9001\u4fe1\u3092\u3059\u308b\u969b\u306b\u306f\u3001\u9001\u4fe1\u7528\u306e\u30e6\u30fc\u30b6\u30a2\u30ab\u30a6\u30f3\u30c8\u3001\u30d1\u30b9\u30ef\u30fc\u30c9\u3001SMTP\u30b5\u30fc\u30d0\u540d\u304c\u5fc5\u8981\u3067\u3059\u3002
\ncdoSMTPUseSSL\u306fSSL\u3092\u4f7f\u3063\u305f\u9001\u4fe1\u3092\u3059\u308b\u304b\u5426\u304b\u3092\u6307\u5b9a\u3059\u308b\u3082\u306e\u3067\u3059\u3002
\nSSL\u3092\u4f7f\u3046\u5834\u5408\u306b\u306fTrue\u3092\u6307\u5b9a\u3057\u307e\u3059\u304c\u3001\u30a8\u30e9\u30fc\u304c\u51fa\u308b\u5834\u5408\u3082\u3042\u308a\u307e\u3059\u3002
\n\u9001\u4fe1\u5143\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\u306f\u3001\u67b6\u7a7a\u306e\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\u3067\u3082\u3044\u3044\u306e\u3067\u3001xxx@xxx.xxx\u3068\u3044\u3046\u5f62\u5f0f\u306e\u6307\u5b9a\u3092\u3057\u307e\u3059\u3002\u6307\u5b9a\u304c\u304a\u304b\u3057\u3044\u3068\u30a8\u30e9\u30fc\u304c\u51fa\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"

Excel VBA\u304b\u3089\u30e1\u30fc\u30eb\u3092\u9001\u4fe1\u3059\u308b\u30dc\u30bf\u30f3\u3092\u3064\u304f\u308a\u307e\u3059\u3002 \u30d1\u30b9\u30ef\u30fc\u30c9\u30ed\u30c3\u30af\u3092\u304b\u3051\u305f\u30d6\u30c3\u30af\u3092\u5229\u7528\u3057\u3066\u3044\u3066\u3001\u30d1\u30b9\u30ef\u30fc\u30c9\u304c\u308f\u304b\u3089\u306a\u304f\u306a\u3063\u305f\u3089\u30e1\u30fc\u30eb\u3092\u9001\u4fe1\u3057\u3066\u30d1\u30b9\u30ef\u30fc\u30c9\u3092\u6559\u3048\u308b\u6a5f\u80fd\u3092\u4ed8\u3051\u3088\u3046\u3068\u601d\u3044\u3001\u8abf\u3079\u307e\u3057…\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/span><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[15],"tags":[],"class_list":["post-2930","post","type-post","status-publish","format-standard","hentry","category-excel"],"views":7437,"_links":{"self":[{"href":"https:\/\/kuuur.net\/index.php?rest_route=\/wp\/v2\/posts\/2930","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kuuur.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kuuur.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kuuur.net\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kuuur.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2930"}],"version-history":[{"count":2,"href":"https:\/\/kuuur.net\/index.php?rest_route=\/wp\/v2\/posts\/2930\/revisions"}],"predecessor-version":[{"id":2934,"href":"https:\/\/kuuur.net\/index.php?rest_route=\/wp\/v2\/posts\/2930\/revisions\/2934"}],"wp:attachment":[{"href":"https:\/\/kuuur.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2930"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kuuur.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2930"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kuuur.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2930"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}