{"id":476,"date":"2018-12-05T21:46:16","date_gmt":"2018-12-05T12:46:16","guid":{"rendered":"https:\/\/extan.jp\/?p=476"},"modified":"2021-11-16T00:52:09","modified_gmt":"2021-11-15T15:52:09","slug":"outlook-vba%e3%81%ae%e3%82%a4%e3%83%99%e3%83%b3%e3%83%88%e4%b8%80%e8%a6%a7","status":"publish","type":"post","link":"https:\/\/extan.jp\/?p=476","title":{"rendered":"Outlook VBA\u306e\u30a4\u30d9\u30f3\u30c8\u4e00\u89a7"},"content":{"rendered":"

OutolookVBA\u306e\u30a4\u30d9\u30f3\u30c8\u306b\u3064\u3044\u3066<\/h2>\n

\u4ed5\u4e8b\u306e\u30bf\u30b9\u30af\u3092\u958b\u59cb\u3059\u308b\u304d\u3063\u304b\u3051\u3068\u306a\u308b\u6a5f\u4f1a\u304c\u591a\u3044Outlook\u3067\u3059\u304c\u3001\u5177\u4f53\u7684\u306b\u3069\u306e\u3088\u3046\u306a\u30b1\u30fc\u30b9\u304c\u3042\u308a\u3001VBA\u3067\u3069\u306e\u3088\u3046\u306b\u81ea\u52d5\u5316\u304c\u5b9f\u73fe\u3067\u304d\u308b\u304b\u8aac\u660e\u3057\u307e\u3059\u3002<\/p>\n

\u4e00\u756a\u591a\u3044\u304d\u3063\u304b\u3051\u3068\u306a\u308b\u30a4\u30d9\u30f3\u30c8\u306f\u30e1\u30fc\u30eb\u306e\u53d7\u4fe1\u3067\u3057\u3087\u3046\u304b\u3002\u6b21\u306b\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u306e\u671f\u9650\u306b\u8fd1\u3065\u3044\u3066\u767a\u751f\u3059\u308b\u30a2\u30e9\u30fc\u30c8\u7b49\u3082\u60f3\u5b9a\u3055\u308c\u307e\u3059\u3002 \u305d\u306e\u304d\u3063\u304b\u3051\u304b\u3089\u958b\u59cb\u3055\u308c\u308b\u4f5c\u696d\u3092Outlook\u306eVBA\u3067\u5b9f\u73fe\u3059\u308b\u305f\u3081\u306b\u306f\u307e\u305aOutlook\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u5185\u306b\u5b9a\u7fa9\u3055\u308c\u3066\u3044\u308b\u30a4\u30d9\u30f3\u30c8\u3092\u5229\u7528\u3057\u3001\u304d\u3063\u304b\u3051\u3092\u30ad\u30e3\u30c3\u30c1\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\uff08\u306a\u304a\u3001\u30a4\u30d9\u30f3\u30c8\u3092\u30ad\u30e3\u30c3\u30c1\u3059\u308b\u6a5f\u80fd\u306e\u3053\u3068\u3092\u30a4\u30d9\u30f3\u30c8\u30ec\u30b7\u30fc\u30d0\u30fc\u3068\u547c\u3073\u307e\u3059\u3002\uff09<\/p>\n

\u5b9f\u73fe\u53ef\u80fd\u306a\u30a4\u30d9\u30f3\u30c8\u306e\u30d1\u30bf\u30fc\u30f3\u306f\u4ee5\u4e0b\u306e\u901a\u308a\u3068\u306a\u308a\u307e\u3059\u3002
\n\u53c2\u8003\uff1ahttps:\/\/docs.microsoft.com\/ja-jp\/office\/vba\/api\/outlook.application<\/a><\/p>\n

\u8868\uff11\u3000Outlook\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u30a4\u30d9\u30f3\u30c8\u4e00\u89a7<\/p>\n

\n\n\n\n\n<\/colgroup>\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
\u30a4\u30d9\u30f3\u30c8\u540d<\/td>\n\u8aac\u660e<\/td>\n\u30b5\u30f3\u30d7\u30eb<\/td>\n<\/tr>\n
AdvancedSearchComplete<\/td>\n\u691c\u7d22\u304c\u5b8c\u4e86\u3057\u305f\u5f8c\u306b\u767a\u751f<\/td>\nPrivate Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)
\nEnd Sub<\/td>\n<\/tr>\n
AdvancedSearchStopped<\/td>\n\u691c\u7d22\u304c\u4e2d\u6b62\u3057\u305f\u5f8c\u306b\u767a\u751f<\/td>\nPrivate Sub Application_AdvancedSearchStopped(ByVal
\nEnd Sub<\/td>\n<\/tr>\n
BeforeFolderSharingDialog<\/td>\nFolder\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e [\u5171\u6709] \u30c0\u30a4\u30a2\u30ed\u30b0 \u30dc\u30c3\u30af\u30b9\u304c\u8868\u793a\u3055\u308c\u308b\u524d\u306b\u767a\u751f<\/td>\nPrivate Sub Application_BeforeFolderSharingDialog()
\nEnd Sub<\/td>\n<\/tr>\n
ItemLoad<\/td>\nOutlook \u30a2\u30a4\u30c6\u30e0\u3092\u30e1\u30e2\u30ea\u306b\u8aad\u307f\u8fbc\u3080\u3068\u304d\u306b\u767a\u751f<\/td>\nPrivate Sub Application_ItemLoad()
\nEnd Sub<\/td>\n<\/tr>\n
ItemSend<\/td>\nOutlook \u30a2\u30a4\u30c6\u30e0\u304c\u9001\u4fe1\u3055\u308c\u308b\u3068\u304d\u306b\u767a\u751f<\/td>\nPrivate Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
\nMsgBox “\u4ef6\u540d:” & Item.Subject & “\u3092\u9001\u4fe1\u3057\u307e\u3059\u304c\u3088\u3044\u3067\u3059\u304b\uff1f”
\nEnd Sub<\/td>\n<\/tr>\n
MAPILogonComplete<\/td>\n\u30e6\u30fc\u30b6\u30fc\u304c\u30b7\u30b9\u30c6\u30e0\u306b\u30ed\u30b0\u30aa\u30f3\u3057\u305f\u5f8c\u306b\u767a\u751f\u3057\u307e\u3059\u3002<\/td>\nPrivate Sub Application_MAPILogonComplete()
\nEnd Sub<\/td>\n<\/tr>\n
NewMail<\/td>\n\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u53d7\u4fe1\u30c8\u30ec\u30a4\u3067\u53d7\u4fe1\u3057\u305f\u3068\u304d\u306b\u767a\u751f \u30eb\u30fc\u30eb\u306e\u51e6\u7406\u304c\u884c\u308f\u308c\u308b\u3068\u304d\u306b\u767a\u751f<\/td>\nPrivate Sub Application_NewMail()
\nEnd Sub<\/td>\n<\/tr>\n
NewMailEx<\/td>\n\u53d7\u4fe1\u30c8\u30ec\u30a4\u306b\u65b0\u3057\u3044\u30a2\u30a4\u30c6\u30e0\u3092\u53d7\u4fe1\u3059\u308b\u3068\u767a\u751f NewMail\u3068\u306e\u9055\u3044\u306f\u3001\u52d5\u304d\u306f\u540c\u3058\u3067\u3042\u308b\u304c\u3001NewMailEx\u306fID\u306b\u3088\u308a\u53d7\u4fe1\u30a2\u30a4\u30c6\u30e0\u3092\u7279\u5b9a\u3059\u308b\u3053\u3068\u304c\u53ef\u80fd\u3002Outlook 2003\u3088\u308a\u8ffd\u52a0\u3002<\/td>\nPrivate Sub Application_NewMailEx(ByVal EntryIDCollection As String)
\nEnd Sub<\/td>\n<\/tr>\n
OptionsPagesAdd<\/td>\n\u30e6\u30fc\u30b6\u30fc\u304c Outlook \u306e [\u30aa\u30d7\u30b7\u30e7\u30f3] \u30c0\u30a4\u30a2\u30ed\u30b0 \u30dc\u30c3\u30af\u30b9\u306e [\u30a2\u30c9\u30a4\u30f3] \u30bf\u30d6\u4e0a\u306e\u30aa\u30d7\u30b7\u30e7\u30f3\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3059\u308b\u305f\u3073\u306b\u767a\u751f<\/td>\nPrivate Sub Application_OptionsPagesAdd(ByVal Pages As Outlook.PropertyPages)
\nEnd Sub<\/td>\n<\/tr>\n
Quit<\/td>\nMicrosoft Outlook \u304c\u7d42\u4e86\u3059\u308b\u3068\u304d\u306b\u767a\u751f<\/td>\nPrivate Sub Application_Quit()
\nEnd Sub<\/td>\n<\/tr>\n
Reminder<\/td>\n\u30a2\u30e9\u30fc\u30e0\u304c\u8868\u793a\u3055\u308c\u308b\u76f4\u524d\u306b\u767a\u751f<\/td>\nPrivate Sub Application_Reminder(ByVal Item As Object)
\nEnd Sub<\/td>\n<\/tr>\n
Startup<\/td>\nMicrosoft Outlook \u306e\u8d77\u52d5\u4e2d\u3001\u3059\u3079\u3066\u306e\u30a2\u30c9\u30a4\u30f3 \u30d7\u30ed\u30b0\u30e9\u30e0\u304c\u8aad\u307f\u8fbc\u307e\u308c\u305f\u5f8c\u306b\u767a\u751f<\/td>\nPrivate Sub Application_Startup()
\nEnd Sub<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n