Outlook不會自動將插入的圖片與電子郵件正文中的文本匹配。 因此，如果您認為某些嵌入式圖片太大或太小，則可能需要調整它們的大小。 本文將教您批量調整大小的方法。
在Outlook中，當您將圖片插入電子郵件正文時，如果圖片太大，則絕對必須對其進行縮放，直到其適合正文為止。 在這種情況下，如果此電子郵件中有多張圖片，則手動逐個調整大小肯定不是一個好主意。 現在，此後，我們將與您分享一種更快的方法，該方法可以批量調整Outlook電子郵件中所有圖片的大小。
批量調整電子郵件中所有圖片的大小
- 在開始時，您需要啟動Outlook應用程序。
- 然後，在顯示的Outlook主窗口中，應按“ Alt + F11”鍵按鈕。
- 一次，您將進入“ Microsoft Visual Basic for Applications”窗口。
- 現在，您必須訪問一個未使用的模塊或僅插入一個新模塊。
- 接下來，您應該將以下VBA代碼複製並粘貼到該模塊中。
Sub BatchResizeAllPicturesInEmail()
Dim objMail As Outlook.MailItem
Dim objMailDocument As Word.Document
Dim nPercentSize As Integer
Dim objInlineShape As Word.InlineShape
Dim objShape As Word.Shape
'Get the source email
Select Case Application.ActiveWindow.Class
Case olExplorer
Set objMail = ActiveExplorer.Selection.Item(1)
objMail.Display
Case olInspector
Set objMail = ActiveInspector.CurrentItem
End Select
Set objMailDocument = objMail.GetInspector.WordEditor
'Enter the percent whcih you want to resize picture to
nPercentSize = InputBox("Specify the percent of full size", "Resize Picture", 50)
'Resize all the pictures in this email
For Each objInlineShape In objMailDocument.InlineShapes
objInlineShape.ScaleHeight = nPercentSize
objInlineShape.ScaleWidth = nPercentSize
Next
For Each objShape In objMailDocument.Shapes
objShape.ScaleHeight PercentSize / 100, msoCTrue
objShape.ScaleWidth PercentSize / 100, msoCTrue
Next
End Sub
- 之後，您可以點擊右上角的“ X”圖標以退出該窗口。
- 隨後，您最好將此新的VBA項目添加到“消息”窗口的“快速訪問工具欄”，以方便將來使用。 您可以在“ Outlook選項”中實現它。
- 最終，您可以嘗試一下：
- 首先，像往常一樣創建和撰寫電子郵件。
- 然後，將多張圖片插入此電子郵件中。
- 接下來，單擊快速訪問工具欄中的宏按鈕。
- 一次，您將需要輸入要調整圖片大小的全尺寸的百分比。
- 單擊“確定”後，所有圖片將被調整大小。
掌握合格的維修工具
由於Outlook容易損壞，因此，謹慎使用信譽良好且有效的外部修復工具，例如 DataNumen Outlook Repair。 通常，一旦遇到Outlook損壞，您可以首先恢復到 收件箱維修工具。 但是，如果它也失敗了，那麼外部修復實用程序將派上用場，並且可以及時拯救您的數據。
作者簡介：
Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 恢復SQL 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM