Word sənədinin xüsusi səhifələrini Outlook e-poçtu kimi necə tez göndərmək olar

Bəzi istifadəçilər Word sənədinin xüsusi səhifələrini tez bir zamanda Outlook e-poçtu kimi göndərməyə imkan verən bir həll axtarırlar. Bu yazıda belə bir üsulu ətraflı şəkildə təqdim edəcəyik.

Əvvəlki məqaləmi oxumusunuzsa "Word sənədinin xüsusi səhifələrini Outlook e-poçtuna necə tez əlavə etmək olar", siz Word sənədinin xüsusi səhifələrini e-poçt əlavəsi kimi deyil, birbaşa e-poçt kimi göndərə biləcək bir üsul istəyə bilərsiniz. İndi, aşağıda, biz sizə asanlıqla həyata keçirə biləcək bir VBA kodunu göstərəcəyik.

Word Sənədinin Xüsusi Səhifələrini Outlook E-poçtu kimi göndərin

1. Başlamaq üçün, xüsusi səhifələrini göndərmək istədiyiniz mənbə Word sənədinə daxil olmalısınız.
2. Sonra açılan Word pəncərəsində “Alt + F11” düymələrini sıxmalısınız.
3. O, "Proqramlar üçün Microsoft Visual Basic" pəncərəsini çıxaracaq.
4. Bu pəncərədə siz yeni modul daxil etməlisiniz.
5. Növbəti addım olaraq, "Microsoft Outlook Obyekt Kitabxanası"nı aktivləşdirməlisiniz.

• "Alətlər" düyməsini basın və açılan siyahıdan "İstinad" seçin.
• Açılan informasiya qutusunda "Microsoft Outlook Obyekt Kitabxanası"nı görənə qədər aşağı diyirləyin. Onu aktivləşdirin və "OK" düyməsini basın.

6. Bundan sonra, aşağıdakı VBA kodu parçasını bu modula köçürə bilərsiniz.

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. Nəhayət, bu makronu bir anda işə sala bilərsiniz. Cari modulda "F5" düyməsini sıxmaq kifayətdir.
8. Aşağıdakı ekran görüntüsü kimi Outlook xəbərdarlığı ala bilərsiniz. Birbaşa "İcazə ver" düyməsini klikləyə bilərsiniz.
9. Nəhayət, Word sənədinin xüsusi səhifələrini ehtiva edən bir e-poçt alacaqsınız.

Outlook məlumatların qorunmasına diqqət yetirin

Outlook-da funksiyaların miqdarından xeyli razı ola bilərsiniz. Ancaq yenə də qüsurları ehtiva edir. Məsələn, səhvlərə və korrupsiyaya həssasdır. Bu halda, Outlook PST fayllarınızı müntəzəm olaraq ehtiyat nüsxəsini çıxarmaq da daxil olmaqla, Outlook qorunmasına çox diqqət yetirməlisiniz. Bundan əlavə, ehtiyatlı və güclü saxlamaq üçün təklif olunur PST təmiri kimi faydalılıq DataNumen Outlook Repair. O qədər güclüdür ki, ciddi şəkildə zədələnmiş Outlook faylından maksimum məlumat çıxara bilər.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc mdf təmiri və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com