{"id":1693,"date":"2021-06-19T20:04:13","date_gmt":"2021-06-19T11:04:13","guid":{"rendered":"https:\/\/extan.jp\/?p=1693"},"modified":"2024-01-14T00:22:43","modified_gmt":"2024-01-13T15:22:43","slug":"%e3%80%90excel-vba%e3%80%91%e3%82%ab%e3%83%b3%e3%82%bf%e3%83%b3%ef%bc%81excel%e3%83%af%e3%83%bc%e3%82%af%e3%82%b7%e3%83%bc%e3%83%88%e3%81%8b%e3%82%89outlook%e3%81%ae%e4%ba%88%e5%ae%9a%e8%a1%a8","status":"publish","type":"post","link":"https:\/\/extan.jp\/?p=1693","title":{"rendered":"\u3010VBA\u3011\u4e00\u77ac\u3067Excel\u306e\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092Outlook\u306e\u4e88\u5b9a\u8868\u3078\u767b\u9332\/\u5909\u66f4\u3059\u308b\u65b9\u6cd5"},"content":{"rendered":"<p>Outlook\u306e\u4e88\u5b9a\u8868\u3067\u4e88\u5b9a\u3092\u767b\u9332\u3059\u308b\u6a5f\u4f1a\u306f\u591a\u3044\u304b\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>\u305d\u3093\u306a\u4e2d\u3067\u3042\u3063\u305f\u3089\u3044\u3044\u306a\u3068\u601d\u3046\u3053\u3068\u306f\u3001<\/p>\n<div class=\"kininarukoto1\">\u30fbOutlook\u4e88\u5b9a\u8868\u3078\u4e00\u62ec\u3067\u4e88\u5b9a\u3092\u767b\u9332\u3059\u308b\u65b9\u6cd5\u306f\u306a\u3044\uff1f<br \/>\n\u30fbExcel\u306b\u307e\u3068\u3081\u305f\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092Outlook\u3078\u4e00\u62ec\u767b\u9332\u3059\u308b\u65b9\u6cd5\u306f\u306a\u306b\uff1f<\/div>\n<p>\u3067\u306f\u306a\u3044\u3067\u3057\u3087\u3046\u304b\uff1f<\/p>\n<p>\u4eca\u56de\u306f\u3001\u3042\u308b\u3068\u4fbf\u5229\u306a<\/p>\n<div class=\"rdinfo\">\u30fbExcel\u306b\u307e\u3068\u3081\u305f\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u4e00\u89a7\u3092Outlook\u4e88\u5b9a\u8868\u3078\u4e00\u62ec\u767b\u9332\u3059\u308b\u65b9\u6cd5<br \/>\n\u30fbExcel\u304b\u3089Outlook\u4e88\u5b9a\u8868\u306e\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092\u5909\u66f4\u3059\u308b\u65b9\u6cd5<br \/>\n\u30fbExcel\u304b\u3089Outlook\u4e88\u5b9a\u8868\u3078\u7d42\u65e5\u306e\u4e88\u5b9a\u3092\u767b\u9332\u3059\u308b\u65b9\u6cd5<\/div>\n<p>\u306b\u3064\u3044\u3066\u307e\u3068\u3081\u307e\u3059\uff01<\/p>\n<div id=\"ez-toc-container\" class=\"ez-toc-v2_0_66_1 counter-hierarchy ez-toc-counter ez-toc-light-blue ez-toc-container-direction\">\n<div class=\"ez-toc-title-container\"><p class=\"ez-toc-title\">\u3082\u304f\u3058<\/p>\n<\/div><nav><ul class='ez-toc-list ez-toc-list-level-1 ' ><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-1\" href=\"https:\/\/extan.jp\/?p=1693\/#Excel%E3%81%AB%E3%81%BE%E3%81%A8%E3%82%81%E3%81%9F%E3%82%B9%E3%82%B1%E3%82%B8%E3%83%A5%E3%83%BC%E3%83%AB%E4%B8%80%E8%A6%A7%E3%82%92Outlook%E4%BA%88%E5%AE%9A%E8%A1%A8%E3%81%B8%E4%B8%80%E6%8B%AC%E7%99%BB%E9%8C%B2%E3%81%99%E3%82%8B%E5%87%A6%E7%90%86%E3%81%AE%E6%96%B9%E6%B3%95%E3%81%AB%E3%81%A4%E3%81%84%E3%81%A6\" title=\"Excel\u306b\u307e\u3068\u3081\u305f\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u4e00\u89a7\u3092Outlook\u4e88\u5b9a\u8868\u3078\u4e00\u62ec\u767b\u9332\u3059\u308b\u51e6\u7406\u306e\u65b9\u6cd5\u306b\u3064\u3044\u3066\">Excel\u306b\u307e\u3068\u3081\u305f\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u4e00\u89a7\u3092Outlook\u4e88\u5b9a\u8868\u3078\u4e00\u62ec\u767b\u9332\u3059\u308b\u51e6\u7406\u306e\u65b9\u6cd5\u306b\u3064\u3044\u3066<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-2\" href=\"https:\/\/extan.jp\/?p=1693\/#Excel_VBA%E3%81%8B%E3%82%89Outlook%E3%82%92%E6%93%8D%E4%BD%9C%E3%81%99%E3%82%8B%E3%81%9F%E3%82%81%E3%81%AE%E4%B8%8B%E6%BA%96%E5%82%99\" title=\"Excel VBA\u304b\u3089Outlook\u3092\u64cd\u4f5c\u3059\u308b\u305f\u3081\u306e\u4e0b\u6e96\u5099\">Excel VBA\u304b\u3089Outlook\u3092\u64cd\u4f5c\u3059\u308b\u305f\u3081\u306e\u4e0b\u6e96\u5099<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-3\" href=\"https:\/\/extan.jp\/?p=1693\/#VBA%E3%82%92%E5%AE%9F%E8%A3%85%E3%81%99%E3%82%8B\" title=\"VBA\u3092\u5b9f\u88c5\u3059\u308b\">VBA\u3092\u5b9f\u88c5\u3059\u308b<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-4\" href=\"https:\/\/extan.jp\/?p=1693\/#VBA%E3%82%92%E5%AE%9F%E8%A1%8C%E3%81%99%E3%82%8B\" title=\"VBA\u3092\u5b9f\u884c\u3059\u308b\">VBA\u3092\u5b9f\u884c\u3059\u308b<\/a><ul class='ez-toc-list-level-3' ><li class='ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-5\" href=\"https:\/\/extan.jp\/?p=1693\/#%E4%BC%9A%E8%AD%B0%E5%87%BA%E5%B8%AD%E4%BE%9D%E9%A0%BC%E3%81%AE%E9%80%81%E4%BF%A1%E3%82%92%E3%81%99%E3%82%8B%E5%A0%B4%E5%90%88\" title=\"\u4f1a\u8b70\u51fa\u5e2d\u4f9d\u983c\u306e\u9001\u4fe1\u3092\u3059\u308b\u5834\u5408\">\u4f1a\u8b70\u51fa\u5e2d\u4f9d\u983c\u306e\u9001\u4fe1\u3092\u3059\u308b\u5834\u5408<\/a><\/li><\/ul><\/li><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-6\" href=\"https:\/\/extan.jp\/?p=1693\/#%E3%80%90%E8%BF%BD%E5%8A%A0%E3%80%91%E4%BA%88%E5%AE%9A%E3%82%A2%E3%82%A4%E3%83%86%E3%83%A0%E9%87%8D%E8%A4%87%E3%82%B9%E3%82%AD%E3%83%83%E3%83%97%E7%89%88%E8%BF%BD%E5%8A%A0\" title=\"\u3010\u8ffd\u52a0\u3011\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u91cd\u8907\u30b9\u30ad\u30c3\u30d7\u7248\u8ffd\u52a0\">\u3010\u8ffd\u52a0\u3011\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u91cd\u8907\u30b9\u30ad\u30c3\u30d7\u7248\u8ffd\u52a0<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-7\" href=\"https:\/\/extan.jp\/?p=1693\/#%E3%80%90%E8%BF%BD%E5%8A%A0%E3%80%91%E4%BA%88%E5%AE%9A%E3%82%A2%E3%82%A4%E3%83%86%E3%83%A0%E9%87%8D%E8%A4%87%E3%82%B9%E3%82%AD%E3%83%83%E3%83%97%EF%BC%86%E6%97%A2%E5%AD%98%E4%BA%88%E5%AE%9A%E3%82%A2%E3%82%A4%E3%83%86%E3%83%A0%E6%9B%B4%E6%96%B0%E6%A9%9F%E8%83%BD%E8%BF%BD%E5%8A%A0\" title=\"\u3010\u8ffd\u52a0\u3011\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u91cd\u8907\u30b9\u30ad\u30c3\u30d7\uff06\u65e2\u5b58\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u66f4\u65b0\u6a5f\u80fd\u8ffd\u52a0\">\u3010\u8ffd\u52a0\u3011\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u91cd\u8907\u30b9\u30ad\u30c3\u30d7\uff06\u65e2\u5b58\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u66f4\u65b0\u6a5f\u80fd\u8ffd\u52a0<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-8\" href=\"https:\/\/extan.jp\/?p=1693\/2\/#%E3%80%90%E8%BF%BD%E5%8A%A0%E3%80%91%E4%BA%88%E5%AE%9A%E3%82%A2%E3%82%A4%E3%83%86%E3%83%A0%E6%9B%B4%E6%96%B0%E5%87%A6%E7%90%86\" title=\"\u3010\u8ffd\u52a0\u3011\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u66f4\u65b0\u51e6\u7406&lt;\u9ad8\u901f\u7248&gt;\">\u3010\u8ffd\u52a0\u3011\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u66f4\u65b0\u51e6\u7406&lt;\u9ad8\u901f\u7248&gt;<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-9\" href=\"https:\/\/extan.jp\/?p=1693\/2\/#%E3%80%90%E8%BF%BD%E5%8A%A0%E3%80%91%E4%BA%88%E5%AE%9A%E8%A1%A8%E3%81%AE%E5%85%AC%E9%96%8B%E6%96%B9%E6%B3%95%E3%82%92%E6%8C%87%E5%AE%9A%E3%81%99%E3%82%8BVBA\" title=\"\u3010\u8ffd\u52a0\u3011\u4e88\u5b9a\u8868\u306e\u516c\u958b\u65b9\u6cd5\u3092\u6307\u5b9a\u3059\u308bVBA\">\u3010\u8ffd\u52a0\u3011\u4e88\u5b9a\u8868\u306e\u516c\u958b\u65b9\u6cd5\u3092\u6307\u5b9a\u3059\u308bVBA<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-10\" href=\"https:\/\/extan.jp\/?p=1693\/2\/#%E3%80%90%E8%BF%BD%E5%8A%A0%E3%80%91%E7%B5%82%E6%97%A5%E3%81%AE%E4%BA%88%E5%AE%9A%E3%82%92%E7%99%BB%E9%8C%B2%E3%81%99%E3%82%8B\" title=\"\u3010\u8ffd\u52a0\u3011\u7d42\u65e5\u306e\u4e88\u5b9a\u3092\u767b\u9332\u3059\u308b\">\u3010\u8ffd\u52a0\u3011\u7d42\u65e5\u306e\u4e88\u5b9a\u3092\u767b\u9332\u3059\u308b<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-11\" href=\"https:\/\/extan.jp\/?p=1693\/2\/#%E3%81%95%E3%81%84%E3%81%94%E3%81%AB\" title=\"\u3055\u3044\u3054\u306b\">\u3055\u3044\u3054\u306b<\/a><\/li><\/ul><\/nav><\/div>\n<h2><span class=\"ez-toc-section\" id=\"Excel%E3%81%AB%E3%81%BE%E3%81%A8%E3%82%81%E3%81%9F%E3%82%B9%E3%82%B1%E3%82%B8%E3%83%A5%E3%83%BC%E3%83%AB%E4%B8%80%E8%A6%A7%E3%82%92Outlook%E4%BA%88%E5%AE%9A%E8%A1%A8%E3%81%B8%E4%B8%80%E6%8B%AC%E7%99%BB%E9%8C%B2%E3%81%99%E3%82%8B%E5%87%A6%E7%90%86%E3%81%AE%E6%96%B9%E6%B3%95%E3%81%AB%E3%81%A4%E3%81%84%E3%81%A6\"><\/span>Excel\u306b\u307e\u3068\u3081\u305f\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u4e00\u89a7\u3092Outlook\u4e88\u5b9a\u8868\u3078\u4e00\u62ec\u767b\u9332\u3059\u308b\u51e6\u7406\u306e\u65b9\u6cd5\u306b\u3064\u3044\u3066<span class=\"ez-toc-section-end\"><\/span><\/h2>\n<p>Excel\u306b\u307e\u3068\u3081\u305f\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u4e00\u89a7\u3092Outlook\u4e88\u5b9a\u8868\u3078\u4e00\u62ec\u767b\u9332\u3059\u308b\u51e6\u7406\u306e\u65b9\u6cd5\u306b\u3064\u3044\u3066\u8aac\u660e\u3092\u3057\u307e\u3059\u3002<\/p>\n<p>Excel\u306b\u307e\u3068\u3081\u305f\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u4e00\u89a7\u306f\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u3057\u307e\u3059\u3002<\/p>\n<table width=\"1058\">\n<tbody>\n<tr>\n<td>\u4ef6\u540d<\/td>\n<td>\u5834\u6240<\/td>\n<td>\u958b\u59cb\u65e5\u6642<\/td>\n<td>\u7d42\u4e86\u65e5\u6642<\/td>\n<td>\u4e88\u5b9a\u306e\u672c\u6587<\/td>\n<td>\u5fc5\u9808\u51fa\u5e2d\u8005<\/td>\n<td>\u4efb\u610f\u51fa\u5e2d\u8005<\/td>\n<\/tr>\n<tr>\n<td>\u4ef6\u540d\u3092\u5165\u529b<\/td>\n<td>\u5834\u6240\u3092\u5165\u529b<\/td>\n<td>\u958b\u59cb\u65e5\u6642\u3092&#8221;yyyy\/mm\/dd hh:mm:ss&#8221;\u5f62\u5f0f\u3067\u5165\u529b<\/td>\n<td>\u7d42\u4e86\u65e5\u6642\u3092&#8221;yyyy\/mm\/dd hh:mm:ss&#8221;\u5f62\u5f0f\u3067\u5165\u529b<\/td>\n<td>\u4e88\u5b9a\u306e\u672c\u6587\u3092\u5165\u529b<\/td>\n<td>\u5fc5\u9808\u51fa\u5e2d\u8005\u306e\u30a2\u30c9\u30ec\u30b9\u3092\u5165\u529b<\/td>\n<td>\u4efb\u610f\u51fa\u5e2d\u8005\u306e\u30a2\u30c9\u30ec\u30b9\u3092\u5165\u529b<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<p>&nbsp;<\/p>\n<p>\u30de\u30af\u30ed\u3092\u5b9f\u884c\u3059\u308b\u3068\u3001<\/p>\n<p>Outlook\u306e\u4e88\u5b9a\u8868\u3078Excel\u306b\u307e\u3068\u3081\u305f\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u304c\u767b\u9332\u3055\u308c\u307e\u3059\uff01<br \/>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-1704\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2019\/09\/092519_1423_temp22.png\" alt=\"\" width=\"1653\" height=\"974\" \/><\/p>\n<p>\u4eca\u56de\u306e\u30de\u30af\u30ed\u5b9f\u884c\u74b0\u5883\u306f\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u4e00\u89a7\u304c\u3042\u308bExcel\u5074\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<p><!--\u5439\u304d\u51fa\u3057\u306f\u3058\u307e\u308a--><\/p>\n<div class=\"balloon5\">\n<div class=\"faceicon\">\n<img loading=\"lazy\" decoding=\"async\" src=\"\/wp-content\/uploads\/2020\/11\/taka_kao.gif\" alt=\"\u30bf\u30ab\u30d2\u30ed\" width=\"110\" height=\"110\" \/>\n<div class=\"faceiconfont\">\u30bf\u30ab\u30d2\u30ed<\/div>\n<\/div>\n<div class=\"chatting\">\n<div class=\"says\">Excel\u304b\u3089Outlook\u306e\u64cd\u4f5c\u3092\u884c\u3044\u307e\u3059\u306e\u3067\u3001Outlook\u3092\u8d77\u52d5\u3057\u3066\u3044\u306a\u304f\u3066\u3082\u4e88\u5b9a\u306e\u767b\u9332\u304c\u53ef\u80fd\u3067\u3059\u3002<\/div>\n<\/div>\n<\/div>\n<p><!--\u5439\u304d\u51fa\u3057\u7d42\u308f\u308a--><\/p>\n<p>\u5b9f\u884c\u3059\u308b\u3053\u3068\u3067\u3001Excel\u306e\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u30c7\u30fc\u30bf\u3092\u4e00\u4ef6\u3065\u3064\u53d6\u308a\u51fa\u3057Outlook\u306e\u4e88\u5b9a\u8868\u3078\u767b\u9332\u3059\u308b\u6d41\u308c\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>\u2460<strong>Excel\u30d6\u30c3\u30af(VBA)<\/strong> \u2192\u3000<strong>\u4e88\u5b9a\u8868\u3078\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092\u767b\u9332\u3057\u3066<\/strong>\u3000\u2192 <strong>Outlook<\/strong><br \/>\n\u2461<strong>Excel\u30d6\u30c3\u30af<\/strong> \u2190\u3000<strong>\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092\u767b\u9332\u3057\u305f\u3088<\/strong>\u3000\u2190 <strong>Outlook<\/strong><\/p>\n<p>\u307e\u3068\u3081\u3066\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092Outlook\u4e88\u5b9a\u8868\u3078\u767b\u9332\u3057\u305f\u3044\u3068\u304d\u306b\u4fbf\u5229\u3067\u3059\u306d\uff01<\/p>\n<p>\u65e9\u901f\u5b9f\u88c5\u3092\u3057\u3066\u52d5\u304b\u3057\u3066\u307f\u307e\u3057\u3087\u3046\uff01<\/p>\n<p><script><\/p>\n<p><\/script><\/p>\n<h2><span class=\"ez-toc-section\" id=\"Excel_VBA%E3%81%8B%E3%82%89Outlook%E3%82%92%E6%93%8D%E4%BD%9C%E3%81%99%E3%82%8B%E3%81%9F%E3%82%81%E3%81%AE%E4%B8%8B%E6%BA%96%E5%82%99\"><\/span>Excel VBA\u304b\u3089Outlook\u3092\u64cd\u4f5c\u3059\u308b\u305f\u3081\u306e\u4e0b\u6e96\u5099<span class=\"ez-toc-section-end\"><\/span><\/h2>\n<p>\u2460\u307e\u305aExcel\u3092\u8d77\u52d5\u3057\u3001\u300c\u958b\u767a\u300d\u30bf\u30d6\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<br \/>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-1670\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2019\/09\/092219_1157_temp25.png\" alt=\"\" width=\"1051\" height=\"456\" \/><\/p>\n<p>\u2461VBE\u306e\u753b\u9762\u304c\u958b\u3044\u305f\u3089\u3001\u30e1\u30cb\u30e5\u30fc\u304b\u3089\u300c\u30c4\u30fc\u30eb\u300d&gt;\u300c\u53c2\u7167\u8a2d\u5b9a\u300d\u3092\u9078\u629e\u3057\u307e\u3059\u3002<\/p>\n<p>\u2462\u300cMicrosoft Outlook XX.X Object Library\u300d\u3092\u63a2\u3057\u3066\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u306b\u30c1\u30a7\u30c3\u30af\u3057\u300cOK\u300d\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<br \/>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-1536\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2019\/09\/091219_1002_temp3.png\" alt=\"\" width=\"650\" height=\"465\" \/><\/p>\n<p>\u4ee5\u4e0a\u3067\u3059\u3002<\/p>\n<p><script><\/p>\n<p><\/script><\/p>\n<h2><span class=\"ez-toc-section\" id=\"VBA%E3%82%92%E5%AE%9F%E8%A3%85%E3%81%99%E3%82%8B\"><\/span>VBA\u3092\u5b9f\u88c5\u3059\u308b<span class=\"ez-toc-section-end\"><\/span><\/h2>\n<p>\u7d9a\u3044\u3066VBA\u3092\u5b9f\u88c5\u3057\u307e\u3059\u3002<\/p>\n<p>\u4eca\u56deVBA\u306f\u4ee5\u4e0b\u306e\u901a\u308a\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<pre style=\"padding: 0;\"><code class=\"language-visual-basic line-numbers\">Sub Outlook\u306e\u4e88\u5b9a\u8868\u3078\u767b\u9332\u3059\u308b()\n\n    &#039;Outlook\u7528\u306e\u5b9a\u7fa9\n    Dim olApp As Outlook.Application\n    Dim olItem  As AppointmentItem\n    \n    &#039;Excel\u7528\u306e\u5b9a\u7fa9\n    Dim wbBook As Workbook\n    Dim wsSheet As Worksheet\n    \n    Dim lnContactCount As Long\n    Dim i As Long\n    \n    &#039;\u30b9\u30af\u30ea\u30fc\u30f3\u306e\u66f4\u65b0\u306f\u884c\u308f\u308c\u307e\u305b\u3093\u3002\n    Application.ScreenUpdating = False\n    \n    &#039;Excel\u306e\u30d6\u30c3\u30af\u3068\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002\n    Set wbBook = ThisWorkbook\n    Set wsSheet = wbBook.Worksheets(1)\n    \n    \n    wsSheet.Activate\n    \n    &#039;Outlook\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u8a2d\u5b9a\u3057\u3001MAPI\u540d\u524d\u7a7a\u9593\u3092\u4ecb\u3057\u3066Outlook\u306e\u4e88\u5b9a\u8868\u3092\u53d6\u5f97\u3057\u307e\u3059\u3002\n    Set olApp = New Outlook.Application\n    \n    \n    &#039;\u53d6\u5f97\u7d50\u679c\u3092\u8a18\u8ff0\u3059\u308b\u884c\u756a\u53f7\u3092\u6307\u5b9a\u3057\u307e\u3059\u30022\u884c\u76ee\u306e\u30bb\u30eb\u304b\u3089\u958b\u59cb\u3055\u308c\u308b\u3053\u3068\u306b\u306a\u308a\u307e\u3059\u3002\n    lnContactCount = 2\n\n    Dim rc As Integer\n    rc = MsgBox(&quot;\u4e88\u5b9a\u8868\u3078\u767b\u9332\u3057\u307e\u3059\u304b\uff1f&quot;, vbYesNo + vbQuestion, &quot;\u78ba\u8a8d&quot;)\n    \n    If rc = vbYes Then\n    \n        &#039;\u4e88\u5b9a\u8868\u4e00\u89a7\u306e\u4ef6\u6570\u5206\u7e70\u308a\u8fd4\u3059\u3002\n        For i = lnContactCount To Cells(1, 1).End(xlDown).Row\n            Set olItem = olApp.CreateItem(olAppointmentItem)\n            \n            With olItem\n                .Subject = Cells(i, 1)\n                .Location = Cells(i, 2)\n                .Start = Format(Cells(i, 3), &quot;yyyy\/mm\/dd hh:mm:ss&quot;)\n                .End = Format(Cells(i, 4), &quot;yyyy\/mm\/dd hh:mm:ss&quot;)\n                .Body = Cells(i, 5)\n                .RequiredAttendees = Cells(i, 6)\n                .OptionalAttendees = Cells(i, 7)\n                \n            End With\n            \n            &#039;\u3053\u3053\u3067\u4fdd\u5b58\n            olItem.Save\n\n        Next\n    \n    Else\n        MsgBox &quot;\u51e6\u7406\u3092\u4e2d\u65ad\u3057\u307e\u3059&quot;\n        Exit Sub\n    End If\n    \n    &#039;Null out the variables.\n    Set olItem = Nothing\n    Set olApp = Nothing\n    \n            \n    &#039;Turn screen updating back on.\n    Application.ScreenUpdating = True\n    \n    MsgBox &quot;Outlook\u4e88\u5b9a\u8868\u306e\u767b\u9332\u304c\u5b8c\u4e86\u3057\u307e\u3057\u305f\uff01&quot;, vbInformation\n    \nEnd Sub\n<\/code><\/pre>\n<p>\u5b9f\u88c5\u624b\u9806\u306f\u4ee5\u4e0b\u306e\u901a\u308a\u3067\u3059\u3002\u4eca\u56de\u306fExcel\u5074\u306b\u3053\u306eVBA\u3092\u5b9f\u88c5\u3057\u307e\u3059\u3002<br \/>\n\u2460Excel\u3092\u65b0\u898f\u306b\u958b\u304d\u3001\u300c\u958b\u767a\u300d\u30bf\u30d6\u3092\u30af\u30ea\u30c3\u30af\u3057\u3001\u300cVisualBasic\u300d\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<br \/>\n\u3082\u3057\u304f\u306f\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc\u300cAlt\u300d\uff0b\u300cF11\u300d\u3067\u3082OK\u3067\u3059\u3002<\/p>\n<p>\u2461\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u8ffd\u52a0\u3057\u307e\u3059\u3002<br \/>\n\u5de6\u30da\u30a4\u30f3\u306eVBAProject\u3092\u53f3\u30af\u30ea\u30c3\u30af\u3057\u3001\u300c\u633f\u5165\u300d\u3001\u300c\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u300d\u3092\u9078\u629e\u3057\u307e\u3059\u3002<\/p>\n<img decoding=\"async\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2019\/05\/050919_1542_VBAFunctio2.png\" alt=\"\" \/>\n<p>\u2462\u53f3\u30da\u30a4\u30f3\u306e\u30a6\u30a4\u30f3\u30c9\u30a6\u306b\u4e0a\u8a18\u306e\u30de\u30af\u30ed\u3092\u5165\u529b\u3057\u307e\u3059\u3002<br \/>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-1680\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2019\/09\/092219_1211_temp22.png\" alt=\"\" width=\"1395\" height=\"879\" \/><\/p>\n<p>\u3053\u3061\u3089\u3067\u5b8c\u4e86\u3067\u3059\u3002<\/p>\n<p><script><\/p>\n<p><\/script><\/p>\n<h2><span class=\"ez-toc-section\" id=\"VBA%E3%82%92%E5%AE%9F%E8%A1%8C%E3%81%99%E3%82%8B\"><\/span>VBA\u3092\u5b9f\u884c\u3059\u308b<span class=\"ez-toc-section-end\"><\/span><\/h2>\n<p>\u2460\u30c7\u30fc\u30bf\u3092\u6e96\u5099\u3057\u307e\u3059\u3002<br \/>\n\u30b5\u30f3\u30d7\u30eb\u3067\u306f<a href=\"https:\/\/extan.jp\/?p=1663\">\u524d\u56de\u53d6\u5f97\u3057\u305f\u30c7\u30fc\u30bf<\/a>\u3092\u5143\u306b\u3001\u300c\u958b\u59cb\u65e5\u6642\u300d\u3068\u300c\u7d42\u4e86\u65e5\u6642\u300d\u306b\u5909\u66f4\u3092\u52a0\u3048\u3066\u3044\u307e\u3059\u3002<br \/>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-1696\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2019\/09\/092519_1419_temp22.png\" alt=\"\" width=\"1355\" height=\"173\" \/><\/p>\n<p>\u624b\u52d5\u3067\u5165\u529b\u3059\u308b\u969b\u306b\u306f\u4ee5\u4e0b\u306e\u9805\u76ee\u306b\u6cbf\u3063\u3066\u8a18\u5165\u3092\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n<p><!--\u5439\u304d\u51fa\u3057\u306f\u3058\u307e\u308a--><\/p>\n<div class=\"balloon5\">\n<div class=\"faceicon\">\n<img loading=\"lazy\" decoding=\"async\" src=\"\/wp-content\/uploads\/2020\/11\/taka_kao.gif\" alt=\"\u30bf\u30ab\u30d2\u30ed\" width=\"110\" height=\"110\" \/>\n<div class=\"faceiconfont\">\u30bf\u30ab\u30d2\u30ed<\/div>\n<\/div>\n<div class=\"chatting\">\n<div class=\"says\">\u7279\u306b\u300c\u958b\u59cb\u65e5\u6642\u300d\u3068\u300c\u7d42\u4e86\u65e5\u6642\u300d\u306e\u5f62\u5f0f\u306b\u5165\u529b\u9593\u9055\u3048\u304c\u306a\u3044\u3088\u3046\u306b\u6ce8\u610f\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/div>\n<\/div>\n<\/div>\n<p><!--\u5439\u304d\u51fa\u3057\u7d42\u308f\u308a--><\/p>\n<table width=\"1058\">\n<tbody>\n<tr>\n<td>\u4ef6\u540d<\/td>\n<td>\u5834\u6240<\/td>\n<td>\u958b\u59cb\u65e5\u6642<\/td>\n<td>\u7d42\u4e86\u65e5\u6642<\/td>\n<td>\u4e88\u5b9a\u306e\u672c\u6587<\/td>\n<td>\u5fc5\u9808\u51fa\u5e2d\u8005<\/td>\n<td>\u4efb\u610f\u51fa\u5e2d\u8005<\/td>\n<\/tr>\n<tr>\n<td>\u4ef6\u540d\u3092\u5165\u529b<\/td>\n<td>\u5834\u6240\u3092\u5165\u529b<\/td>\n<td>\u958b\u59cb\u65e5\u6642\u3092&#8221;yyyy\/mm\/dd hh:mm:ss&#8221;\u5f62\u5f0f\u3067\u5165\u529b<\/td>\n<td>\u7d42\u4e86\u65e5\u6642\u3092&#8221;yyyy\/mm\/dd hh:mm:ss&#8221;\u5f62\u5f0f\u3067\u5165\u529b<\/td>\n<td>\u4e88\u5b9a\u306e\u672c\u6587\u3092\u5165\u529b<\/td>\n<td>\u5fc5\u9808\u51fa\u5e2d\u8005\u306e\u30a2\u30c9\u30ec\u30b9\u3092\u5165\u529b<\/td>\n<td>\u4efb\u610f\u51fa\u5e2d\u8005\u306e\u30a2\u30c9\u30ec\u30b9\u3092\u5165\u529b<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<p>\u2461\u300c\u958b\u767a\u300d\u30bf\u30d6\u306e\u300c\u30de\u30af\u30ed\u300d\u3092\u30af\u30ea\u30c3\u30af\u3057\u300cOutlook\u306e\u4e88\u5b9a\u8868\u3078\u767b\u9332\u3059\u308b\u300d\u3092\u9078\u629e\u3057\u3001\u300c\u5b9f\u884c\u300d\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/p>\n<p>\u2462Outlook\u306e\u4e88\u5b9a\u8868\u3078\u767b\u9332\u3055\u308c\u305f\u3089\u5b8c\u6210\u3067\u3059\uff01<br \/>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-1704\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2019\/09\/092519_1423_temp22.png\" alt=\"\" width=\"1653\" height=\"974\" \/><\/p>\n<p>\u5ff5\u306e\u305f\u3081\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u8868\u306e\u4e2d\u8eab\u3082\u898b\u3066\u307f\u307e\u3057\u3087\u3046\u3002<br \/>\n\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u306e\u5404\u9805\u76ee\u3082\u53cd\u6620\u3055\u308c\u3066\u3044\u307e\u3059\u306d\u3002<br \/>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-1700\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2019\/09\/092519_1419_temp26.png\" alt=\"\" width=\"1323\" height=\"685\" \/><br \/>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-1701\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2019\/09\/092519_1419_temp27.png\" alt=\"\" width=\"1323\" height=\"685\" \/><\/p>\n<p>\u306a\u304a\u3001\u4eca\u56de\u306f\u4ed5\u69d8\u4e0a\u4f1a\u8b70\u51fa\u5e2d\u8005\u3092\u6307\u5b9a\u3057\u3066\u3082\u51fa\u5e2d\u8005\u3078\u9023\u7d61\u304c\u3055\u308c\u307e\u305b\u3093\u3002<br \/>\n\u307e\u305f\u30012\u56de\u540c\u3058\u60c5\u5831\u3067\u767b\u9332\u3057\u305f\u5834\u5408\u306f\u3001\u65e2\u5b58\u306e\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092\u5909\u66f4\u3059\u308b\u306e\u3067\u306f\u306a\u304f\u8ffd\u52a0\u3068\u306a\u308a\u307e\u3059\u306e\u3067\u3054\u6ce8\u610f\u304f\u3060\u3055\u3044\u3002<\/p>\n<p>2\u56de\u5b9f\u65bd\u3057\u305f\u5834\u5408\u306f\u3053\u3046\u306a\u308a\u307e\u3059\u3002<br \/>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-1703\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2019\/09\/092519_1423_temp21.png\" alt=\"\" width=\"1617\" height=\"944\" \/><\/p>\n<p><!--\u5439\u304d\u51fa\u3057\u306f\u3058\u307e\u308a--><\/p>\n<div class=\"balloon5\">\n<div class=\"faceicon\">\n<img loading=\"lazy\" decoding=\"async\" src=\"\/wp-content\/uploads\/2020\/11\/taka_kao.gif\" alt=\"\u30bf\u30ab\u30d2\u30ed\" width=\"110\" height=\"110\" \/>\n<div class=\"faceiconfont\">\u30bf\u30ab\u30d2\u30ed<\/div>\n<\/div>\n<div class=\"chatting\">\n<div class=\"says\">\u3084\u3063\u3071\u308a\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u306e\u91cd\u8907\u306f\u56f0\u308b\u3088\u3068\u306e\u610f\u898b\u304c\u3042\u308a\u3001\u91cd\u8907\u30b9\u30ad\u30c3\u30d7\u7248\u3092\u4f5c\u6210\u3057\u3066\u307f\u307e\u3057\u305f\u30021\u70b9\u76ee\u306f\u4ef6\u540d\u3068\u958b\u59cb\u65e5\u6642\u3067\u91cd\u8907\u5224\u5b9a\u30012\u70b9\u76ee\u306f\u4e88\u5b9aID\u3067\u5224\u5b9a\u3057\u3001\u66f4\u65b0\u3082\u53ef\u80fd\u306b\u3057\u3066\u307f\u307e\u3057\u305f\u3002<\/div>\n<\/div>\n<\/div>\n<p><!--\u5439\u304d\u51fa\u3057\u7d42\u308f\u308a--><\/p>\n<p><script><\/p>\n<p><\/script><\/p>\n<h3><span class=\"ez-toc-section\" id=\"%E4%BC%9A%E8%AD%B0%E5%87%BA%E5%B8%AD%E4%BE%9D%E9%A0%BC%E3%81%AE%E9%80%81%E4%BF%A1%E3%82%92%E3%81%99%E3%82%8B%E5%A0%B4%E5%90%88\"><\/span>\u4f1a\u8b70\u51fa\u5e2d\u4f9d\u983c\u306e\u9001\u4fe1\u3092\u3059\u308b\u5834\u5408<span class=\"ez-toc-section-end\"><\/span><\/h3>\n<p><!--\u5439\u304d\u51fa\u3057\u306f\u3058\u307e\u308a--><\/p>\n<div class=\"balloon5\">\n<div class=\"faceicon\">\n<img loading=\"lazy\" decoding=\"async\" src=\"\/wp-content\/uploads\/2020\/11\/taka_kao.gif\" alt=\"\u30bf\u30ab\u30d2\u30ed\" width=\"110\" height=\"110\" \/>\n<div class=\"faceiconfont\">\u30bf\u30ab\u30d2\u30ed<\/div>\n<\/div>\n<div class=\"chatting\">\n<div class=\"says\">\u4f1a\u8b70\u51fa\u5e2d\u4f9d\u983c\u306e\u9001\u4fe1\u3092\u884c\u3044\u305f\u3044\u5834\u5408\u306f\u4ee5\u4e0b\u306e\u8a18\u4e8b\u3092\u3054\u53c2\u7167\u304f\u3060\u3055\u3044\u3002<\/div>\n<\/div>\n<\/div>\n<p><!--\u5439\u304d\u51fa\u3057\u7d42\u308f\u308a--><\/p>\n<div class=\"info\"><a title=\"\u3010VBA\u3011Excel \u304b\u3089Outlook\u306e\u4f1a\u8b70\u51fa\u5e2d\u4f9d\u983c\u3092\u9001\u4fe1\u3059\u308b\u65b9\u6cd5\uff01\u4f1a\u8b70\u5909\u66f4\u5f8c\u306e\u9001\u4fe1\u3082\u5bfe\u5fdc\uff01\" href=\"https:\/\/extan.jp\/?p=3636\">\u3010VBA\u3011Excel \u304b\u3089Outlook\u306e\u4f1a\u8b70\u51fa\u5e2d\u4f9d\u983c\u3092\u9001\u4fe1\u3059\u308b\u65b9\u6cd5\uff01\u4f1a\u8b70\u5909\u66f4\u5f8c\u306e\u9001\u4fe1\u3082\u5bfe\u5fdc\uff01<\/a><\/div>\n<p><script><\/p>\n<p><\/script><\/p>\n<h2><span class=\"ez-toc-section\" id=\"%E3%80%90%E8%BF%BD%E5%8A%A0%E3%80%91%E4%BA%88%E5%AE%9A%E3%82%A2%E3%82%A4%E3%83%86%E3%83%A0%E9%87%8D%E8%A4%87%E3%82%B9%E3%82%AD%E3%83%83%E3%83%97%E7%89%88%E8%BF%BD%E5%8A%A0\"><\/span>\u3010\u8ffd\u52a0\u3011\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u91cd\u8907\u30b9\u30ad\u30c3\u30d7\u7248\u8ffd\u52a0<span class=\"ez-toc-section-end\"><\/span><\/h2>\n<p>\u4e88\u5b9a\u8868\u306e\u4e2d\u3067\u3001\u3053\u308c\u304b\u3089\u767b\u9332\u3059\u308b\u4ef6\u540d\u3068\u958b\u59cb\u65e5\u6642\u304c\u767b\u9332\u6e08\u307f\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u3068\u4e00\u81f4\u3057\u3066\u3044\u305f\u3089<br \/>\n\u51e6\u7406\u3092\u30b9\u30ad\u30c3\u30d7\u3059\u308b\u51e6\u7406\u3092\u8ffd\u52a0\u3057\u307e\u3057\u305f\u3002<\/p>\n<p>VBA\u306f\u4ee5\u4e0b\u306e\u901a\u308a\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<pre style=\"padding: 0;\"><code class=\"language-visual-basic line-numbers\">Sub Outlook\u306e\u4e88\u5b9a\u8868\u3078\u767b\u9332\u3059\u308b_\u91cd\u8907\u30b9\u30ad\u30c3\u30d7\u7248()\n\n    &#039;Outlook\u7528\u306e\u5b9a\u7fa9\n    Dim olApp As Outlook.Application\n    Dim olNamespace As Outlook.Namespace\n    Dim olFolder As Folder\n    Dim olConItems As Outlook.Items\n    Dim olItem  As AppointmentItem\n    Dim olItemBefor As AppointmentItem\n    Dim checkFlg As Long\n    \n    &#039;\u91cd\u8907\u30c1\u30a7\u30c3\u30af\u30d5\u30e9\u30b0\u521d\u671f\u5024\u8a2d\u5b9a\n    checkFlg = 0\n    \n    \n    \n    &#039;Excel\u7528\u306e\u5b9a\u7fa9\n    Dim wbBook As Workbook\n    Dim wsSheet As Worksheet\n    \n    Dim lnContactCount As Long\n    Dim i As Long\n\n    &#039;\u30b9\u30af\u30ea\u30fc\u30f3\u306e\u66f4\u65b0\u306f\u884c\u308f\u308c\u307e\u305b\u3093\u3002\n    Application.ScreenUpdating = False\n    \n    &#039;Excel\u306e\u30d6\u30c3\u30af\u3068\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002\n    Set wbBook = ThisWorkbook\n    Set wsSheet = wbBook.Worksheets(1)\n    \n    \n    wsSheet.Activate\n    \n    &#039;Outlook\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u8a2d\u5b9a\u3057\u3001MAPI\u540d\u524d\u7a7a\u9593\u3092\u4ecb\u3057\u3066Outlook\u306e\u4e88\u5b9a\u8868\u3092\u53d6\u5f97\u3057\u307e\u3059\u3002\n    Set olApp = New Outlook.Application\n    Set olNamespace = olApp.GetNamespace(&quot;MAPI&quot;)\n    Set olFolder = olNamespace.GetDefaultFolder(olFolderCalendar)\n    Set olConItems = olFolder.Items\n    \n    &#039;\u53d6\u5f97\u7d50\u679c\u3092\u8a18\u8ff0\u3059\u308b\u884c\u756a\u53f7\u3092\u6307\u5b9a\u3057\u307e\u3059\u30022\u884c\u76ee\u306e\u30bb\u30eb\u304b\u3089\u958b\u59cb\u3055\u308c\u308b\u3053\u3068\u306b\u306a\u308a\u307e\u3059\u3002\n    lnContactCount = 2\n\n    Dim rc As Integer\n    rc = MsgBox(&quot;\u4e88\u5b9a\u8868\u3078\u767b\u9332\u3057\u307e\u3059\u304b\uff1f&quot;, vbYesNo + vbQuestion, &quot;\u78ba\u8a8d&quot;)\n    \n    If rc = vbYes Then\n    \n        &#039;\u4e88\u5b9a\u8868\u4e00\u89a7\u306e\u4ef6\u6570\u5206\u7e70\u308a\u8fd4\u3059\u3002\n        For i = lnContactCount To Cells(1, 1).End(xlDown).Row\n            Set olItem = olApp.CreateItem(olAppointmentItem)\n\n            With olItem\n                .Subject = Cells(i, 1)\n                .Location = Cells(i, 2)\n                .Start = Format(Cells(i, 3), &quot;yyyy\/mm\/dd hh:mm:ss&quot;)\n                .End = Format(Cells(i, 4), &quot;yyyy\/mm\/dd hh:mm:ss&quot;)\n                .Body = Cells(i, 5)\n                .RequiredAttendees = Cells(i, 6)\n                .OptionalAttendees = Cells(i, 7)\n                \n                &#039;\u91cd\u8907\u30c1\u30a7\u30c3\u30af\n                For Each olItemBefor In olConItems\n                    If TypeName(olItemBefor) = &quot;AppointmentItem&quot; Then\n                        &#039;\u767b\u9332\u3055\u308c\u3066\u3044\u308b\u4e88\u5b9a\u8868\u306e\u4ef6\u540d\u3068\u958b\u59cb\u65e5\u6642\u304c\u4e00\u81f4\u3057\u3066\u3044\u305f\u3089\u30d5\u30e9\u30b0\u30921\u306b\u3059\u308b\n                        If olItemBefor.Subject = .Subject And olItemBefor.Start = .Start Then\n                          checkFlg = 1\n                        End If\n                    End If\n                    \n                Next\n\n                If checkFlg &lt;&gt; 1 Then\n                    &#039;\u3053\u3053\u3067\u4fdd\u5b58\n                    olItem.Save\n                    \n                End If\n\n            End With\n            \n            &#039;\u91cd\u8907\u30d5\u30e9\u30b0\u30ea\u30bb\u30c3\u30c8\n            checkFlg = 0\n\n        Next\n    \n    Else\n        MsgBox &quot;\u51e6\u7406\u3092\u4e2d\u65ad\u3057\u307e\u3059&quot;\n        Exit Sub\n    End If\n    \n    &#039;Null out the variables.\n    Set olItem = Nothing\n    Set olApp = Nothing\n    \n            \n    &#039;Turn screen updating back on.\n    Application.ScreenUpdating = True\n    \n    MsgBox &quot;Outlook\u4e88\u5b9a\u8868\u306e\u767b\u9332\u304c\u5b8c\u4e86\u3057\u307e\u3057\u305f\uff01&quot;, vbInformation\n    \nEnd Sub\n<\/code><\/pre>\n<p><script><\/p>\n<p><\/script><\/p>\n<h2><span class=\"ez-toc-section\" id=\"%E3%80%90%E8%BF%BD%E5%8A%A0%E3%80%91%E4%BA%88%E5%AE%9A%E3%82%A2%E3%82%A4%E3%83%86%E3%83%A0%E9%87%8D%E8%A4%87%E3%82%B9%E3%82%AD%E3%83%83%E3%83%97%EF%BC%86%E6%97%A2%E5%AD%98%E4%BA%88%E5%AE%9A%E3%82%A2%E3%82%A4%E3%83%86%E3%83%A0%E6%9B%B4%E6%96%B0%E6%A9%9F%E8%83%BD%E8%BF%BD%E5%8A%A0\"><\/span>\u3010\u8ffd\u52a0\u3011\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u91cd\u8907\u30b9\u30ad\u30c3\u30d7\uff06\u65e2\u5b58\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u66f4\u65b0\u6a5f\u80fd\u8ffd\u52a0<span class=\"ez-toc-section-end\"><\/span><\/h2>\n<p>\u4e88\u5b9a\u8868\u306e\u66f4\u65b0\u3092Excel\u304b\u3089\u3067\u304d\u308b\u3088\u3046\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n<p><!--\u5439\u304d\u51fa\u3057\u306f\u3058\u307e\u308a--><\/p>\n<div class=\"balloon5\">\n<div class=\"faceicon\">\n<img loading=\"lazy\" decoding=\"async\" src=\"\/wp-content\/uploads\/2020\/11\/taka_kao.gif\" alt=\"\u30bf\u30ab\u30d2\u30ed\" width=\"110\" height=\"110\" \/>\n<div class=\"faceiconfont\">\u30bf\u30ab\u30d2\u30ed<\/div>\n<\/div>\n<div class=\"chatting\">\n<div class=\"says\">\u4eca\u307e\u3067\u306f\u65b0\u898f\u767b\u9332\u306e\u307f\u3067\u3057\u305f\u304c\u3001\u767b\u9332\u3057\u305f\u65e2\u5b58\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u306e\u66f4\u65b0\u3092\u53ef\u80fd\u306b\u3057\u305f\u308f\u3051\u3067\u3059\u3002<\/div>\n<\/div>\n<\/div>\n<p><!--\u5439\u304d\u51fa\u3057\u7d42\u308f\u308a--><\/p>\n<p>\u65b0\u898f\u767b\u9332\u306e\u5834\u5408\u306fOutlook\u4e88\u5b9a\u8868\u306b\u767b\u9332\u3055\u308c\u3001Excel\u306eI\u5217\u306b\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u306eID\u304c\u767b\u9332\u3055\u308c\u307e\u3059\u3002<\/p>\n<p>&lt;tr&#8221;&gt;\u4ef6\u540d\u3092\u5165\u529b\u5834\u6240\u3092\u5165\u529b\u958b\u59cb\u65e5\u6642\u3092\u201dyyyy\/mm\/dd hh:mm:ss\u201d\u5f62\u5f0f\u3067\u5165\u529b\u7d42\u4e86\u65e5\u6642\u3092\u201dyyyy\/mm\/dd hh:mm:ss\u201d\u5f62\u5f0f\u3067\u5165\u529b\u4e88\u5b9a\u306e\u672c\u6587\u3092\u5165\u529b\u5fc5\u9808\u51fa\u5e2d\u8005\u306e\u30a2\u30c9\u30ec\u30b9\u3092\u5165\u529b\u4efb\u610f\u51fa\u5e2d\u8005\u306e\u30a2\u30c9\u30ec\u30b9\u3092\u5165\u529b\u7a7a\u6b04EntryID\u304c\u81ea\u52d5\u3067\u5165\u308a\u307e\u3059\u3002<\/p>\n<table>\n<tbody>\n<tr>\n<td>\u4ef6\u540d<\/td>\n<td>\u5834\u6240<\/td>\n<td>\u958b\u59cb\u65e5\u6642<\/td>\n<td>\u7d42\u4e86\u65e5\u6642<\/td>\n<td>\u4e88\u5b9a\u306e\u672c\u6587<\/td>\n<td>\u5fc5\u9808\u51fa\u5e2d\u8005<\/td>\n<td>\u4efb\u610f\u51fa\u5e2d\u8005<\/td>\n<td>\u7a7a\u6b04<\/td>\n<td>EntryID<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<p>\u66f4\u65b0\u306e\u5834\u5408\u306f\u305d\u306e\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u306eID\u3068\u4e00\u81f4\u3057\u305f\u5834\u5408\u306b\u5b9f\u65bd\u3055\u308c\u308b\u3088\u3046\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n<p>\u306a\u304a\u3001\u30bf\u30a4\u30c8\u30eb\u3001\u958b\u59cb\u65e5\u3001\u7d42\u4e86\u65e5\u304c\u5909\u66f4\u3055\u308c\u305f\u5834\u5408\u306e\u307f\u66f4\u65b0\u3068\u3044\u3046\u6761\u4ef6\u3068\u306a\u3063\u3066\u3044\u307e\u3059\u306e\u3067\u3001<br \/>\n\u51fa\u5e2d\u8005\u3084\u672c\u6587\u306a\u3069\u5909\u66f4\u3057\u305f\u5834\u5408\u3082\u66f4\u65b0\u3057\u305f\u3044\u5834\u5408\u306f<\/p>\n<p>If olItemBefor.Subject = olItem.Subject And olItemBefor.Start = olItem.Start And olItemBefor.End = olItem.End Then<\/p>\n<p>\u3053\u3061\u3089\u306eif\u6587\u306e\u6761\u4ef6\u3092\u7de9\u548c\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n<p>\u306a\u304a\u3001if\u6587\u3092\u5916\u3059\u3068\u554f\u7b54\u7121\u7528\u306bExcel\u30ea\u30b9\u30c8\u5206\u306e\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u304c\u66f4\u65b0\u3055\u308c\u307e\u3059\u306e\u3067\u3054\u6ce8\u610f\u304f\u3060\u3055\u3044\u3002<\/p>\n<p>VBA\u306f\u4ee5\u4e0b\u306e\u901a\u308a\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<pre style=\"padding: 0;\"><code class=\"language-visual-basic line-numbers\">Sub Outlook\u306e\u4e88\u5b9a\u8868\u3078\u767b\u9332\u3059\u308b_\u91cd\u8907\u30b9\u30ad\u30c3\u30d7_Excel\u30ea\u30b9\u30c8\u304b\u3089\u5909\u66f4\u3067\u304d\u308b\u7248()\n\n    &#039;Outlook\u7528\u306e\u5b9a\u7fa9\n    Dim olApp As Outlook.Application\n    Dim olNamespace As Outlook.Namespace\n    Dim olFolder As Folder\n    Dim olConItems As Outlook.Items\n    Dim olItem  As AppointmentItem\n    Dim olItemBefor As AppointmentItem\n    Dim checkFlg As Long\n    \n    &#039;\u91cd\u8907\u30c1\u30a7\u30c3\u30af\u30d5\u30e9\u30b0\u521d\u671f\u5024\u8a2d\u5b9a\n    checkFlg = 0\n    \n    \n    \n    &#039;Excel\u7528\u306e\u5b9a\u7fa9\n    Dim wbBook As Workbook\n    Dim wsSheet As Worksheet\n    \n    Dim lnContactCount As Long\n    Dim i As Long\n    \n    &#039;\u30b9\u30af\u30ea\u30fc\u30f3\u306e\u66f4\u65b0\u306f\u884c\u308f\u308c\u307e\u305b\u3093\u3002\n    Application.ScreenUpdating = False\n    \n    &#039;Excel\u306e\u30d6\u30c3\u30af\u3068\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002\n    Set wbBook = ThisWorkbook\n    Set wsSheet = wbBook.Worksheets(1)\n    \n    \n    wsSheet.Activate\n    \n    &#039;Outlook\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u8a2d\u5b9a\u3057\u3001MAPI\u540d\u524d\u7a7a\u9593\u3092\u4ecb\u3057\u3066Outlook\u306e\u4e88\u5b9a\u8868\u3092\u53d6\u5f97\u3057\u307e\u3059\u3002\n    Set olApp = New Outlook.Application\n    Set olNamespace = olApp.GetNamespace(&quot;MAPI&quot;)\n    Set olFolder = olNamespace.GetDefaultFolder(olFolderCalendar)\n    Set olConItems = olFolder.Items\n    \n    &#039;\u53d6\u5f97\u7d50\u679c\u3092\u8a18\u8ff0\u3059\u308b\u884c\u756a\u53f7\u3092\u6307\u5b9a\u3057\u307e\u3059\u30022\u884c\u76ee\u306e\u30bb\u30eb\u304b\u3089\u958b\u59cb\u3055\u308c\u308b\u3053\u3068\u306b\u306a\u308a\u307e\u3059\u3002\n    lnContactCount = 2\n\n    Dim rc As Integer\n    rc = MsgBox(&quot;\u4e88\u5b9a\u8868\u3078\u767b\u9332\u3057\u307e\u3059\u304b\uff1f&quot;, vbYesNo + vbQuestion, &quot;\u78ba\u8a8d&quot;)\n    \n    If rc = vbYes Then\n    \n        &#039;\u4e88\u5b9a\u8868\u4e00\u89a7\u306e\u4ef6\u6570\u5206\u7e70\u308a\u8fd4\u3059\u3002\n        For i = lnContactCount To Cells(1, 1).End(xlDown).Row\n            Set olItem = olApp.CreateItem(olAppointmentItem)\n\n\n                \n                &#039;\u91cd\u8907\u30c1\u30a7\u30c3\u30af\uff06\u66f4\u65b0\u51e6\u7406\n                For Each olItemBefor In olConItems\n                    If TypeName(olItemBefor) = &quot;AppointmentItem&quot; Then\n                    \n                        &#039;ExcelI\u5217\u306eEntryID\u3068\u767b\u9332\u3055\u308c\u3066\u3044\u308bEntryID\u304c\u4e00\u81f4\u3057\u3066\u3044\u305f\u3089\u8a72\u5f53\u4e88\u5b9a\u8868\u3092\u66f4\u65b0\n                        If olItemBefor.EntryID = Cells(i, 9) Then\n                        \n                            &#039;\u6bd4\u8f03\u7528\u306b\u4e00\u6642\u7684\u306b\u4f5c\u6210\n                            With olItem\n                                .Subject = Cells(i, 1)\n                                .Start = Format(Cells(i, 3), &quot;yyyy\/mm\/dd hh:mm:ss&quot;)\n                                .End = Format(Cells(i, 4), &quot;yyyy\/mm\/dd hh:mm:ss&quot;)\n                            End With\n\n                        \n                            &#039;\u91cd\u8907\u30d5\u30e9\u30b01\u3092\u30bb\u30c3\u30c8\n                             checkFlg = 1\n                        \n                            &#039;\u767b\u9332\u3055\u308c\u3066\u3044\u308b\u4e88\u5b9a\u8868\u306e\u4ef6\u540d\u3068\u958b\u59cb\u65e5\u6642\u53ca\u3073\u7d42\u4e86\u65e5\u6642\u304c\u4e00\u81f4\u3057\u3066\u3044\u306a\u304b\u3063\u305f\u5834\u5408\u306e\u307f\u66f4\u65b0\n                            &#039;\u203b\u66f4\u65b0\u306e\u6761\u4ef6\u306f\u3054\u90fd\u5408\u306b\u5fdc\u3058\u3066\u5909\u66f4\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u3053\u306e\u6761\u4ef6\u304c\u7121\u3044\u5834\u5408\u306fExcel\u306e\u4e88\u5b9a\u8868\u3059\u3079\u3066\u66f4\u65b0\u3055\u308c\u307e\u3059\u306e\u3067\u3001\u3054\u6ce8\u610f\u304f\u3060\u3055\u3044\u3002\n                            If olItemBefor.Subject = olItem.Subject And olItemBefor.Start = olItem.Start And olItemBefor.End = olItem.End Then\n \n\n                            Else\n                                 With olItemBefor\n                                    .Subject = Cells(i, 1)\n                                    .Location = Cells(i, 2)\n                                    .Start = Format(Cells(i, 3), &quot;yyyy\/mm\/dd hh:mm:ss&quot;)\n                                    .End = Format(Cells(i, 4), &quot;yyyy\/mm\/dd hh:mm:ss&quot;)\n                                    .Body = Cells(i, 5)\n                                    .RequiredAttendees = Cells(i, 6)\n                                    .OptionalAttendees = Cells(i, 7)\n                                    .Save\n                                End With\n                            End If\n                            \n                                &#039;Null out the variables.\n                                Set olItem = Nothing\n                            \n                        End If\n                    \n\n                    End If\n                    \n                Next\n\n                If checkFlg &lt;&gt; 1 Then\n                    &#039;ExcelI\u5217\u306eEntryID\u3068\u767b\u9332\u3055\u308c\u3066\u3044\u308bEntryID\u304c\u4e00\u81f4\u3057\u3066\u3044\u306a\u304b\u3063\u305f\u3089\u65b0\u898f\u767b\u9332\n                    With olItem\n        \n                        .Subject = Cells(i, 1)\n                        .Location = Cells(i, 2)\n                        .Start = Format(Cells(i, 3), &quot;yyyy\/mm\/dd hh:mm:ss&quot;)\n                        .End = Format(Cells(i, 4), &quot;yyyy\/mm\/dd hh:mm:ss&quot;)\n                        .Body = Cells(i, 5)\n                        .RequiredAttendees = Cells(i, 6)\n                        .OptionalAttendees = Cells(i, 7)\n                        .Save\n                   End With\n\n                   &#039;ExcelI\u5217\u3078\u767a\u884c\u3055\u308c\u305fEntryID\u3092\u66f8\u304d\u8fbc\u307f\n                   Cells(i, 9) = olItem.EntryID\n                    \n                End If\n\n            \n            &#039;\u91cd\u8907\u30d5\u30e9\u30b0\u30ea\u30bb\u30c3\u30c8\n            checkFlg = 0\n\n        Next\n    \n    Else\n        MsgBox &quot;\u51e6\u7406\u3092\u4e2d\u65ad\u3057\u307e\u3059&quot;\n        Exit Sub\n    End If\n    \n    &#039;Null out the variables.\n    Set olItem = Nothing\n    Set olApp = Nothing\n    \n            \n    &#039;Turn screen updating back on.\n    Application.ScreenUpdating = True\n    \n    MsgBox &quot;Outlook\u4e88\u5b9a\u8868\u306e\u767b\u9332\u304c\u5b8c\u4e86\u3057\u307e\u3057\u305f\uff01&quot;, vbInformation\n    \nEnd Sub\n<\/code><\/pre>\n<p><!--\u5439\u304d\u51fa\u3057\u306f\u3058\u307e\u308a--><\/p>\n<div class=\"balloon5\">\n<div class=\"faceicon\">\n<img loading=\"lazy\" decoding=\"async\" src=\"\/wp-content\/uploads\/2020\/11\/taka_kao.gif\" alt=\"\u30bf\u30ab\u30d2\u30ed\" width=\"110\" height=\"110\" \/>\n<div class=\"faceiconfont\">\u30bf\u30ab\u30d2\u30ed<\/div>\n<\/div>\n<div class=\"chatting\">\n<div class=\"says\">\n<p>\u8907\u6570\u30e6\u30fc\u30b6\u3067\u767b\u9332\u3059\u308b\u5834\u5408\u306f\u4e88\u5b9aID\uff08EntryID\uff09\u304c\u91cd\u8907\u3057\u305f\u308a\u66f4\u65b0\u3055\u308c\u307e\u3059\u306e\u3067\u30011\u30e6\u30fc\u30b6\u306e\u307f\u3067\u5229\u7528\u3059\u308b\u3088\u3046\u304a\u9858\u3044\u3057\u307e\u3059\u3002<\/p>\n<\/div>\n<\/div>\n<\/div>\n<p><!--\u5439\u304d\u51fa\u3057\u7d42\u308f\u308a--><\/p>\n<p><script><\/p>\n<p><\/script><\/p>\n<p style=\"text-align: right;\"><strong><a href=\"https:\/\/extan.jp\/?p=1693&amp;page=2\">\uff1e\uff1e\u7d9a\u3044\u3066\u3001\u4e88\u5b9a\u767b\u9332\u51e6\u7406\u306e\u9ad8\u901f\u7248\u3001\u7d42\u65e5\u4e88\u5b9a\u306e\u767b\u9332\u65b9\u6cd5\u306b\u3064\u3044\u3066\u8aac\u660e\u3057\u307e\u3059\uff01<\/a><\/strong><\/p>\n<p><!--nextpage--><\/p>\n<p><script><\/p>\n<p><\/script><\/p>\n<h2>\u3010\u8ffd\u52a0\u3011\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u66f4\u65b0\u51e6\u7406&lt;\u9ad8\u901f\u7248&gt;<\/h2>\n<p>Excel\u304b\u3089\u4e88\u5b9a\u8868\u306e\u66f4\u65b0\u3092\u884c\u3046\u51e6\u7406\u306b2~3\u5206\u6642\u9593\u304c\u304b\u304b\u3063\u3066\u3057\u307e\u3046\u3068\u306e\u3054\u610f\u898b\u304c\u3042\u308a\u307e\u3057\u305f\u306e\u3067\u3001<br \/>\n\u51e6\u7406\u65b9\u6cd5\u3092\u898b\u76f4\u3057\u305f<strong>\u9ad8\u901f\u7248<\/strong>\u3092\u516c\u958b\u3057\u307e\u3059\u3002<\/p>\n<p>\u4eca\u307e\u3067\u306f\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u5168\u4ef6\u306eID\u3092\u30c1\u30a7\u30c3\u30af\u3057\u3066\u3044\u307e\u3057\u305f\u306e\u3067\u3001Outlook\u5229\u7528\u6b74\u304c\u9577\u3044\u65b9\u3084\u5bc6\u306b\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092\u5165\u308c\u3066\u3044\u308b\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u7dcf\u6570\u304c\u591a\u3044\u65b9\u306f\u51e6\u7406\u6642\u9593\u304c\u3069\u3046\u3057\u3066\u3082\u304b\u304b\u3063\u3066\u3057\u307e\u3044\u307e\u3059\u3002<\/p>\n<p>\u305d\u3053\u3067ID\u3092\u30c1\u30a7\u30c3\u30af\u3059\u308b\u7bc4\u56f2\u3092\u671f\u9593\u3067\u7d5e\u308a\u8fbc\u307f\u3001\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u6570\u3092\u5c11\u306a\u304f\u3059\u308b\u3053\u3068\u306b\u3088\u3063\u3066\u3001\u51e6\u7406\u3092\u8efd\u6e1b\u3055\u305b\u3066\u3044\u304d\u307e\u3059\u3002<\/p>\n<p><!--\u5439\u304d\u51fa\u3057\u306f\u3058\u307e\u308a--><\/p>\n<div class=\"balloon5\">\n<div class=\"faceicon\">\n<img loading=\"lazy\" decoding=\"async\" src=\"\/wp-content\/uploads\/2020\/11\/taka_kao.gif\" alt=\"\u30bf\u30ab\u30d2\u30ed\" width=\"110\" height=\"110\" \/>\n<div class=\"faceiconfont\">\u30bf\u30ab\u30d2\u30ed<\/div>\n<\/div>\n<div class=\"chatting\">\n<div class=\"says\">\u591a\u5fd9\u306a\u65b9\u307b\u3069\u51e6\u7406\u6642\u9593\u304c\u9577\u304f\u306a\u3063\u3066\u3057\u307e\u3046\u3068\u3044\u3046\u3053\u3068\u3067\u30a8\u30af\u77ed\u7684\u306b\u6539\u5584\u5fc5\u9808\u3067\u3057\u305f\u306d&#8230;<\/div>\n<\/div>\n<\/div>\n<p><!--\u5439\u304d\u51fa\u3057\u7d42\u308f\u308a--><\/p>\n<p>VBA\u306f\u4ee5\u4e0b\u306e\u901a\u308a\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<pre style=\"padding: 0;\"><code class=\"language-visual-basic line-numbers\">Sub Outlook\u306e\u4e88\u5b9a\u8868\u3078\u767b\u9332\u3059\u308b_\u9ad8\u901f\u7248()\n\n    &#039;Outlook\u7528\u306e\u5b9a\u7fa9\n    Dim olApp As Outlook.Application\n    Dim olNamespace As Outlook.Namespace\n    Dim olFolder As Folder\n    Dim olConItems As Outlook.Items\n    Dim olItem  As AppointmentItem\n    Dim olItemBefor As AppointmentItem\n    Dim checkFlg As Long\n    \n    &#039;\u91cd\u8907\u30c1\u30a7\u30c3\u30af\u30d5\u30e9\u30b0\u521d\u671f\u5024\u8a2d\u5b9a\n    checkFlg = 0\n\n    &#039;Excel\u7528\u306e\u5b9a\u7fa9\n    Dim wbBook As Workbook\n    Dim wsSheet As Worksheet\n    Dim lnContactCount As Long\n    Dim i As Long\n    \n    &#039;\u62bd\u51fa\u671f\u9593\u306e\u5b9a\u7fa9\n    Dim strStart As String\n    Dim strEnd As String\n    Dim intKikan As Integer\n    \n    \n    &#039;\u5bfe\u8c61\u4e88\u5b9a\u8868\u306e\u62bd\u51fa\u671f\u9593\u3092\u6708\u5358\u4f4d\u3067\u6307\u5b9a\u3057\u307e\u3059\u3002\n    &#039;\u203b\u62bd\u51fa\u671f\u9593\u304c\u77ed\u3044\u3068\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u306e\u30c1\u30a7\u30c3\u30af\u304c\u3067\u304d\u305a\u767b\u9332\u3067\u304d\u306a\u3044\u5834\u5408\u304c\u3042\u308a\u307e\u3059\u306e\u3067\u6ce8\u610f\u3057\u3066\u304f\u3060\u3055\u3044\uff61\n    intKikan = 12  &#039;\u62bd\u51fa\u671f\u9593\u309212\u304b\u6708\u306b\u3057\u3066\u3044\u307e\u3059\u3002\n    \n    strStart = Format(DateAdd(&quot;m&quot;, -intKikan, Date), &quot;yyyy\/mm\/dd&quot;) &#039;\u62bd\u51fa\u3059\u308b\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u306e\u958b\u59cb\u65e5\u3092\u6307\u5b9a\n    strEnd = Format(DateAdd(&quot;m&quot;, intKikan, Date), &quot;yyyy\/mm\/dd&quot;) &#039;\u62bd\u51fa\u3059\u308b\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u306e\u7d42\u4e86\u65e5\u3092\u6307\u5b9a\n    \n    \n    &#039;\u30b9\u30af\u30ea\u30fc\u30f3\u306e\u66f4\u65b0\u306f\u884c\u308f\u308c\u307e\u305b\u3093\u3002\n    Application.ScreenUpdating = False\n    \n    &#039;Excel\u306e\u30d6\u30c3\u30af\u3068\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002\n    Set wbBook = ThisWorkbook\n    Set wsSheet = wbBook.Worksheets(1)\n    \n    wsSheet.Activate\n    \n    &#039;Outlook\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u8a2d\u5b9a\u3057\u3001MAPI\u540d\u524d\u7a7a\u9593\u3092\u4ecb\u3057\u3066Outlook\u306e\u4e88\u5b9a\u8868\u3092\u53d6\u5f97\u3057\u307e\u3059\u3002\n    Set olApp = New Outlook.Application\n    Set olNamespace = olApp.GetNamespace(&quot;MAPI&quot;)\n    Set olFolder = olNamespace.GetDefaultFolder(olFolderCalendar)\n    Set olConItems = olFolder.Items\n\n    &#039;Restrict\u30e1\u30bd\u30c3\u30c9\u3067\u671f\u9593\u6307\u5b9a\u3057\u3066\u62bd\u51fa\u3059\u308b\u30e1\u30fc\u30eb\u30a2\u30a4\u30c6\u30e0\u3092\u7d5e\u308a\u8fbc\u3080\n    Set olConItems = olConItems.Restrict(&quot;[Start] &gt;= &#039;&quot; &amp; strStart &amp; &quot;&#039; And [End] &lt; &#039;&quot; &amp; strEnd &amp; &quot;&#039;&quot;)\n\n\n    &#039;\u53d6\u5f97\u7d50\u679c\u3092\u8a18\u8ff0\u3059\u308b\u884c\u756a\u53f7\u3092\u6307\u5b9a\u3057\u307e\u3059\u30022\u884c\u76ee\u306e\u30bb\u30eb\u304b\u3089\u958b\u59cb\u3055\u308c\u308b\u3053\u3068\u306b\u306a\u308a\u307e\u3059\u3002\n    lnContactCount = 2\n\n    Dim rc As Integer\n    rc = MsgBox(&quot;\u4e88\u5b9a\u8868\u3078\u767b\u9332\u3057\u307e\u3059\u304b\uff1f&quot;, vbYesNo + vbQuestion, &quot;\u78ba\u8a8d&quot;)\n    \n    If rc = vbYes Then\n    \n        &#039;\u4e88\u5b9a\u8868\u4e00\u89a7\u306e\u4ef6\u6570\u5206\u7e70\u308a\u8fd4\u3059\u3002\n        For i = lnContactCount To Cells(1, 1).End(xlDown).Row\n            Set olItem = olApp.CreateItem(olAppointmentItem)\n\n            &#039;\u91cd\u8907\u30c1\u30a7\u30c3\u30af\uff06\u66f4\u65b0\u51e6\u7406\n            For Each olItemBefor In olConItems\n                If TypeName(olItemBefor) = &quot;AppointmentItem&quot; Then\n                \n                    &#039;ExcelI\u5217\u306eEntryID\u3068\u767b\u9332\u3055\u308c\u3066\u3044\u308bEntryID\u304c\u4e00\u81f4\u3057\u3066\u3044\u305f\u3089\u8a72\u5f53\u4e88\u5b9a\u8868\u3092\u66f4\u65b0\n                    If olItemBefor.EntryID = Cells(i, 9) Then\n                    \n                        &#039;\u6bd4\u8f03\u7528\u306b\u4e00\u6642\u7684\u306b\u4f5c\u6210\n                        With olItem\n                            .Subject = Cells(i, 1)\n                            .Start = Format(Cells(i, 3), &quot;yyyy\/mm\/dd hh:mm:ss&quot;)\n                            .End = Format(Cells(i, 4), &quot;yyyy\/mm\/dd hh:mm:ss&quot;)\n                        End With\n    \n                    \n                        &#039;\u91cd\u8907\u30d5\u30e9\u30b01\u3092\u30bb\u30c3\u30c8\n                         checkFlg = 1\n                    \n                        &#039;\u767b\u9332\u3055\u308c\u3066\u3044\u308b\u4e88\u5b9a\u8868\u306e\u4ef6\u540d\u3068\u958b\u59cb\u65e5\u6642\u53ca\u3073\u7d42\u4e86\u65e5\u6642\u304c\u4e00\u81f4\u3057\u3066\u3044\u306a\u304b\u3063\u305f\u5834\u5408\u306e\u307f\u66f4\u65b0\n                        &#039;\u203b\u66f4\u65b0\u306e\u6761\u4ef6\u306f\u3054\u90fd\u5408\u306b\u5fdc\u3058\u3066\u5909\u66f4\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u3053\u306e\u6761\u4ef6\u304c\u7121\u3044\u5834\u5408\u306fExcel\u306e\u4e88\u5b9a\u8868\u3059\u3079\u3066\u66f4\u65b0\u3055\u308c\u307e\u3059\u306e\u3067\u3001\u3054\u6ce8\u610f\u304f\u3060\u3055\u3044\u3002\n                        If olItemBefor.Subject = olItem.Subject And olItemBefor.Start = olItem.Start And olItemBefor.End = olItem.End Then\n    \n    \n                        Else\n\n                            &#039;\u5b9a\u671f\u30a2\u30a4\u30c6\u30e0\u306f\u9664\u5916\u3057\u307e\u3059\u3002\n                            If Not olItemBefor.IsRecurring Then\n                                 With olItemBefor\n                                    .Subject = Cells(i, 1)\n                                    .Location = Cells(i, 2)\n                                    .Start = Format(Cells(i, 3), &quot;yyyy\/mm\/dd hh:mm:ss&quot;)\n                                    .End = Format(Cells(i, 4), &quot;yyyy\/mm\/dd hh:mm:ss&quot;)\n                                    .Body = Cells(i, 5)\n                                    .RequiredAttendees = Cells(i, 6)\n                                    .OptionalAttendees = Cells(i, 7)\n                                    .Save\n                                End With\n                            End If\n                        End If\n                        \n                        &#039;Null out the variables.\n                        Set olItem = Nothing\n                        \n                    End If\n                End If\n            Next\n            &#039;EntryID\u304c\u7a7a\u3067\u3042\u308b\u5834\u5408\u306e\u307f\u65b0\u898f\u767b\u9332\u3092\u3059\u308b\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002\n            If checkFlg &lt;&gt; 1 And Cells(i, 9) = &quot;&quot; Then\n                With olItem\n                    .Subject = Cells(i, 1)\n                    .Location = Cells(i, 2)\n                    .Start = Format(Cells(i, 3), &quot;yyyy\/mm\/dd hh:mm:ss&quot;)\n                    .End = Format(Cells(i, 4), &quot;yyyy\/mm\/dd hh:mm:ss&quot;)\n                    .Body = Cells(i, 5)\n                    .RequiredAttendees = Cells(i, 6)\n                    .OptionalAttendees = Cells(i, 7)\n                    .Save\n               End With\n    \n               &#039;ExcelI\u5217\u3078\u767a\u884c\u3055\u308c\u305fEntryID\u3092\u66f8\u304d\u8fbc\u307f\n               Cells(i, 9) = olItem.EntryID\n                \n            End If\n    \n        \n        &#039;\u91cd\u8907\u30d5\u30e9\u30b0\u30ea\u30bb\u30c3\u30c8\n        checkFlg = 0\n    \n    Next\n    \n    Else\n        MsgBox &quot;\u51e6\u7406\u3092\u4e2d\u65ad\u3057\u307e\u3059&quot;\n        Exit Sub\n    End If\n    \n    &#039;Null out the variables.\n    Set olItem = Nothing\n    Set olApp = Nothing\n    Set wbBook = Nothing\n    Set wsSheet = Nothing\n    Set olNamespace = Nothing\n    Set olFolder = Nothing\n    Set olConItems = Nothing\n\n            \n    &#039;Turn screen updating back on.\n    Application.ScreenUpdating = True\n    \n    MsgBox &quot;Outlook\u4e88\u5b9a\u8868\u306e\u767b\u9332\u304c\u5b8c\u4e86\u3057\u307e\u3057\u305f\uff01&quot;, vbInformation\n    \nEnd Sub\n<\/code><\/pre>\n<p>\u8a2d\u5b9a\u3057\u3066\u3082\u3089\u3044\u305f\u3044\u7b87\u6240\u306f\u4ee5\u4e0b\u306e\u6570\u5024\u306e\u7b87\u6240\u3067\u3059\u3002<\/p>\n<p>\u3053\u3053\u3067\u306f\u5bfe\u8c61\u4e88\u5b9a\u8868\u306e\u62bd\u51fa\u671f\u9593\u3092\u6708\u5358\u4f4d\u3067\u6307\u5b9a\u3057\u307e\u3059\u3002<br \/>\n<strong>intKikan =<span style=\"color: #ff0000;\"> 12 <\/span><\/strong><\/p>\n<p>\u30b5\u30f3\u30d7\u30eb\u3067\u306f\u62bd\u51fa\u671f\u9593\u3092<strong>12\u304b\u6708<\/strong>\u306b\u8a2d\u5b9a\u3057\u3066\u3044\u308b\u3068\u3044\u3046\u610f\u5473\u3068\u306a\u308a\u3001<br \/>\n\u3053\u306e\u5834\u5408\u300112\u304b\u6708\u524d\u304b\u308912\u304b\u6708\u5f8c\u306e\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u304c\u5bfe\u8c61\u3068\u306a\u308b\u308f\u3051\u3067\u3059\u3002<\/p>\n[\u62bd\u51fa\u958b\u59cb]\uff1c&#8212;-12\u304b\u6708\u9593&#8212;-\uff1e[\u73fe\u5728]\uff1c&#8212;&#8211;12\u304b\u6708\u9593&#8212;-\uff1e[\u62bd\u51fa\u7d42\u4e86]\n<p>\u3053\u308c\u307e\u3067\u306fOutlook\u306e\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u304c\u3042\u308b\u671f\u9593\u5206\u53d6\u5f97\u3057\u3066\u3044\u307e\u3057\u305f\u306e\u3067\u3001<\/p>\n<p>\u4eba\u306b\u3088\u3063\u3066\u306f\u81a8\u5927\u306a\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u6570\u306b\u306a\u3063\u3066\u3057\u307e\u3046\u308f\u3051\u3067\u3059\u304c\u3001<\/p>\n<p>\u671f\u9593\u6307\u5b9a\u306b\u3088\u308a\u671f\u9593\u5916\u306e\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u306f\u9664\u5916\u3055\u308c\u308b\u306e\u3067\u3001\u5bfe\u8c61\u4e88\u5b9a\u30a2\u30a4\u30c6\u30e0\u6570\u304c\u7d5e\u3089\u308c\u308b\u3068\u3044\u3046\u4ed5\u7d44\u307f\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<p><!--\u5439\u304d\u51fa\u3057\u306f\u3058\u307e\u308a--><\/p>\n<div class=\"balloon5\">\n<div class=\"faceicon\">\n<img loading=\"lazy\" decoding=\"async\" src=\"\/wp-content\/uploads\/2020\/11\/taka_kao.gif\" alt=\"\u30bf\u30ab\u30d2\u30ed\" width=\"110\" height=\"110\" \/>\n<div class=\"faceiconfont\">\u30bf\u30ab\u30d2\u30ed<\/div>\n<\/div>\n<div class=\"chatting\">\n<div class=\"says\">\u3053\u3061\u3089\u306e\u74b0\u5883\u3067\u691c\u8a3c\u3057\u305f\u3068\u3053\u308d\u300112\u304b\u6708\u6307\u5b9a\u30671\u5206\u30016\u304b\u6708\u6307\u5b9a\u3067\u6570\u5341\u79d2\u30011\u304b\u6708\u6307\u5b9a\u3060\u3068\u4e00\u77ac\u3067\u5b8c\u4e86\u3057\u307e\u3059\u3002Outlook\u5229\u7528\u6b74\u306e\u9577\u3044\u65b9\u307b\u3069\u52b9\u679c\u304c\u3067\u308b\u3068\u601d\u3044\u307e\u3059\u3002<\/div>\n<\/div>\n<\/div>\n<p><!--\u5439\u304d\u51fa\u3057\u7d42\u308f\u308a--><\/p>\n<p>\u306a\u304a\u3001\u671f\u9593\u3092\u77ed\u304f\u3059\u308c\u3070\u3059\u308b\u307b\u3069\u6bd4\u4f8b\u3057\u3066\u51e6\u7406\u6642\u9593\u3082\u77ed\u304f\u306a\u308a\u307e\u3059\u304c\u3001<br \/>\n\u305d\u306e\u5206<strong>\u66f4\u65b0\u6f0f\u308c\u306e\u30ea\u30b9\u30af\u304c\u751f\u3058\u307e\u3059\u306e\u3067\u3054\u6ce8\u610f\u304f\u3060\u3055\u3044\u3002<\/strong><\/p>\n<p><script><\/p>\n<p><\/script><\/p>\n<h2>\u3010\u8ffd\u52a0\u3011\u4e88\u5b9a\u8868\u306e\u516c\u958b\u65b9\u6cd5\u3092\u6307\u5b9a\u3059\u308bVBA<\/h2>\n<p>\u8aad\u8005\u306e\u65b9\u304b\u3089\u4e88\u5b9a\u8868\u306e\u516c\u958b\u65b9\u6cd5\u3092\u6307\u5b9a\u3059\u308b\u8cea\u554f\u304c\u3042\u308a\u307e\u3057\u305f\u306e\u3067\u3001\u8ffd\u8a18\u81f4\u3057\u307e\u3059\u3002<\/p>\n<p>\u4e88\u5b9a\u767b\u9332\u6642\u306b\u4e88\u5b9a\u306e\u516c\u958b\u65b9\u6cd5\u3092\u5408\u308f\u305b\u3066\u6307\u5b9a\u3059\u308b\u5834\u5408\u306f\u3001<br \/>\nBusyStatus\u30d7\u30ed\u30d1\u30c6\u30a3\u3078\u4ee5\u4e0b\u306e\u5024\u3092\u6307\u5b9a\u3059\u308b\u3053\u3068\u3067\u5bfe\u5fdc\u53ef\u80fd\u3067\u3059\u3002<\/p>\n<table width=\"482\">\n<tbody>\n<tr>\n<td width=\"147\">\u540d\u524d<\/td>\n<td width=\"139\">\u5024<\/td>\n<td width=\"196\">\u8aac\u660e<\/td>\n<\/tr>\n<tr>\n<td width=\"147\">olBusy<\/td>\n<td width=\"139\">2<\/td>\n<td width=\"196\">\u4e88\u5b9a\u3042\u308a<\/td>\n<\/tr>\n<tr>\n<td width=\"147\">olFree<\/td>\n<td width=\"139\">0<\/td>\n<td width=\"196\">\u4e88\u5b9a\u306a\u3057<\/td>\n<\/tr>\n<tr>\n<td width=\"147\">olOutOfOffice<\/td>\n<td width=\"139\">3<\/td>\n<td width=\"196\">\u5916\u51fa\u4e2d<\/td>\n<\/tr>\n<tr>\n<td width=\"147\">olTentative<\/td>\n<td width=\"139\">1<\/td>\n<td width=\"196\">\u4eee\u306e\u4e88\u5b9a\u3042\u308a<\/td>\n<\/tr>\n<tr>\n<td width=\"147\">olWorkingElsewhere<\/td>\n<td width=\"139\">4<\/td>\n<td width=\"196\">\u30ea\u30e2\u30fc\u30c8<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<p>Excel\u30b7\u30fc\u30c8\u3078\u5024\u3092\u6307\u5b9a\u3057\u3001VBA\u3078\u6e21\u3059\u5834\u5408\u306f\u3001<br \/>\n\u4f8b\u3048\u3070L\u5217\u3092\u300c\u4e88\u5b9a\u306e\u516c\u958b\u65b9\u6cd5\u300d\u3068\u3057\u305f\u5834\u5408\u306f\u3001<br \/>\nL1\u30bb\u30eb\u306b\u30bf\u30a4\u30c8\u30eb\u540d\u3001L2\u4ee5\u964d\u306b\u4e0a\u8a18\u8868\u306e\u5024\u306e\u6570\u5b57\u304b\u540d\u524d\u3092\u5165\u529b\u3057\u307e\u3059\u3002<br \/>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-4521\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2021\/06\/062621_1548_temp1.png\" alt=\"\" width=\"851\" height=\"112\" \/><\/p>\n<p>VBA\u5074\u3067\u306f\u5404\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3078\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u6307\u5b9a\u3059\u308b\u7b87\u6240\u306b\u4ee5\u4e0b\u3092\u8ffd\u52a0\u3057\u307e\u3059\u3002<\/p>\n<div class=\"info\">.BusyStatus = Cells(i, 12)<\/div>\n<p>\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9\u4e2d\u3067\u306f\u4ee5\u4e0b\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e2\u304b\u6240\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<div class=\"info\">With olItemBefor<br \/>\nWith olItem<\/div>\n<p>\u5b9f\u884c\u3057\u3066\u307f\u307e\u3057\u3087\u3046\u3002<\/p>\n<p>\u5024\u3092\u300c\u5916\u51fa\u4e2d\u300d\u306e3\u306b\u6307\u5b9a\u3057\u3066\u307f\u307e\u3057\u305f\u304c\u3001\u4e88\u5b9a\u8868\u3092\u307f\u307e\u3059\u3068&#8230;<\/p>\n<p>\u306f\u3044\u3001\u300c\u4e88\u5b9a\u306e\u516c\u958b\u65b9\u6cd5\u300d\u304c\u6307\u5b9a\u901a\u308a\u3067\u3059\u306d\u3002<br \/>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-4522\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2021\/06\/062621_1548_temp2.png\" alt=\"\" width=\"535\" height=\"263\" \/><\/p>\n<p><script><\/p>\n<p><\/script><\/p>\n<h2>\u3010\u8ffd\u52a0\u3011\u7d42\u65e5\u306e\u4e88\u5b9a\u3092\u767b\u9332\u3059\u308b<\/h2>\n<p>\u8aad\u8005\u306e\u65b9\u304b\u3089\u306e\u3054\u8981\u671b\u306b\u3088\u308a\u6642\u9593\u6307\u5b9a\u306e\u4e88\u5b9a\u4ee5\u5916\u306b\u7d42\u65e5\u306e\u4e88\u5b9a\u306e\u767b\u9332\u65b9\u6cd5\u306b\u3064\u3044\u3066\u8a18\u8f09\u3044\u305f\u3057\u307e\u3057\u305f\u306e\u3067\u3001<br \/>\n\u7d42\u65e5\u306e\u4e88\u5b9a\u3082\u4f75\u305b\u3066\u767b\u9332\u3055\u308c\u305f\u3044\u65b9\u306f\u3053\u3061\u3089\u3092\u3054\u53c2\u7167\u304f\u3060\u3055\u3044\u3002<\/p>\n<blockquote class=\"wp-embedded-content\" data-secret=\"t7ErRKBEtM\"><p><a href=\"https:\/\/extan.jp\/?p=4375\">\u3010VBA\u3011Excel \u304b\u3089Outlook\u3078\u7d42\u65e5\u306e\u4e88\u5b9a\u3092\u767b\u9332\u3059\u308b\u65b9\u6cd5\uff01\u8907\u6570\u65e5\u6307\u5b9a\u3082\uff01<\/a><\/p><\/blockquote>\n<p><iframe loading=\"lazy\" class=\"wp-embedded-content\" sandbox=\"allow-scripts\" security=\"restricted\" style=\"position: absolute; visibility: hidden;\" title=\"&#8220;\u3010VBA\u3011Excel \u304b\u3089Outlook\u3078\u7d42\u65e5\u306e\u4e88\u5b9a\u3092\u767b\u9332\u3059\u308b\u65b9\u6cd5\uff01\u8907\u6570\u65e5\u6307\u5b9a\u3082\uff01&#8221; &#8212; \u30a8\u30af\u77ed\uff5cExtan.jp\" src=\"https:\/\/extan.jp\/?p=4375&#038;embed=true#?secret=sAwYbzJJ79#?secret=t7ErRKBEtM\" data-secret=\"t7ErRKBEtM\" width=\"600\" height=\"338\" frameborder=\"0\" marginwidth=\"0\" marginheight=\"0\" scrolling=\"no\"><\/iframe><\/p>\n<p>&nbsp;<\/p>\n<p><script><\/p>\n<p><\/script><\/p>\n<h2>\u3055\u3044\u3054\u306b<\/h2>\n<p>\u3044\u304b\u304c\u3067\u3057\u3087\u3046\u304b\u3002<br \/>\nOutlook\u306e\u64cd\u4f5c\u306f\u624b\u4f5c\u696d\u304c\u591a\u3044\u3067\u3059\u304b\u3089\u306a\u308b\u3079\u304f\u81ea\u52d5\u5316\u3057\u3066\u52b9\u7387\u5316\u3092\u56f3\u308a\u305f\u3044\u3067\u3059\u306d\u3002<\/p>\n<p><a title=\"\u3010VBA\u3011Excel\u304b\u3089Outlook\u306e\u8ffd\u52a0\u3057\u305f\u4e88\u5b9a\u8868\u3078\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092\u767b\u9332\u3059\u308b\" href=\"https:\/\/extan.jp\/?p=3341\">\u3010VBA\u3011Excel\u304b\u3089Outlook\u306e\u8ffd\u52a0\u3057\u305f\u4e88\u5b9a\u8868\u3078\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092\u767b\u9332\u3059\u308b<\/a><\/p>\n<p><a title=\"Excel\u306e\u4e88\u5b9a\u4e00\u89a7\u304b\u3089\u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u3092\u767b\u9332\u3001\u7de8\u96c6\u3059\u308b\u65b9\u6cd5\" href=\"https:\/\/extan.jp\/?p=2275\">Excel\u306e\u4e88\u5b9a\u4e00\u89a7\u304b\u3089\u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u3092\u767b\u9332\u3001\u7de8\u96c6\u3059\u308b\u65b9\u6cd5<\/a><\/p>\n<p><a title=\"\u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u3092Excel\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5\" href=\"https:\/\/extan.jp\/?p=2243\">\u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u3092Excel\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5<\/a><\/p>\n<p><a title=\"\u3010Excel VBA\u3011\u5148\u6708\u3001\u4eca\u6708\u3001\u7fcc\u6708\u5206\u306eOutlook\u4e88\u5b9a\u8868\u30c7\u30fc\u30bf\u3092\u30ef\u30f3\u30af\u30ea\u30c3\u30af\u3067\u53d6\u308a\u8fbc\u3080\" href=\"https:\/\/extan.jp\/?p=2421\">\u3010Excel VBA\u3011\u5148\u6708\u3001\u4eca\u6708\u3001\u7fcc\u6708\u5206\u306eOutlook\u4e88\u5b9a\u8868\u30c7\u30fc\u30bf\u3092\u30ef\u30f3\u30af\u30ea\u30c3\u30af\u3067\u53d6\u308a\u8fbc\u3080<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Outlook\u306e\u4e88\u5b9a\u8868\u3067\u4e88\u5b9a\u3092\u767b\u9332\u3059\u308b\u6a5f\u4f1a\u306f\u591a\u3044\u304b\u3068\u601d\u3044\u307e\u3059\u3002 \u305d\u3093\u306a\u4e2d\u3067\u3042\u3063\u305f\u3089\u3044\u3044\u306a\u3068\u601d\u3046\u3053\u3068\u306f\u3001 \u30fbOutlook\u4e88\u5b9a\u8868\u3078\u4e00\u62ec\u3067\u4e88\u5b9a\u3092\u767b\u9332\u3059\u308b\u65b9\u6cd5\u306f\u306a\u3044\uff1f \u30fbExcel\u306b\u307e\u3068\u3081\u305f\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092Outlook\u3078\u4e00\u62ec\u767b&#8230;<\/p>\n","protected":false},"author":1,"featured_media":1707,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6,7],"tags":[16],"class_list":{"0":"post-1693","1":"post","2":"type-post","3":"status-publish","4":"format-standard","5":"has-post-thumbnail","7":"category-excelvba","8":"category-exceloutlook","9":"tag-16","10":"article cf"},"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v18.1 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<meta name=\"description\" content=\"\u30fbExcel\u306b\u307e\u3068\u3081\u305f\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u4e00\u89a7\u3092Outlook\u4e88\u5b9a\u8868\u3078\u4e00\u62ec\u767b\u9332\u3059\u308b\u65b9\u6cd5\u30fbExcel\u304b\u3089Outlook\u4e88\u5b9a\u8868\u306e\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092\u5909\u66f4\u3059\u308b\u65b9\u6cd5\u30fbExcel\u304b\u3089Outlook\u4e88\u5b9a\u8868\u3078\u7d42\u65e5\u306e\u4e88\u5b9a\u3092\u767b\u9332\u3059\u308b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u307e\u3068\u3081\u307e\u3059\u3002\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/extan.jp\/?p=1693\" \/>\n<link rel=\"next\" href=\"https:\/\/extan.jp\/?p=1693&#038;page=2\" \/>\n<meta property=\"og:locale\" content=\"ja_JP\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"\u3010VBA\u3011\u4e00\u77ac\u3067Excel\u306e\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092Outlook\u306e\u4e88\u5b9a\u8868\u3078\u767b\u9332\/\u5909\u66f4\u3059\u308b\u65b9\u6cd5 - \u30a8\u30af\u77ed\uff5cExtan.jp\" \/>\n<meta property=\"og:description\" content=\"\u30fbExcel\u306b\u307e\u3068\u3081\u305f\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u4e00\u89a7\u3092Outlook\u4e88\u5b9a\u8868\u3078\u4e00\u62ec\u767b\u9332\u3059\u308b\u65b9\u6cd5\u30fbExcel\u304b\u3089Outlook\u4e88\u5b9a\u8868\u306e\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092\u5909\u66f4\u3059\u308b\u65b9\u6cd5\u30fbExcel\u304b\u3089Outlook\u4e88\u5b9a\u8868\u3078\u7d42\u65e5\u306e\u4e88\u5b9a\u3092\u767b\u9332\u3059\u308b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u307e\u3068\u3081\u307e\u3059\u3002\" \/>\n<meta property=\"og:url\" content=\"https:\/\/extan.jp\/?p=1693\" \/>\n<meta property=\"og:site_name\" content=\"\u30a8\u30af\u77ed\uff5cExtan.jp\" \/>\n<meta property=\"article:published_time\" content=\"2021-06-19T11:04:13+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2024-01-13T15:22:43+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/extan.jp\/wp-content\/uploads\/2019\/09\/092519_1447_temp21.png\" \/>\n\t<meta property=\"og:image:width\" content=\"1779\" \/>\n\t<meta property=\"og:image:height\" content=\"833\" \/>\n\t<meta property=\"og:image:type\" content=\"image\/png\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"\u57f7\u7b46\u8005\" \/>\n\t<meta name=\"twitter:data1\" content=\"\u30bf\u30ab\u30d2\u30ed@extan\" \/>\n\t<meta name=\"twitter:label2\" content=\"\u63a8\u5b9a\u8aad\u307f\u53d6\u308a\u6642\u9593\" \/>\n\t<meta name=\"twitter:data2\" content=\"10\u5206\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebSite\",\"@id\":\"https:\/\/extan.jp\/#website\",\"url\":\"https:\/\/extan.jp\/\",\"name\":\"\u30a8\u30af\u77ed\uff5cExtan.jp\",\"description\":\"\u50cd\u304f\u4eba\u306e\u81ea\u7531\u6642\u9593\u3092\u3064\u304f\u308b\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/extan.jp\/?s={search_term_string}\"},\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"ja\"},{\"@type\":\"ImageObject\",\"@id\":\"https:\/\/extan.jp\/?p=1693#primaryimage\",\"inLanguage\":\"ja\",\"url\":\"https:\/\/extan.jp\/wp-content\/uploads\/2019\/09\/092519_1447_temp21.png\",\"contentUrl\":\"https:\/\/extan.jp\/wp-content\/uploads\/2019\/09\/092519_1447_temp21.png\",\"width\":1779,\"height\":833},{\"@type\":\"WebPage\",\"@id\":\"https:\/\/extan.jp\/?p=1693#webpage\",\"url\":\"https:\/\/extan.jp\/?p=1693\",\"name\":\"\u3010VBA\u3011\u4e00\u77ac\u3067Excel\u306e\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092Outlook\u306e\u4e88\u5b9a\u8868\u3078\u767b\u9332\/\u5909\u66f4\u3059\u308b\u65b9\u6cd5 - \u30a8\u30af\u77ed\uff5cExtan.jp\",\"isPartOf\":{\"@id\":\"https:\/\/extan.jp\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\/\/extan.jp\/?p=1693#primaryimage\"},\"datePublished\":\"2021-06-19T11:04:13+00:00\",\"dateModified\":\"2024-01-13T15:22:43+00:00\",\"author\":{\"@id\":\"https:\/\/extan.jp\/#\/schema\/person\/ccb8849fcf749d5f74439b1af7d4df1a\"},\"description\":\"\u30fbExcel\u306b\u307e\u3068\u3081\u305f\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u4e00\u89a7\u3092Outlook\u4e88\u5b9a\u8868\u3078\u4e00\u62ec\u767b\u9332\u3059\u308b\u65b9\u6cd5\u30fbExcel\u304b\u3089Outlook\u4e88\u5b9a\u8868\u306e\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092\u5909\u66f4\u3059\u308b\u65b9\u6cd5\u30fbExcel\u304b\u3089Outlook\u4e88\u5b9a\u8868\u3078\u7d42\u65e5\u306e\u4e88\u5b9a\u3092\u767b\u9332\u3059\u308b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u307e\u3068\u3081\u307e\u3059\u3002\",\"breadcrumb\":{\"@id\":\"https:\/\/extan.jp\/?p=1693#breadcrumb\"},\"inLanguage\":\"ja\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/extan.jp\/?p=1693\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/extan.jp\/?p=1693#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"\u30db\u30fc\u30e0\"}]},{\"@type\":\"Person\",\"@id\":\"https:\/\/extan.jp\/#\/schema\/person\/ccb8849fcf749d5f74439b1af7d4df1a\",\"name\":\"\u30bf\u30ab\u30d2\u30ed@extan\",\"image\":{\"@type\":\"ImageObject\",\"@id\":\"https:\/\/extan.jp\/#personlogo\",\"inLanguage\":\"ja\",\"url\":\"https:\/\/secure.gravatar.com\/avatar\/24a74fef504a714c468411d23f2d1fd451892ffebbba0d84f70d4ce0d489aefb?s=96&d=mm&r=g\",\"contentUrl\":\"https:\/\/secure.gravatar.com\/avatar\/24a74fef504a714c468411d23f2d1fd451892ffebbba0d84f70d4ce0d489aefb?s=96&d=mm&r=g\",\"caption\":\"\u30bf\u30ab\u30d2\u30ed@extan\"},\"url\":\"https:\/\/extan.jp\/?author=1\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"description":"\u30fbExcel\u306b\u307e\u3068\u3081\u305f\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u4e00\u89a7\u3092Outlook\u4e88\u5b9a\u8868\u3078\u4e00\u62ec\u767b\u9332\u3059\u308b\u65b9\u6cd5\u30fbExcel\u304b\u3089Outlook\u4e88\u5b9a\u8868\u306e\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092\u5909\u66f4\u3059\u308b\u65b9\u6cd5\u30fbExcel\u304b\u3089Outlook\u4e88\u5b9a\u8868\u3078\u7d42\u65e5\u306e\u4e88\u5b9a\u3092\u767b\u9332\u3059\u308b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u307e\u3068\u3081\u307e\u3059\u3002","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/extan.jp\/?p=1693","next":"https:\/\/extan.jp\/?p=1693&page=2","og_locale":"ja_JP","og_type":"article","og_title":"\u3010VBA\u3011\u4e00\u77ac\u3067Excel\u306e\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092Outlook\u306e\u4e88\u5b9a\u8868\u3078\u767b\u9332\/\u5909\u66f4\u3059\u308b\u65b9\u6cd5 - \u30a8\u30af\u77ed\uff5cExtan.jp","og_description":"\u30fbExcel\u306b\u307e\u3068\u3081\u305f\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u4e00\u89a7\u3092Outlook\u4e88\u5b9a\u8868\u3078\u4e00\u62ec\u767b\u9332\u3059\u308b\u65b9\u6cd5\u30fbExcel\u304b\u3089Outlook\u4e88\u5b9a\u8868\u306e\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092\u5909\u66f4\u3059\u308b\u65b9\u6cd5\u30fbExcel\u304b\u3089Outlook\u4e88\u5b9a\u8868\u3078\u7d42\u65e5\u306e\u4e88\u5b9a\u3092\u767b\u9332\u3059\u308b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u307e\u3068\u3081\u307e\u3059\u3002","og_url":"https:\/\/extan.jp\/?p=1693","og_site_name":"\u30a8\u30af\u77ed\uff5cExtan.jp","article_published_time":"2021-06-19T11:04:13+00:00","article_modified_time":"2024-01-13T15:22:43+00:00","og_image":[{"width":1779,"height":833,"url":"https:\/\/extan.jp\/wp-content\/uploads\/2019\/09\/092519_1447_temp21.png","type":"image\/png"}],"twitter_card":"summary_large_image","twitter_misc":{"\u57f7\u7b46\u8005":"\u30bf\u30ab\u30d2\u30ed@extan","\u63a8\u5b9a\u8aad\u307f\u53d6\u308a\u6642\u9593":"10\u5206"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebSite","@id":"https:\/\/extan.jp\/#website","url":"https:\/\/extan.jp\/","name":"\u30a8\u30af\u77ed\uff5cExtan.jp","description":"\u50cd\u304f\u4eba\u306e\u81ea\u7531\u6642\u9593\u3092\u3064\u304f\u308b","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/extan.jp\/?s={search_term_string}"},"query-input":"required name=search_term_string"}],"inLanguage":"ja"},{"@type":"ImageObject","@id":"https:\/\/extan.jp\/?p=1693#primaryimage","inLanguage":"ja","url":"https:\/\/extan.jp\/wp-content\/uploads\/2019\/09\/092519_1447_temp21.png","contentUrl":"https:\/\/extan.jp\/wp-content\/uploads\/2019\/09\/092519_1447_temp21.png","width":1779,"height":833},{"@type":"WebPage","@id":"https:\/\/extan.jp\/?p=1693#webpage","url":"https:\/\/extan.jp\/?p=1693","name":"\u3010VBA\u3011\u4e00\u77ac\u3067Excel\u306e\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092Outlook\u306e\u4e88\u5b9a\u8868\u3078\u767b\u9332\/\u5909\u66f4\u3059\u308b\u65b9\u6cd5 - \u30a8\u30af\u77ed\uff5cExtan.jp","isPartOf":{"@id":"https:\/\/extan.jp\/#website"},"primaryImageOfPage":{"@id":"https:\/\/extan.jp\/?p=1693#primaryimage"},"datePublished":"2021-06-19T11:04:13+00:00","dateModified":"2024-01-13T15:22:43+00:00","author":{"@id":"https:\/\/extan.jp\/#\/schema\/person\/ccb8849fcf749d5f74439b1af7d4df1a"},"description":"\u30fbExcel\u306b\u307e\u3068\u3081\u305f\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u4e00\u89a7\u3092Outlook\u4e88\u5b9a\u8868\u3078\u4e00\u62ec\u767b\u9332\u3059\u308b\u65b9\u6cd5\u30fbExcel\u304b\u3089Outlook\u4e88\u5b9a\u8868\u306e\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092\u5909\u66f4\u3059\u308b\u65b9\u6cd5\u30fbExcel\u304b\u3089Outlook\u4e88\u5b9a\u8868\u3078\u7d42\u65e5\u306e\u4e88\u5b9a\u3092\u767b\u9332\u3059\u308b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u307e\u3068\u3081\u307e\u3059\u3002","breadcrumb":{"@id":"https:\/\/extan.jp\/?p=1693#breadcrumb"},"inLanguage":"ja","potentialAction":[{"@type":"ReadAction","target":["https:\/\/extan.jp\/?p=1693"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/extan.jp\/?p=1693#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"\u30db\u30fc\u30e0"}]},{"@type":"Person","@id":"https:\/\/extan.jp\/#\/schema\/person\/ccb8849fcf749d5f74439b1af7d4df1a","name":"\u30bf\u30ab\u30d2\u30ed@extan","image":{"@type":"ImageObject","@id":"https:\/\/extan.jp\/#personlogo","inLanguage":"ja","url":"https:\/\/secure.gravatar.com\/avatar\/24a74fef504a714c468411d23f2d1fd451892ffebbba0d84f70d4ce0d489aefb?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/24a74fef504a714c468411d23f2d1fd451892ffebbba0d84f70d4ce0d489aefb?s=96&d=mm&r=g","caption":"\u30bf\u30ab\u30d2\u30ed@extan"},"url":"https:\/\/extan.jp\/?author=1"}]}},"_links":{"self":[{"href":"https:\/\/extan.jp\/index.php?rest_route=\/wp\/v2\/posts\/1693","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/extan.jp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/extan.jp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/extan.jp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/extan.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1693"}],"version-history":[{"count":42,"href":"https:\/\/extan.jp\/index.php?rest_route=\/wp\/v2\/posts\/1693\/revisions"}],"predecessor-version":[{"id":13316,"href":"https:\/\/extan.jp\/index.php?rest_route=\/wp\/v2\/posts\/1693\/revisions\/13316"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/extan.jp\/index.php?rest_route=\/wp\/v2\/media\/1707"}],"wp:attachment":[{"href":"https:\/\/extan.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1693"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/extan.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1693"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/extan.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1693"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}