Cara Cepat Menghantar Halaman Khusus Dokumen Word sebagai Email Outlook

Sebilangan pengguna menginginkan penyelesaian yang membolehkan mereka mengirim halaman tertentu dari dokumen Word sebagai e-mel Outlook dalam waktu yang cepat. Dalam artikel ini, kami akan memperkenalkan kaedah sedemikian secara terperinci.

Sekiranya anda telah membaca artikel saya sebelumnya “Cara Cepat Melampirkan Halaman Khusus Dokumen Word ke E-mel Outlook", Anda mungkin cenderung meminta metode yang dapat langsung mengirim halaman tertentu dari dokumen Word sebagai e-mel, bukan sebagai lampiran e-mel. Berikut ini, kami akan menunjukkan sekeping kod VBA, yang dapat merealisasikannya dengan mudah.

Hantar Halaman Khusus Dokumen Word sebagai E-mel Outlook

1. Sebagai permulaan, anda perlu mengakses dokumen Word sumber yang halamannya ingin anda hantar.
2. Kemudian, di tetingkap Word yang dibuka, anda harus menekan butang "Alt + F11".
3. Ini akan mengeluarkan tetingkap "Microsoft Visual Basic for Applications".
4. Di tetingkap ini, anda harus memasukkan modul baru.
5. Seterusnya, anda perlu mendayakan "Perpustakaan Objek Microsoft Outlook".

• Klik "Alat" dan pilih "Rujukan" dari senarai juntai bawah.
• Dalam kotak dialog timbul, tatal ke bawah sehingga anda melihat “Microsoft Outlook Object Library”. Dayakannya dan klik “OK”.

6. Selepas itu, anda boleh menyalin potongan kod VBA di bawah ke dalam modul ini.

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

7. Akhirnya, anda boleh menjalankan makro ini sekaligus. Cukup tekan butang "F5" pada modul semasa.
8. Anda mungkin menerima amaran Outlook seperti tangkapan skrin berikut. Anda boleh mengklik "Benarkan" secara langsung.
9. Pada akhirnya, anda akan mendapat e-mel yang mengandungi halaman tertentu dari dokumen Word.

Perhatikan Perlindungan Data Outlook

Anda mungkin berpuas hati dengan jumlah fungsi di Outlook. Tetapi, ia masih mengandungi kekurangan. Sebagai contoh, rentan terhadap kesalahan dan korupsi. Dalam kes ini, anda harus banyak memperhatikan perlindungan Outlook, termasuk menyandarkan fail Outlook PST anda pada selang waktu yang tetap. Selain itu, berhemah dan disarankan untuk tetap kuat Pembaikan PST utiliti, seperti DataNumen Outlook Repair. Sangat kuat sehingga dapat mengekstrak data maksimum dari fail Outlook yang rosak teruk.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pembaikan mdf dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com