none
outlook 2007 已收郵件的顯示比例更改

    問題

  • PS 非 新增、轉寄、編輯 的顯示比例

    請問 在高解析度螢幕下 "不想變更DPI" 的狀態下  outlook 2007 的已收郵件觀看時可以把顯示比例"預設"成200%嗎

    換句話: 在看任何已收郵件時,能否讓 outlook 2007 自動放大200% 來顯示,不然高解析度筆電下 9pt 的字體實在太小

    2015年1月20日 上午 03:50

解答

  • Hi

    您可以用以下方式

    1.按Alt-F11開啟VBA Editor

    2.開啟左側專案的ThisOutlookSession

    3.點兩下開啟ThisOutlookSession

    4.複製以下的巨集貼到右邊開啟的視窗

    5.儲存

    6.上方 工具-> 設定引用項目

    7.勾選"Microsoft Word 12.0 Object Libary"並確定關閉VBA Editor

    8.關閉Outlook在重新開啟

    倒數第二行的數字就是調整顯示比例的數字

    但缺點是預覽視窗不會有效果,必須完整開啟信件才看的到效果

    Option Explicit
     Dim WithEvents objInspectors As Outlook.Inspectors
     Dim WithEvents objOpenInspector As Outlook.Inspector
     Dim WithEvents objMailItem As Outlook.MailItem
    
     Private Sub Application_Startup()
     Set objInspectors = Application.Inspectors
     End Sub
    
     Private Sub Application_Quit()
     Set objOpenInspector = Nothing
     Set objInspectors = Nothing
     Set objMailItem = Nothing
     End Sub
    
     Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
     If Inspector.CurrentItem.Class = olMail Then
     Set objMailItem = Inspector.CurrentItem
     Set objOpenInspector = Inspector
     End If
     End Sub
    
     Private Sub objOpenInspector_Close()
     Set objMailItem = Nothing
     End Sub
    
     Private Sub objOpenInspector_Activate()
     Dim wdDoc As Word.Document
     Set wdDoc = objOpenInspector.WordEditor
     wdDoc.Windows(1).Panes(1).View.Zoom.Percentage = 200
     End Sub


    請記得將對您有幫助的回覆"標示為解答"以幫助其他尋找解答及參與社群討論的朋友們。

    Please remember to click Mark as Answer on the post that helps you. This can be beneficial to other community members reading the thread.

    • 已標示為解答 Kevinst Wu 2015年1月21日 上午 01:18
    2015年1月20日 上午 07:13
    擁有者

所有回覆

  • Hi

    您可以用以下方式

    1.按Alt-F11開啟VBA Editor

    2.開啟左側專案的ThisOutlookSession

    3.點兩下開啟ThisOutlookSession

    4.複製以下的巨集貼到右邊開啟的視窗

    5.儲存

    6.上方 工具-> 設定引用項目

    7.勾選"Microsoft Word 12.0 Object Libary"並確定關閉VBA Editor

    8.關閉Outlook在重新開啟

    倒數第二行的數字就是調整顯示比例的數字

    但缺點是預覽視窗不會有效果,必須完整開啟信件才看的到效果

    Option Explicit
     Dim WithEvents objInspectors As Outlook.Inspectors
     Dim WithEvents objOpenInspector As Outlook.Inspector
     Dim WithEvents objMailItem As Outlook.MailItem
    
     Private Sub Application_Startup()
     Set objInspectors = Application.Inspectors
     End Sub
    
     Private Sub Application_Quit()
     Set objOpenInspector = Nothing
     Set objInspectors = Nothing
     Set objMailItem = Nothing
     End Sub
    
     Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
     If Inspector.CurrentItem.Class = olMail Then
     Set objMailItem = Inspector.CurrentItem
     Set objOpenInspector = Inspector
     End If
     End Sub
    
     Private Sub objOpenInspector_Close()
     Set objMailItem = Nothing
     End Sub
    
     Private Sub objOpenInspector_Activate()
     Dim wdDoc As Word.Document
     Set wdDoc = objOpenInspector.WordEditor
     wdDoc.Windows(1).Panes(1).View.Zoom.Percentage = 200
     End Sub


    請記得將對您有幫助的回覆"標示為解答"以幫助其他尋找解答及參與社群討論的朋友們。

    Please remember to click Mark as Answer on the post that helps you. This can be beneficial to other community members reading the thread.

    • 已標示為解答 Kevinst Wu 2015年1月21日 上午 01:18
    2015年1月20日 上午 07:13
    擁有者
  • 再請問一下紅框的字體大小能更改嗎?

    感恩~

    2015年1月21日 上午 01:22
  • Hi Kevinst Wu

    您說的部分是UI介面,如果要調整大小沒有辦法透過巨集的方式,因為這是設計上就固定的。

    如果需要調整就只能變更整個系統的放大比例。


    請記得將對您有幫助的回覆"標示為解答"以幫助其他尋找解答及參與社群討論的朋友們。

    Please remember to click Mark as Answer on the post that helps you. This can be beneficial to other community members reading the thread.

    2015年1月21日 上午 02:05
    擁有者
  • 您好, 我是使用office2010的, 按上述方法調整重新再開後, 還是一樣, 是否還有哪些地方些要調整的?
    2015年10月6日 上午 04:23
  • 您好, 我是使用office2010的, 按上述方法調整重新再開後, 還是一樣, 是否還有哪些地方些要調整的?

    我也是一樣, 使用OUTLOOK2010 試了6 次 顯示比例 200% , 顯示比例還是一樣 100% 沒有變動

    懇請協助

    2016年1月25日 上午 09:37
  • 請先更改巨集安全設定:

    檔案 > 選項 > 信任中心 > 信任中心設定 > 巨集設定 > 啟用所有巨集

    2018年7月12日 上午 02:07