一些用戶渴望有一種解決方案，使他們能夠將 Word 文檔的特定頁面作為 Outlook 電子郵件快速發送。 在這篇文章中，我們將詳細介紹這樣的方法。
如果你讀過我之前的文章“如何快速將Word文檔的特定頁面附加到Outlook電子郵件”，您可能傾向於要求一種可以直接將 Word 文檔的特定頁面作為電子郵件而不是作為電子郵件附件發送的方法。 下面我們給大家展示一段VBA代碼，可以輕鬆實現。
將 Word 文檔的特定頁面作為 Outlook 電子郵件發送
- 首先，您需要訪問要發送其特定頁面的源 Word 文檔。
- 然後，在打開的Word窗口中，您應該按“Alt + F11”按鈕。
- 它將顯示“Microsoft Visual Basic for Applications”窗口。
- 在此窗口中，您應該插入一個新模塊。
- 接下來，您需要啟用「Microsoft Outlook 物件庫」。
- 單擊“工具”並從下拉列表中選擇“參考”。
- 在彈出的對話方塊中，向下捲動直到看到「Microsoft Outlook 物件庫」。啟用它，然後按一下“確定”。
- 之後，您可以將下面的 VBA 代碼複製到該模塊中。
Sub SendSpecificPagesAsOutlookEmail()
Dim objSelectedPages As Word.Range
Dim objOutlookApp As Outlook.Application
Dim objMail As Outlook.MailItem
Dim objMailDocument As Word.Document
'Copy the contents from Page 3 to 4
'Change the page number as per your needs
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=3
Set objSelectedPages = Selection.Range
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=4
objSelectedPages.End = Selection.Bookmarks("\Page").Range.End
objSelectedPages.Select
objSelectedPages.Copy
'Get Outlook Application
On Error Resume Next
Set objOutlookApp = GetObject(, "Outlook.Application")
If objOutlookApp Is Nothing Then
Set objOutlookApp = CreateObject("Outlook.Application")
End If
'Create a new email
Set objMail = objOutlookApp.CreateItem(olMailItem)
objMail.Display
'Paste the contents in specific pages into message body
Set objMailDocument = objMail.GetInspector.WordEditor
Set objTempRange = objMailDocument.Range(0, 0)
objTempRange.PasteAndFormat (wdFormatOriginalFormatting)
End Sub
- 最終，您可以立即運行該宏。 只需在當前模塊中按“F5”鍵即可。
- 您可能會收到類似以下屏幕截圖的 Outlook 警告。 您可以直接點擊“允許”。
- 最終，您將收到一封電子郵件，其中包含 Word 文檔的特定頁面。
注意Outlook數據保護
您可能對 Outlook 中的大量功能感到非常滿意。 但是，它仍然存在缺陷。 例如，它很容易出現錯誤和損壞。 在這種情況下，您必須非常注意 Outlook 保護，包括定期備份 Outlook PST 文件。 此外，為謹慎起見，建議保持強大的 PST維修 實用程序，例如 DataNumen Outlook Repair。 它非常強大，可以從嚴重損壞的 Outlook 文件中提取最多的數據。
作者簡介：
Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 mdf維修 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM