{"id":19419,"date":"2022-10-19T14:32:08","date_gmt":"2022-10-19T05:32:08","guid":{"rendered":"http:\/\/xn--4gqynm0cew8m.asia\/?p=19419"},"modified":"2022-10-21T09:40:39","modified_gmt":"2022-10-21T00:40:39","slug":"excel-vba%e3%81%a7outlook%e3%82%92%e6%93%8d%e4%bd%9c%e3%81%99%e3%82%8b","status":"publish","type":"post","link":"http:\/\/xn--4gqynm0cew8m.asia\/?p=19419","title":{"rendered":"Excel VBA\u3067outlook\u3092\u64cd\u4f5c\u3059\u308b"},"content":{"rendered":"\n<h2 class=\"wp-block-heading\">Outlook\u3092Excel VBA\u3067\u547c\u3073\u51fa\u3059\u65b9\u6cd5<br>\u307b\u3093\u306e\u4e00\u4f8b<\/h2>\n\n\n\n<pre class=\"wp-block-code\"><code>'Excel VBA\u3067Outlook\u547c\u3073\u51fa\u3059\n'\u3061\u3087\u3063\u3068\u81ea\u5df1\u6d41\u904e\u304e\u3066\u3001\u3069\u3053\u307e\u3067\u5408\u3063\u3066\u308b\u304b\u306f\u8b0e\n'\u3067\u3082\u3061\u3083\u3093\u3068\u52d5\u3044\u3066\u3044\u308b\n    Set outlookObj = CreateObject(\"Outlook.Application\")\n    Set myNameSpace = outlookObj.GetNamespace(\"MAPI\")\n    Set InboxFolder = myNameSpace.GetDefaultFolder(6)\n    Set myExplr = outlookObj.ActiveExplorer\n'get current email object\n    Set oBjMailitem = myExplr.Selection.Item(1)\n'email thread\n    Set conV = oBjMailitem.GetConversation\n    \n    Set objParentFolder = myExplr.Application.ActiveExplorer.CurrentFolder\n    \n'sender\u306e\u540d\u524d\u3092\u53d6\u5f97\n'\u3053\u308c\u306f\u5225\u3067getSenderName\u3063\u3066Function\u3092\u81ea\u4f5c\u3057\u3066\u308b\n    Debug.Print oBjMailitem.SenderEmailAddress\n    senderName = getSenderName(oBjMailitem.SenderEmailAddress)\n\n'''\u89e3\u653e\n    Set outlookObj = Nothing\n    Set myNameSpace = Nothing\n    Set InboxFolder = Nothing\n<\/code><\/pre>\n\n\n\n<h2 class=\"wp-block-heading\">Excel VBA\u304b\u3089\u3001Outlook\u306e\u30e1\u30fc\u30eb\u3092PST\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u30d0\u30c3\u30af\u30a2\u30c3\u30d7\u3059\u308b<\/h2>\n\n\n\n<p>\u4ee5\u4e0b\u306e\u30b5\u30a4\u30c8\u306e\u5f15\u7528\u3067\u3059<br><a rel=\"noreferrer noopener\" href=\"https:\/\/outlooklab.wordpress.com\/tag\/pst%E3%82%A8%E3%82%AF%E3%82%B9%E3%83%9D%E3%83%BC%E3%83%88%E3%82%A4%E3%83%B3%E3%83%9D%E3%83%BC%E3%83%88\/\" target=\"_blank\">Outlook\u7814\u7a76\u6240<\/a><\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>' PST \u306b\u30a8\u30af\u30b9\u30dd\u30fc\u30c8\u3059\u308b\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\r\nPublic Sub ExportToPST()\r\n     Dim fldSrc As Folder\r\n     Dim fldDst As Folder\r\n     Dim strFilter As String\r\n     ' \u30b3\u30d4\u30fc\u5143\u306f\u30e1\u30fc\u30eb\u30dc\u30c3\u30af\u30b9\r\n     Set fldSrc = Session.DefaultStore.GetRootFolder\r\n     ' \u30b3\u30d4\u30fc\u5148\u306f PST\r\n     Set fldDst = GetPSTRoot()\r\n     If fldDst Is Nothing Then Exit Sub\r\n     ' \u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u521d\u671f\u5316\r\n     strFilter = \"\"\r\n     ' \u30b3\u30d4\u30fc\u51e6\u7406\u3092\u30d5\u30a9\u30eb\u30c0\u30fc\u3054\u3068\u306b\u547c\u3073\u51fa\u3057\r\n     CopyItems fldSrc, fldDst, \"\u53d7\u4fe1\u30c8\u30ec\u30a4\", strFilter\r\n     CopyItems fldSrc, fldDst, \"\u9001\u4fe1\u30c8\u30ec\u30a4\", strFilter\r\n     CopyItems fldSrc, fldDst, \"\u9001\u4fe1\u6e08\u307f\u30a2\u30a4\u30c6\u30e0\", strFilter\r\n     CopyItems fldSrc, fldDst, \"\u4e0b\u66f8\u304d\", strFilter\r\n     CopyItems fldSrc, fldDst, \"\u9023\u7d61\u5148\", strFilter\r\nEnd Sub<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Outlook\u3092Excel VBA\u3067\u547c\u3073\u51fa\u3059\u65b9\u6cd5\u307b\u3093\u306e\u4e00\u4f8b Excel VBA\u304b\u3089\u3001Outlook\u306e\u30e1\u30fc\u30eb\u3092PST\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u30d0\u30c3\u30af\u30a2\u30c3\u30d7\u3059\u308b \u4ee5\u4e0b\u306e\u30b5\u30a4\u30c8\u306e\u5f15\u7528\u3067\u3059Outlook\u7814\u7a76\u6240<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":"","footnotes":"","jetpack_publicize_message":"","jetpack_is_tweetstorm":false},"categories":[37,3],"tags":[],"jetpack_featured_media_url":"","jetpack_publicize_connections":[],"jetpack_shortlink":"https:\/\/wp.me\/p53nwf-53d","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"http:\/\/xn--4gqynm0cew8m.asia\/index.php?rest_route=\/wp\/v2\/posts\/19419"}],"collection":[{"href":"http:\/\/xn--4gqynm0cew8m.asia\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/xn--4gqynm0cew8m.asia\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/xn--4gqynm0cew8m.asia\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/xn--4gqynm0cew8m.asia\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=19419"}],"version-history":[{"count":6,"href":"http:\/\/xn--4gqynm0cew8m.asia\/index.php?rest_route=\/wp\/v2\/posts\/19419\/revisions"}],"predecessor-version":[{"id":19428,"href":"http:\/\/xn--4gqynm0cew8m.asia\/index.php?rest_route=\/wp\/v2\/posts\/19419\/revisions\/19428"}],"wp:attachment":[{"href":"http:\/\/xn--4gqynm0cew8m.asia\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=19419"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/xn--4gqynm0cew8m.asia\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=19419"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/xn--4gqynm0cew8m.asia\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=19419"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}