{"id":12806,"date":"2020-05-17T16:30:35","date_gmt":"2020-05-17T07:30:35","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=12806"},"modified":"2020-05-17T16:30:35","modified_gmt":"2020-05-17T07:30:35","slug":"outlook%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=12806","title":{"rendered":"Outlook\u3092\u4f7f\u3063\u3066Gmail\u9001\u4fe1\u3092\u884c\u3046VBA\u30de\u30af\u30ed"},"content":{"rendered":"

\u4e0b\u8a18G Suite \u30a2\u30c3\u30d7\u30c7\u30fc\u30c8 \u30d6\u30ed\u30b0\u306b\u3042\u308b\u901a\u308a\u3001\u4eca\u5e74\u306e6\u6708\u306b\u306f\u201c\u5b89\u5168\u6027\u306e\u4f4e\u3044\u30a2\u30d7\u30ea\u201d<\/span>\u306b\u3088\u308bGmail<\/a>\u3084\u30ab\u30ec\u30f3\u30c0\u30fc<\/a>\u3068\u3044\u3063\u305fGoogle\u306e\u30b5\u30fc\u30d3\u30b9\u306b\u65b0\u898f\u63a5\u7d9a\u304c\u3067\u304d\u306a\u304f\u306a\u308a\u30012021\u5e742\u6708\u306b\u306f\u3001\u5b89\u5168\u6027\u306e\u4f4e\u3044\u30a2\u30d7\u30ea\u3078\u306e\u63a5\u7d9a\u306f\u3059\u3079\u3066\u7121\u52b9<\/span>\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n

\"\"<\/div>
G Suite \u30a2\u30c3\u30d7\u30c7\u30fc\u30c8 \u30d6\u30ed\u30b0<\/div><\/div>
\"\"<\/figure>
\u5b89\u5168\u6027\u306e\u4f4e\u3044\u30a2\u30d7\u30ea\u306b\u3088\u308b G Suite \u30a2\u30ab\u30a6\u30f3\u30c8\u3078\u306e\u63a5\u7d9a\u304c\u7121\u52b9\u306b<\/div>
https:\/\/gsuiteupdates-ja.googleblog.com\/2019\/12\/g-suite_24.html<\/div>
\u3053\u306e\u8a18\u4e8b\u306f 12 \u6708 16 \u65e5\u306b\u82f1\u8a9e\u7248\u30d6\u30ed\u30b0\u306b\u63b2\u8f09\u3055\u308c\u305f\u8a18\u4e8b \u3092\u7ffb\u8a33\u3057\u305f\u3082\u306e\u3067\u3059\u3002 \u5909\u66f4\u70b9\u306b\u3064\u3044\u3066 \u5b89\u5168\u6027\u306e\u4f4e\u3044\u30a2\u30d7\u30ea\u306b\u3088\u308b G Suite \u30a2\u30ab\u30a6\u30f3\u30c8 \u30c7\u30fc\u30bf\u3078\u306e\u30a2\u30af\u30bb\u30b9\u3092\u5236\u9650\u3059\u308b\u3053\u3068\u306b\u306a\u308a\u307e\u3057\u305f\u3002\u3053\u306e\u5909\u66f4\u306f 2020 \u5e74 6 \u6708\u304b\u3089\u9069\u7528\u3055\u308c\u307e\u3059\u3002\u5b89\u5168\u6027\u306e\u4f4e\u3044\u30a2\u30d7\u30ea...<\/div><\/div>
<\/div><\/div><\/a><\/div><\/div>\n

\u5f53\u30d6\u30ed\u30b0\u3067\u4ee5\u524d\u66f8\u3044\u305f\u4e0b\u8a18\u8a18\u4e8b\u3001\u300cCDO\u3092\u4f7f\u3063\u3066Gmail\u9001\u4fe1\u3059\u308bVBA\u30de\u30af\u30ed\u300d<\/i>\u3082\u4f7f\u3048\u306a\u304f\u306a\u308b\u308f\u3051\u3067\u3059\u306d\u3002<\/p>\n

CDO\u3092\u4f7f\u3063\u3066Gmail\u9001\u4fe1\u3092\u884c\u3046VBA\u30de\u30af\u30ed<\/a><\/div>
2014.08.11<\/span>
CDO\u3092\u4f7f\u3063\u3066Gmail\u9001\u4fe1\u3092\u884c\u3046VBA\u30de\u30af\u30ed <\/a><\/div>
\u300cVBA Gmail \u9001\u4fe1\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)\u300d\u306e\u8a18\u4e8b\u306b\u30a2\u30af\u30bb\u30b9\u304c\u3042\u308a\u307e\u3057\u305f\u3002\r\n\r\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\r\n\u30fb\u30fb\u30fb\u304c\u3001VBA\u304b\u3089G...<\/div><\/div>
<\/div><\/div>\n
CDO\u3092\u4f7f\u3063\u3066Gmail\u9001\u4fe1\u3092\u884c\u3046VBA\u30de\u30af\u30ed(UTF-8\u5bfe\u5fdc\u7248)<\/a><\/div>
2016.10.12<\/span>
CDO\u3092\u4f7f\u3063\u3066Gmail\u9001\u4fe1\u3092\u884c\u3046VBA\u30de\u30af\u30ed(UTF-8\u5bfe\u5fdc\u7248) <\/a><\/div>
2\u5e74\u307b\u3069\u524d\u306bCDO\u3092\u4f7f\u3063\u3066Gmail\u9001\u4fe1\u3092\u884c\u3046VBA\u30de\u30af\u30ed\u306b\u3064\u3044\u3066\u8a18\u4e8b\u3092\u66f8\u304d\u307e\u3057\u305f\u3002\r\n\r\n\r\n\r\n\u305d\u3057\u3066\u5148\u65e5\u3001\u3053\u306e\u30de\u30af\u30ed\u306b\u5bfe\u3057\u3066\u300cUTF-8\u3067\u30e1\u30fc\u30eb\u9001\u4fe1\u3067\u304d\u306a\u3044\u304b\uff1f\u300d\u3068\u3044\u3046\u8cea\u554f\u304c\u3042\u308b\u3053\u3068\u306b\u6c17\u304c\u4ed8\u304d\u307e\u3057\u305f\u3002\r\n\r\n\r\n\u30a8\u30af\u30bb\u30eb\u304b\u3089gmail\u3067\u306e\u9001\u4fe1\r\nhttp...<\/div><\/div>
<\/div><\/div>\n

