{"id":4730,"date":"2014-08-11T11:29:23","date_gmt":"2014-08-11T02:29:23","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=4730"},"modified":"2020-05-17T16:35:05","modified_gmt":"2020-05-17T07:35:05","slug":"cdo%e3%82%92%e4%bd%bf%e3%81%a3%e3%81%a6gmail%e9%80%81%e4%bf%a1%e3%82%92%e8%a1%8c%e3%81%86vba%e3%83%9e%e3%82%af%e3%83%ad","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=4730","title":{"rendered":"CDO\u3092\u4f7f\u3063\u3066Gmail\u9001\u4fe1\u3092\u884c\u3046VBA\u30de\u30af\u30ed"},"content":{"rendered":"

\u300cVBA Gmail \u9001\u4fe1<\/span>\u300d\u3068\u3044\u3063\u305f\u30ad\u30fc\u30ef\u30fc\u30c9\u691c\u7d22\u3067\u3001\u300cGmail API\u3092\u4f7f\u3063\u3066\u30e1\u30fc\u30eb\u9001\u4fe1\u3059\u308bVBA\u30de\u30af\u30ed(3)<\/a>\u300d\u306e\u8a18\u4e8b\u306b\u30a2\u30af\u30bb\u30b9\u304c\u3042\u308a\u307e\u3057\u305f\u3002<\/p>\n

\u305f\u3057\u304b\u306bGmail API\u3092\u4f7f\u3063\u3066VBA\u30de\u30af\u30ed\u304b\u3089\u30e1\u30fc\u30eb\u9001\u4fe1\u3059\u308b\u3053\u3068\u306f\u3067\u304d\u307e\u3059\u3002
\n\u30fb\u30fb\u30fb\u304c\u3001VBA\u304b\u3089Gmail\u9001\u4fe1\u3057\u305f\u3044\u3068\u304d\u306f\u3001API\u3092\u4f7f\u3046\u3088\u308a\u3082Outlook\u3092\u4f7f\u3046\u306a\u308aCDO<\/a>\u3092\u4f7f\u3046\u306a\u308a\u3057\u305f\u65b9\u304c\u5727\u5012\u7684\u306b\u697d\u3067\u3059\u3002<\/p>\n

\u3068\u3044\u3046\u308f\u3051\u3067\u3001\u4eca\u56de\u306fCDO\u3092\u4f7f\u3063\u3066Gmail\u9001\u4fe1\u3092\u884c\u3046VBA\u30de\u30af\u30ed\u3092\u7d39\u4ecb\u3057\u307e\u3059\u3002<\/p>\n

\u203b \u4e0b\u8a18\u60c5\u5831\u306f 2014\/08\/11 \u6642\u70b9\u306e\u60c5\u5831\u3067\u3059\u3002\u4eca\u5f8c\u306e\u4ed5\u69d8\u5909\u66f4\u306b\u4f34\u3063\u3066\u3001\u4e0b\u8a18\u30de\u30af\u30ed\u3067\u306f\u30e1\u30fc\u30eb\u9001\u4fe1\u3067\u304d\u306a\u304f\u306a\u308b\u53ef\u80fd\u6027\u304c\u3042\u308a\u307e\u3059\u3002<\/span><\/p>\n

\u25a0 Gmail\u306e\u30bb\u30ad\u30e5\u30ea\u30c6\u30a3\u8a2d\u5b9a<\/h4>\n

CDO\u3092\u4f7f\u3063\u3066Gmail\u3092\u9001\u4fe1\u3059\u308b\u524d\u306b\u3001\u307e\u305a\u306fGmail\u5074\u3067\u30bb\u30ad\u30e5\u30ea\u30c6\u30a3\u8a2d\u5b9a\u3092\u5909\u66f4\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n

Google \u30a2\u30ab\u30a6\u30f3\u30c8\u3067\u30ed\u30b0\u30a4\u30f3\u3057\u305f\u72b6\u614b\u3067\u300c\u5b89\u5168\u6027\u306e\u4f4e\u3044\u30a2\u30d7\u30ea\u3092\u8a31\u53ef<\/a>\u300d\u30da\u30fc\u30b8\u3092\u958b\u304d\u3001\u300c\u6709\u52b9\u306b\u3059\u308b<\/span>\u300d\u306b\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u307e\u3059\u3002<\/p>\n

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

\u3053\u306e\u8a2d\u5b9a\u3092\u884c\u308f\u306a\u3044\u3068\u3001\u30de\u30af\u30ed\u304b\u3089\u30e1\u30fc\u30eb\u9001\u4fe1\u3057\u3088\u3046\u3068\u3057\u305f\u6642\u306b\u30a2\u30af\u30bb\u30b9\u304c\u30d6\u30ed\u30c3\u30af\u3055\u308c\u307e\u3059\u3002<\/p>\n

\u25a0 CDO\u3092\u4f7f\u3063\u3066Gmail\u9001\u4fe1\u3092\u884c\u3046VBA\u30de\u30af\u30ed<\/h4>\n

\u3044\u3088\u3044\u3088\u30b3\u30fc\u30c9\u3067\u3059\u3002
\nSendGmail<\/span>\u304c\u30e1\u30a4\u30f3\u3068\u306a\u308b\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u30fc\u3067\u3001\u5f15\u6570\u3068\u3057\u3066Google \u30a2\u30ab\u30a6\u30f3\u30c8\u306e\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\u3084\u30d1\u30b9\u30ef\u30fc\u30c9\u3001\u5b9b\u5148\u3068\u3044\u3063\u305f\u9805\u76ee\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002<\/p>\n

Option Explicit\r\n\r\nPublic Sub Sample()\r\n  SendGmail "(Google \u30a2\u30ab\u30a6\u30f3\u30c8)@gmail.com", _\r\n            "(Google \u30a2\u30ab\u30a6\u30f3\u30c8 \u30d1\u30b9\u30ef\u30fc\u30c9)", _\r\n            "(To\u30a2\u30c9\u30ec\u30b9)", _\r\n            "(Cc\u30a2\u30c9\u30ec\u30b9)", _\r\n            "(Bcc\u30a2\u30c9\u30ec\u30b9)", _\r\n            "\u4ef6\u540d\uff1a\u30e1\u30fc\u30eb\u30c6\u30b9\u30c8", _\r\n            "\u672c\u6587\u3067\u3059\u3002" & vbCrLf & "\u3042\u3044\u3046\u3048\u304a" & vbCrLf & "\u304b\u304d\u304f\u3051\u3053", _\r\n            "C:\\Test\\Sample.pdf"\r\nEnd Sub\r\n\r\nPrivate Sub SendGmail(ByVal AccountAddress As String, _\r\n                      ByVal AccountPassword As String, _\r\n                      ByVal MailTo As String, _\r\n                      ByVal MailCc As String, _\r\n                      ByVal MailBcc As String, _\r\n                      ByVal MailSubject As String, _\r\n                      ByVal MailBody As String, _\r\n                      Optional ByVal AttachmentFilePath As String = "")\r\n'CDO\u3092\u4f7f\u3063\u3066Gmail\u9001\u4fe1\u3092\u884c\u3046\r\n  Const cdoBasic = 1\r\n  Const cdoSendUsingPort = 2\r\n  Const cdoSendPassword = "http:\/\/schemas.microsoft.com\/cdo\/configuration\/sendpassword"\r\n  Const cdoSendUserName = "http:\/\/schemas.microsoft.com\/cdo\/configuration\/sendusername"\r\n  Const cdoSendUsingMethod = "http:\/\/schemas.microsoft.com\/cdo\/configuration\/sendusing"\r\n  Const cdoSMTPConnectionTimeout = "http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpconnectiontimeout"\r\n  Const cdoSMTPServer = "http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpserver"\r\n  Const cdoSMTPServerPort = "http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpserverport"\r\n  Const cdoSMTPUseSSL = "http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpusessl"\r\n  Const cdoSMTPAuthenticate = "http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpauthenticate"\r\n \r\n  With CreateObject("CDO.Message")\r\n    .From = AccountAddress\r\n    .To = MailTo\r\n    If Len(Trim(MailCc)) > 0 Then .CC = MailCc\r\n    If Len(Trim(MailBcc)) > 0 Then .BCC = MailBcc\r\n    .Subject = MailSubject\r\n    .TextBody = MailBody\r\n    If Len(Trim(AttachmentFilePath)) > 0 Then .Addattachment AttachmentFilePath\r\n    With .Configuration.Fields\r\n      .Item(cdoSendPassword).Value = AccountPassword\r\n      .Item(cdoSendUserName).Value = AccountAddress\r\n      .Item(cdoSendUsingMethod).Value = cdoSendUsingPort\r\n      .Item(cdoSMTPConnectionTimeout).Value = 100\r\n      .Item(cdoSMTPAuthenticate).Value = cdoBasic\r\n      .Item(cdoSMTPServer).Value = "smtp.gmail.com"\r\n      .Item(cdoSMTPServerPort).Value = 465\r\n      .Item(cdoSMTPUseSSL).Value = True\r\n      .Update\r\n    End With\r\n    On Error Resume Next\r\n    .Send\r\n    If Err.Number <> 0 Then\r\n      MsgBox "\u30a8\u30e9\u30fc\u304c\u767a\u751f\u3057\u307e\u3057\u305f\u3002" & vbCrLf & _\r\n             "\u30a8\u30e9\u30fc\u756a\u53f7\uff1a" & Err.Number & vbCrLf & _\r\n             "\u30a8\u30e9\u30fc\u5185\u5bb9\uff1a" & Err.Description, vbCritical + vbSystemModal\r\n    End If\r\n    On Error GoTo 0\r\n  End With\r\nEnd Sub<\/pre>\n
\u300cGmail API\u3092\u4f7f\u3063\u3066\u30e1\u30fc\u30eb\u9001\u4fe1\u3059\u308bVBA\u30de\u30af\u30ed(3)<\/a>\u300d\u306e\u30b3\u30fc\u30c9\u306b\u6bd4\u3079\u308b\u3068\u3001\u5727\u5012\u7684\u306b\u77ed\u304f\u3066\u7c21\u6f54\u3067\u3059\u306d\u3002<\/p>\n
\u305f\u3060\u3057\u3001\u74b0\u5883\u306b\u3088\u3063\u3066\u306f\u4e0a\u8a18\u30b3\u30fc\u30c9\u3067\u306f\u30a8\u30e9\u30fc\u306b\u306a\u308b\u5834\u5408\u304c\u3042\u308b\u306e\u3067\u3001\u305d\u306e\u969b\u306f\u30dd\u30fc\u30c8\u756a\u53f7\u3084SSL\u306e\u8a2d\u5b9a\u3092\u5909\u66f4\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n
\u305d\u3057\u3066\u3001\u3069\u3046\u3057\u3066\u3082CDO\u3067Gmail\u9001\u4fe1\u3067\u304d\u306a\u3044\u3068\u304d\u306f\u3001CDO\u306b\u62d8\u3089\u305a\u3001BASP21<\/a>\u3068\u3044\u3063\u305f\u5916\u90e8\u30b3\u30f3\u30dd\u30fc\u30cd\u30f3\u30c8\u3084\u3001Outlook\u7d4c\u7531\u3067\u306e\u9001\u4fe1\u306b\u5207\u308a\u66ff\u3048\u308b\u3053\u3068\u3092\u304a\u85a6\u3081\u3057\u307e\u3059\u3002<\/p>\n
\n
\n