{"url":"https://hiko-blog.hatenadiary.com/entry/2025/11/17/173743","blog_title":"Hiko.Blog  Excel VBA\u6d3b\u7528\u8853","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhiko-blog.hatenadiary.com%2Fentry%2F2025%2F11%2F17%2F173743\" title=\"outlook\u30e1\u30fc\u30eb\u3000\u6ce8\u610f\u559a\u8d77\u306ePOPUP - Hiko.Blog  Excel VBA\u6d3b\u7528\u8853\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","type":"rich","width":"100%","provider_name":"Hatena Blog","version":"1.0","image_url":null,"height":"190","categories":["Outlook"],"provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/hiko-blog/","author_name":"hiko-blog","blog_url":"https://hiko-blog.hatenadiary.com/","title":"outlook\u30e1\u30fc\u30eb\u3000\u6ce8\u610f\u559a\u8d77\u306ePOPUP","description":"Private WithEvents myInspectors As Outlook.Inspectors Private Sub Application_Startup() Set myInspectors = Application.InspectorsEnd Sub Private Sub myInspectors_NewInspector(ByVal Inspector As Inspector) On Error Resume Next Dim mail As Outlook.MailItem ' \u958b\u304b\u308c\u305f\u30a2\u30a4\u30c6\u30e0\u304c\u30e1\u30fc\u30eb\u304b\u78ba\u8a8d If TypeName(Inspector.Curre\u2026","published":"2025-11-17 17:37:43"}