\u4eca\u56de\u306fCDO\u306e\u4ee3\u308f\u308a\u306bOutlook\u3092\u4f7f\u3063\u3066Gmail\u9001\u4fe1\u3092\u884c\u3046VBA\u30de\u30af\u30ed\u3092\u3054\u7d39\u4ecb\u3057\u307e\u3059\u3002<\/p>\n

Option Explicit\r\n\r\nPublic Sub Sample()\r\n  Dim olApp As Object\r\n  Dim v As Variant\r\n  Const olFormatPlain = 1 'Outlook.OlBodyFormat\r\n  \r\n  'Outlook\u304c\u8d77\u52d5\u3057\u3066\u3044\u306a\u3044\u3068\u9001\u4fe1\u3067\u304d\u306a\u3044\u5834\u5408\u304c\u3042\u308b\u306e\u3067\u4e8b\u524d\u306b\u8d77\u52d5\r\n  On Error Resume Next\r\n  Set olApp = GetObject(, "Outlook.Application")\r\n  If olApp Is Nothing Then\r\n    Shell "OUTLOOK.EXE", vbNormalFocus\r\n    Do\r\n      Set olApp = GetObject(, "Outlook.Application")\r\n      DoEvents\r\n    Loop While olApp Is Nothing\r\n  End If\r\n  On Error GoTo 0\r\n  \r\n  '\u6dfb\u4ed8\u30d5\u30a1\u30a4\u30eb\r\n  v = Array("C:\\temp\\job_barista_man.png", _\r\n            "C:\\temp\\job_barista_woman.png", _\r\n            "C:\\temp\\job_cafe_tenin_woman.png")\r\n  \r\n  SendGmailUsingOutlook _\r\n    MailApp:=olApp, _\r\n    AccountAddress:="*****@gmail.com", _\r\n    MailTo:="*****@hogehoge.org", _\r\n    MailCc:="", _\r\n    MailBcc:="", _\r\n    MailSubject:="\u3010\u30c6\u30b9\u30c8\u30e1\u30fc\u30eb\u3011", _\r\n    MailBody:=ChrW(&H4E3A) & ChrW(&H4E86) & ChrW(&H68C0) & ChrW(&H67E5) & ChrW(&H6D4B) & _\r\n              ChrW(&H8BD5) & ChrW(&H73AF) & ChrW(&H5883) & vbNewLine & ChrW(&H8BF7) & ChrW(&H628A) & _\r\n              ChrW(&H6570) & ChrW(&H636E) & ChrW(&H53D1) & ChrW(&H7ED9) & ChrW(&H6211), _\r\n    MailBodyFormat:=olFormatPlain, _\r\n    AttachmentFilePath:=v, _\r\n    FlgSend:=True\r\nEnd Sub\r\n\r\nPrivate Sub SendGmailUsingOutlook( _\r\n  ByVal MailApp As Object, _\r\n  ByVal AccountAddress 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 MailBodyFormat As Long = 1, _\r\n  Optional ByVal AttachmentFilePath As Variant = Empty, _\r\n  Optional ByVal FlgSend As Boolean = True)\r\n'Outlook\u3092\u4f7f\u3063\u3066Gmail\u9001\u4fe1\u3092\u884c\u3046VBA\u30de\u30af\u30ed\r\n'\u203b\u8981Gmail\u30a2\u30ab\u30a6\u30f3\u30c8\u306e\u8ffd\u52a0\r\n'https:\/\/support.office.com\/ja-jp\/article\/70191667-9c52-4581-990e-e30318c2c081 \u53c2\u7167\r\n  \r\n  Dim accGmail As Object 'Outlook.Account\r\n  Dim i As Long\r\n  Const olMailItem = 0\r\n  \r\n  Set accGmail = MailApp.Session.Accounts.Item(AccountAddress)\r\n  If accGmail Is Nothing Then Exit Sub\r\n  With MailApp.CreateItem(olMailItem)\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    .BodyFormat = MailBodyFormat\r\n    If Not IsEmpty(AttachmentFilePath) Then\r\n      For i = LBound(AttachmentFilePath) To UBound(AttachmentFilePath)\r\n        .Attachments.Add AttachmentFilePath(i)\r\n      Next\r\n    End If\r\n    .Body = MailBody\r\n    Set .SendUsingAccount = accGmail\r\n    If FlgSend Then\r\n      .Send\r\n    Else\r\n      .Display\r\n    End If\r\n  End With\r\nEnd Sub<\/pre>\n
MailItem<\/a>\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u4f5c\u3063\u3066\u9001\u308b\u3060\u3051\u306e\u3001\u4f55\u306e\u3072\u306d\u308a\u3082\u7121\u3044\u30b3\u30fc\u30c9\u3067\u3059\u3002<\/p>\n
\u305f\u3060\u3001\u30c6\u30b9\u30c8\u74b0\u5883\u3067\u306f\u3001\u6dfb\u4ed8\u30d5\u30a1\u30a4\u30eb\u3092\u6307\u5b9a\u3057\u305f\u969b\u306bOutlook\u304c\u8d77\u52d5\u3057\u3066\u3044\u306a\u3044\u72b6\u614b\u3060\u3068\u4e0a\u624b\u304f\u9001\u4fe1\u3067\u304d\u306a\u304b\u3063\u305f\u305f\u3081\u3001\u4e8b\u524d\u306bOutlook\u3092\u8d77\u52d5\u3059\u308b\u3088\u3046\u306b\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n
\u4ed5\u69d8\u4e0a\u3001\u4e0a\u8a18\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3059\u308b\u524d\u306b\u3001Outlook\u306bGmail\u30a2\u30ab\u30a6\u30f3\u30c8\u3092\u8a2d\u5b9a\u3057\u3066\u304a\u304f\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002
\n\u8a2d\u5b9a\u65b9\u6cd5\u306f\u4e0b\u8a18\u30b5\u30a4\u30c8\u3067\u8a73\u3057\u304f\u8aac\u660e\u3055\u308c\u3066\u3044\u308b\u306e\u3067\u3001\u3053\u3061\u3089\u3092\u3054\u53c2\u7167\u304f\u3060\u3055\u3044\u3002<\/p>\n
\"\"<\/div>
support.office.com<\/div><\/div>
\"\"<\/figure>
Gmail \u30a2\u30ab\u30a6\u30f3\u30c8\u3092 Outlook \u306b\u8ffd\u52a0\u3059\u308b<\/div>
https:\/\/support.office.com\/ja-jp\/article\/70191667-9c52-4581-990e-e30318c2c081<\/div>
Outlook for Microsoft 365\u306e\u6700\u65b0\u306e\u66f4\u65b0\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u4f7f\u7528\u3059\u308b\u3068\u3001Outlook \u306b Gmail \u30a2\u30ab\u30a6\u30f3\u30c8\u3092\u7c21\u5358\u306b\u8ffd\u52a0\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3057\u305f\u3002<\/div><\/div>
<\/div><\/div><\/a><\/div><\/div>\n
\"\"<\/div>
support.office.com<\/div><\/div>
\"\"<\/figure>
\u30d3\u30c7\u30aa: Gmail \u30a2\u30ab\u30a6\u30f3\u30c8\u3092\u30bb\u30c3\u30c8\u30a2\u30c3\u30d7\u3059\u308b<\/div>
https:\/\/support.office.com\/ja-jp\/article\/46274497-95ea-4a7d-9651-d246aa63eb5e<\/div>
\u30c8\u30ec\u30fc\u30cb\u30f3\u30b0:Microsoft Outlook \u306b Gmail \u30a2\u30ab\u30a6\u30f3\u30c8\u3092\u8ffd\u52a0\u3057\u3066\u3001Outlook \u3067\u7ba1\u7406\u3057\u3001\u3059\u3079\u3066\u306e\u30e1\u30fc\u30eb\u3092 1 \u304b\u6240\u3067\u8868\u793a\u3057\u3066\u7ba1\u7406\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002 \u305d\u306e\u65b9\u6cd5\u306b\u3064\u3044\u3066\u306f\u3001\u3053\u306e\u30aa\u30f3\u30e9\u30a4\u30f3 \u30d3\u30c7\u30aa\u3092\u3054\u89a7\u304f\u3060\u3055\u3044\u3002 <\/div><\/div>
<\/div><\/div><\/a><\/div><\/div>\n
\"\"<\/div>
support.google.com<\/div><\/div>
\"\"<\/figure>
\u30a2\u30d7\u30ea \u30d1\u30b9\u30ef\u30fc\u30c9\u3067\u30ed\u30b0\u30a4\u30f3 - Gmail \u30d8\u30eb\u30d7<\/div>
https:\/\/support.google.com\/mail\/answer\/185833?hl=ja<\/div>
\u30a2\u30d7\u30ea \u30d1\u30b9\u30ef\u30fc\u30c9\u3068\u306f\u3001Google \u4ee5\u5916\u306e\u30a2\u30d7\u30ea\u3084\u30c7\u30d0\u30a4\u30b9\u306b Google \u30a2\u30ab\u30a6\u30f3\u30c8\u3078\u306e\u30a2\u30af\u30bb\u30b9\u3092\u8a31\u53ef\u3059\u308b 16 \u6841\u306e\u30d1\u30b9\u30b3\u30fc\u30c9\u3067\u3059\u3002\u30a2\u30d7\u30ea \u30d1\u30b9\u30ef\u30fc\u30c9\u306f 2<\/div><\/div>
<\/div><\/div><\/a><\/div><\/div>\n
\n
\n