{"id":298,"date":"2014-04-07T01:00:47","date_gmt":"2014-04-06T16:00:47","guid":{"rendered":"http:\/\/atmark.ddo.jp\/blog\/?p=298"},"modified":"2014-04-07T01:00:47","modified_gmt":"2014-04-06T16:00:47","slug":"outlook2007%e3%81%a8%e3%83%9e%e3%82%af%e3%83%ad%e3%81%a8%e3%82%a8%e3%83%87%e3%82%a3%e3%82%bf","status":"publish","type":"post","link":"https:\/\/atmark.pgw.jp\/blog\/etc\/298.html","title":{"rendered":"Outlook(2007)\u3068\u30de\u30af\u30ed\u3068\u30a8\u30c7\u30a3\u30bf"},"content":{"rendered":"<p>\u4ed5\u4e8b\u3067\u3001Outlook2007\u3092\u4f7f\u7528\u3057\u3066\u307e\u3059\u3002<br \/>\nExchangeServer\u306a\u306e\u3067\u3001\u4ed5\u65b9\u306a\u3044\u306e\u304b\u306a\u3068\u601d\u3063\u3066\u307e\u3059\u3002<br \/>\n\u74b0\u5883\u3055\u3048\u305d\u308d\u3063\u3066\u3044\u308c\u3070\u3001\u610f\u5916\u3068\u4f7f\u3044\u3084\u3059\u3044\u304b\u306a\u3068\u3082\u601d\u3063\u3066\u3044\u308b\u306e\u3067\u3001\u3042\u304d\u3089\u3081\u3082\u30b5\u30af\u30c3\u3068\u3067\u304d\u3066\u307e\u3059\u3002<\/p>\n<p>\u3042\u308b\u6642\u3001\u30d7\u30e9\u30a4\u30d9\u30fc\u30c8\u3067ThunderBird\u3092\u4f7f\u3063\u3066\u307f\u305f\u3068\u3053\u308d\u3001\u30d7\u30e9\u30b0\u30a4\u30f3\u3082\u3042\u3063\u3066\u306a\u3093\u3060\u304b\u3001\u4fbf\u5229\u306a\u3093\u3067\u3059\u3088\u3002<br \/>\n\u30e1\u30fc\u30eb\u4f5c\u6210\u306b\u3001\u597d\u304d\u306a\u30c6\u30ad\u30b9\u30c8\u30a8\u30c7\u30a3\u30bf\u3092\u6307\u5b9a\u3067\u304d\u305f\u308a\u3001\u30e1\u30fc\u30eb\u672c\u6587\u3092\u307f\u3066\u6dfb\u4ed8\u30d5\u30a1\u30a4\u30eb\u306e\u6709\u7121\u3092\u9001\u4fe1\u524d\u306b\u78ba\u8a8d\u3057\u3066\u304f\u308c\u305f\u308a\u3002\u3002\u3002<\/p>\n<p>\u305d\u3093\u306a\u8a33\u3067\u3001Outlook\u306b\u3044\u308d\u3044\u308d\u6c17\u306b\u3044\u3089\u306a\u3044\u90e8\u5206\u304c\u3042\u308a\u307e\u3059\u304c\u3001\u30de\u30af\u30ed\u304c\u3042\u308b\u306e\u3067\u30b9\u30ad\u30eb\u304c\u3042\u308c\u3070\u3001\u3042\u308b\u7a0b\u5ea6\u6e80\u8db3\u51fa\u6765\u308b\u306e\u3067\u306f\u3068\u3082\u8003\u3048\u3066\u3044\u308b\u306e\u3067\u3059\u304c\u3001\u554f\u984c\u306f\u81ea\u5206\u306b\u30b9\u30ad\u30eb\u304c\u306a\u3044\u3068\u8a00\u3046\u4e8b\u3002<\/p>\n<p>\u7d50\u5c40\u3001Google\u5148\u751f\u306b\u76f8\u8ac7\u3057\u3064\u3064\u3001\u3044\u308d\u3044\u308d\u306a\u65b9\u306e\u30de\u30af\u30ed\u3092\u898b\u3066\u52c9\u5f37\u3057\u3064\u3064Try&amp;Error\u3092\u7e70\u308a\u8fd4\u3059\u4e8b\u306b\u3002<\/p>\n<p>\u3068\u3001\u3044\u3046\u3053\u3068\u3067\u30e1\u30fc\u30eb\u4f5c\u6210\u306b\u597d\u304d\u306a\u30c6\u30ad\u30b9\u30c8\u30a8\u30c7\u30a3\u30bf\u3092\u4f7f\u7528\u3067\u304d\u308b\u30de\u30af\u30ed\u3084\u3001\u30e1\u30fc\u30eb\u9001\u4fe1\u6642\u306b\u4ef6\u540d\u3084\u6dfb\u4ed8\u30d5\u30a1\u30a4\u30eb\u3092\u78ba\u8a8d\u3057\u3066\u304f\u308c\u308b\u3001\u30de\u30af\u30ed\u3067\u3059\u3002<\/p>\n<p><!--more--><\/p>\n<p>\u3068\u308a\u3042\u3048\u305a\u3001\u597d\u304d\u306a\u30c6\u30ad\u30b9\u30c8\u30a8\u30c7\u30a3\u30bf\u3067\u30e1\u30fc\u30eb\u3092\u4f5c\u6210\u3067\u304d\u308b\u30de\u30af\u30ed\u3067\u3059\u3002<br \/>\n\u30c6\u30ad\u30b9\u30c8\u30e1\u30fc\u30eb\u3068\u3001HTML\u30e1\u30fc\u30eb\u3067\u52d5\u4f5c\u3092\u304b\u3048\u3066\u307e\u3059\u3002\u3002\u3002<br \/>\n\u30bd\u30fc\u30b9\u3092\u898b\u306a\u304c\u3089\u30e1\u30fc\u30eb\u3092\u66f8\u304f\u306e\u306f\u30e1\u30f3\u30c9\u30fc\u306a\u81ea\u5206\u306a\u306e\u3067\u3001\u4ed5\u65b9\u306a\u3044\u3067\u3059\u3002<\/p>\n<p>\u4e0b\u8a18\u306f\u3001\u30e1\u30fc\u30eb\u4f5c\u6210\u30a6\u30a3\u30f3\u30c9\u30a6(Inspector)\u304b\u3089\u5b9f\u884c\u3067\u304d\u307e\u3059<\/p>\n<pre class=\"lang:vb decode:true crayon-selected\" title=\"RunEditor\">Sub RunEditor()\n\nDim objShell As Object\nDim objFso As Object\nDim strSubject As String\nDim strFileName As String\nDim strFileBody As String\nDim stmFile As Object\nSet objShell = CreateObject(\"WScript.Shell\")\nSet objFso = CreateObject(\"Scripting.FileSystemObject\")\n\n' \u65e5\u6642\u304b\u3089\u4e00\u6642\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u751f\u6210\n    strFileName = objShell.ExpandEnvironmentStrings(\"%temp%\") &amp; Year(Date) &amp; Month(Date) &amp; Day(Date) &amp; Hour(Time) &amp; Minute(Time) &amp; Second(Time) &amp; \".txt\"\n\nIf ActiveInspector.CurrentItem.BodyFormat = 1 Then\n'TXT\u30e1\u30fc\u30eb\u306e\u5834\u5408\u306e\u51e6\u7406\n\n' \u4e00\u6642\u30d5\u30a1\u30a4\u30eb\u306e\u4f5c\u6210\u3068\u30e1\u30c3\u30bb\u30fc\u30b8\u306e\u672c\u6587\u306e\u66f8\u304d\u51fa\u3057\n    Set stmFile = objFso.CreateTextFile(strFileName, True)\n    stmFile.WriteLine ActiveInspector.CurrentItem.Body\n    stmFile.Close\n\n    ' \u30c6\u30ad\u30b9\u30c8\u30a8\u30c7\u30a3\u30bf\u306e\u8d77\u52d5\n    objShell.Run \"[\u30c6\u30ad\u30b9\u30c8\u30a8\u30c7\u30a3\u30bf\u306e\u30d1\u30b9] \" &amp; strFileName, , True\n\n    ' \u7de8\u96c6\u6e08\u307f\u306e\u4e00\u6642\u30d5\u30a1\u30a4\u30eb\u304b\u3089\u306e\u8aad\u307f\u51fa\u3057\n    Set stmFile = objFso.OpenTextFile(strFileName, 1, 1)\n    ActiveInspector.CurrentItem.Body = stmFile.ReadAll\n    stmFile.Close\nElse\n'TXT\u30e1\u30fc\u30eb\u4ee5\u5916\u306e\u5834\u5408\u306e\u51e6\u7406\n    MsgBox \"Content does not display in HTML email\"\n\n' \u4e00\u6642\u30d5\u30a1\u30a4\u30eb\u306e\u4f5c\u6210\u306e\u307f\n    Set stmFile = objFso.CreateTextFile(strFileName, True)\n    stmFile.Close\n\n    ' \u30c6\u30ad\u30b9\u30c8\u30a8\u30c7\u30a3\u30bf\u306e\u8d77\u52d5\n    objShell.Run \"[\u30c6\u30ad\u30b9\u30c8\u30a8\u30c7\u30a3\u30bf\u306e\u30d1\u30b9] \" &amp; strFileName, , True\n\n    ' \u7de8\u96c6\u6e08\u307f\u306e\u4e00\u6642\u30d5\u30a1\u30a4\u30eb\u30921\u884c\u76ee\u3078\u66f8\u304d\u51fa\u3057\n    Set stmFile = objFso.OpenTextFile(strFileName, 1, 1)\n    With ActiveInspector.WordEditor.Windows(1).Selection\n        .HomeKey Unit:=6\n        .TypeText stmFile.ReadAll\n    End With\n    stmFile.Close\nEnd If\n\nobjFso.DeleteFile strFileName\nActiveInspector.Activate\nEnd Sub<\/pre>\n<p>\u81ea\u5206\u306f\u3001\u30b5\u30af\u30e9\u30a8\u30c7\u30a3\u30bf\u3092\u4f7f\u7528\u3057\u3066\u3044\u307e\u3059\u3002<br \/>\n\u30e1\u30fc\u30eb\u4f5c\u6210\u5f8c\u3001[\u4fdd\u5b58\u3057\u3066\u9589\u3058\u308b]\u3092\u5b9f\u884c\u3059\u308b\u3068\u3001\u30e1\u30fc\u30eb\u4f5c\u6210\u30a6\u30a3\u30f3\u30c9\u30a6\u306b\u5185\u5bb9\u304c\u53cd\u6620\u3055\u308c\u307e\u3059<\/p>\n<p>\u305f\u3060\u3057\u3001\u6700\u5f8c\u306b[ActiveInspector.Activate]\u3092\u5b9f\u884c\u3057\u3066\u3044\u308b\u306e\u306b\u3001\u30e1\u30fc\u30eb\u4f5c\u6210\u30a6\u30a3\u30f3\u30c9\u30a6\u3067\u30ad\u30fc\u30dc\u30fc\u30c9\u64cd\u4f5c\u306f\u53d7\u3051\u4ed8\u3051\u3066\u304f\u308c\u307e\u305b\u3093\u3067\u3057\u305f\u3002\u3002\u3002<br \/>\n\u3053\u306e\u8fba\u306f\u3001\u30b5\u30af\u30e9\u30a8\u30c7\u30a3\u30bf\u306e\u4ed5\u69d8\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\u3002\u3002<\/p>\n<p>\u6b21\u306f\u3001\u30e1\u30fc\u30eb\u4e00\u89a7\u304b\u3089\u5b9f\u884c\u3067\u304d\u308b\u30de\u30af\u30ed\u3067\u3059\u3002<br \/>\n\u3044\u3065\u308c\u3082\u3001\u4e0a\u306eRunEditor\u3078\u30b8\u30e3\u30f3\u30d7\u3055\u305b\u3066\u307e\u3059\u3002<\/p>\n<p>\u65b0\u898f\u4f5c\u6210\u7528<\/p>\n<pre class=\"lang:vb decode:true\" title=\"NewMail\">Sub NewMail()\nCreateItem(0).Display\nRunEditor\nEnd Sub<\/pre>\n<p>\u8fd4\u4fe1\u7528<\/p>\n<pre class=\"lang:vb decode:true\" title=\"Reply\">Sub Reply()\nActiveExplorer.Selection.Item(1).Reply.Display\nRunEditor\nEnd Sub<\/pre>\n<p>\u3059\u3079\u3066\u3078\u8fd4\u4fe1\u7528<\/p>\n<pre class=\"lang:vb decode:true\" title=\"AllReply\">Sub AllReply()\nActiveExplorer.Selection.Item(1).ReplyAll.Display\nRunEditor\nEnd Sub<\/pre>\n<p>\u5f8c\u306f\u3001Outlook\u5074\u3067\u3053\u308c\u3089\u30de\u30af\u30ed\u3092\u30c4\u30fc\u30eb\u30d0\u30fc\u306b\u3067\u3082\u767b\u9332\u3057\u3066\u3084\u308a\u3001\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc\u3092\u8a2d\u5b9a\u3059\u308b\u3068\u3001\u826f\u3044\u611f\u3058\u306b\u3001\u30ad\u30fc\u30dc\u30fc\u30c9\u3067\u30de\u30af\u30ed\u3092\u5b9f\u884c\u3067\u304d\u308b\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>\u3064\u3044\u3067\u306b\u3001\u30a8\u30c7\u30a3\u30bf\u5074\u306e\u30de\u30af\u30ed\u3092\u4f7f\u7528\u3059\u308b\u3068\u3001\u30e1\u30fc\u30eb\u4f5c\u6210\u3082\u697d\u306b\u306a\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u306d\u3002<\/p>\n<p>\u4e0b\u8a18\u306f\u3001\u4ef6\u540d\u304c\u7a7a\u3060\u3063\u305f\u5834\u5408\u306b\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u51fa\u3059\u30de\u30af\u30ed\u3068\u3001\u30e1\u30fc\u30eb\u672c\u6587\u306b\u300c\u6dfb\u4ed8\u300d\u3068\u8a00\u3046\u6587\u5b57\u304c\u3042\u308a\u3001\u6dfb\u4ed8\u30d5\u30a1\u30a4\u30eb\u304c\u306a\u3044\u5834\u5408\u306b\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u51fa\u3059\u30de\u30af\u30ed\u3067\u3059\u3002<\/p>\n<pre class=\"lang:vb decode:true\" title=\"Subject\/AttacheFile Check\">Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)\nDim strSubject As String\nDim strBody As String\nstrSubject = Item.Subject\nstrBody = Item.Body\n\nIf Len(Trim(strSubject)) = 0 Then\n    Prompt$ = \"Subject is Empty. Are you sure you want to send the Mail?\"\n    If MsgBox(Prompt$, vbYesNo + vbQuestion + _\n        vbMsgBoxSetForeground, \"Check for Subject\") = vbNo Then\n        Cancel = True\n    End If\nEnd If\n\nIf InStr(strSubject &amp; strBody, \"\u6dfb\u4ed8\") &gt; 0 And Item.Attachments.Count = 0 Then\n    Prompt$ = \"Attachment file is Empty. Are you sure you want to send the Mail?\"\n    If MsgBox(Prompt$, vbYesNo + vbQuestion + _\n        vbMsgBoxSetForeground, \"Check for Attachment file\") = vbNo Then\n        Cancel = True\n    End If\nEnd If\nEnd Sub<\/pre>\n<h3>\u53c2\u8003\u30b5\u30a4\u30c8<\/h3>\n<ul>\n<li><a title=\"\u30e1\u30fc\u30eb\u306e\u672c\u6587\u3092\u79c0\u4e38\u30a8\u30c7\u30a3\u30bf\u3067\u8868\u793a\u3059\u308b(\u3046\u3043\u3063\u304d\u3046\u3043\u304d)\" href=\"http:\/\/seesaawiki.jp\/w\/hiromi_u\/d\/%A5%E1%A1%BC%A5%EB%A4%CE%CB%DC%CA%B8%A4%F2%BD%A8%B4%DD%A5%A8%A5%C7%A5%A3%A5%BF%A4%C7%C9%BD%BC%A8%A4%B9%A4%EB\">\u30e1\u30fc\u30eb\u306e\u672c\u6587\u3092\u79c0\u4e38\u30a8\u30c7\u30a3\u30bf\u3067\u8868\u793a\u3059\u308b<\/a>[\u3046\u3043\u3063\u304d\u3046\u3043\u304d]<\/li>\n<li><a title=\"\u4ef6\u540d\u306e\u5165\u308c\u5fd8\u308c\u9632\u6b62\u7528\u30de\u30af\u30ed\u3092\u4f5c\u6210\uff08Outlook\u7528\uff09[Lifehacker]\" href=\"http:\/\/www.lifehacker.jp\/2009\/06\/post_892.html\">\u4ef6\u540d\u306e\u5165\u308c\u5fd8\u308c\u9632\u6b62\u7528\u30de\u30af\u30ed\u3092\u4f5c\u6210\uff08Outlook\u7528\uff09<\/a>[Lifehacker]<\/li>\n<\/ul>\n<p>\u4e0a\u8a18\u4ee5\u5916\u306b\u3082\u3001\u305f\u304f\u3055\u3093\u306e\u30b5\u30a4\u30c8\u69d8\u3092\u53c2\u8003\u306b\u3055\u305b\u3066\u3044\u305f\u3060\u3044\u305f\u307e\u3057\u305f\u3002\u3042\u308a\u304c\u3068\u3046\u3054\u3056\u3044\u307e\u3057\u305f\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u4ed5\u4e8b\u3067\u3001Outlook2007\u3092\u4f7f\u7528\u3057\u3066\u307e\u3059\u3002 ExchangeServer\u306a\u306e\u3067\u3001\u4ed5\u65b9\u306a\u3044\u306e\u304b\u306a\u3068\u601d\u3063\u3066\u307e\u3059\u3002 \u74b0\u5883\u3055\u3048\u305d\u308d\u3063\u3066\u3044\u308c\u3070\u3001\u610f\u5916\u3068\u4f7f\u3044\u3084\u3059\u3044\u304b\u306a\u3068\u3082\u601d\u3063\u3066\u3044\u308b\u306e\u3067\u3001\u3042\u304d\u3089\u3081\u3082\u30b5\u30af\u30c3\u3068\u3067\u304d\u3066\u307e\u3059\u3002 \u3042\u308b\u6642\u3001\u30d7 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":315,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[18,24,41],"_links":{"self":[{"href":"https:\/\/atmark.pgw.jp\/blog\/wp-json\/wp\/v2\/posts\/298"}],"collection":[{"href":"https:\/\/atmark.pgw.jp\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/atmark.pgw.jp\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/atmark.pgw.jp\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/atmark.pgw.jp\/blog\/wp-json\/wp\/v2\/comments?post=298"}],"version-history":[{"count":0,"href":"https:\/\/atmark.pgw.jp\/blog\/wp-json\/wp\/v2\/posts\/298\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/atmark.pgw.jp\/blog\/wp-json\/wp\/v2\/media\/315"}],"wp:attachment":[{"href":"https:\/\/atmark.pgw.jp\/blog\/wp-json\/wp\/v2\/media?parent=298"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/atmark.pgw.jp\/blog\/wp-json\/wp\/v2\/categories?post=298"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/atmark.pgw.jp\/blog\/wp-json\/wp\/v2\/tags?post=298"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}