Word hujjatining maxsus sahifalarini Outlook elektron pochtasiga qanday tezda biriktirish mumkin

MS Word foydalanuvchilarga joriy Word hujjatini elektron pochta ilovasi sifatida yuborishni qo'llab-quvvatlaydigan bevosita xususiyatga ega. Ammo ba'zida siz faqat Word hujjatining maxsus sahifalarini Outlook elektron pochtasiga biriktirishingiz mumkin. Endi ushbu maqola sizga bir usul bilan o'rtoqlashadi.

MS Word ilovasida butun Word hujjatini elektron pochta ilovasi sifatida yuborish uchun siz shunchaki "Fayl" menyusiga o'tishingiz va "Saqlash va yuborish" yorlig'iga o'tishingiz mumkin, uning ostida "Ilova sifatida yuborish" tugmachasini topishingiz mumkin. Biroq, ba'zida siz yubormoqchi bo'lgan narsa faqat hujjatning muayyan sahifalari bo'lishi mumkin. Bunday vaziyatda uni amalga oshirish uchun siz quyida keltirilgan usuldan foydalanishingiz mumkin.

Word hujjatining maxsus sahifalarini elektron pochtaga biriktiring

1. Avvalo, siz elektron pochta orqali yubormoqchi bo'lgan ma'lum sahifalarini manba Word hujjatini ochishingiz kerak.
2. Keyin, MS Word oynasiga kirganingizdan so'ng, "Alt + F11" tugmachalarini bosishingiz kerak.
3. Keyinchalik, siz MS Word-dagi VBA muharririga kirish huquqiga ega bo'lasiz.
4. Shundan so'ng, siz "Microsoft Outlook Object Library" ni yoqishingiz kerak. Bunga erishish uchun "Tools" > "Reference" ni bosishingiz mumkin.
5. Keyinchalik, siz quyidagi VBA kodini ishlatilmaydigan modulga nusxalashingiz kerak.

Sub AttachSpecificPagesToOutlookEmail()
    Dim strDocumentName As String
    Dim objSelectedPages As Word.Range
    Dim objTempDocument As Word.Document
    Dim objTempRange As Word.Range
    Dim i As Long
    Dim strTempDocument As String
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
 
    strDocumentName = Left(ActiveDocument.Name, InStr(ActiveDocument.Name, ".") - 1)
 
    'Copy the contents from Page 2 to 4
    'You can change the page as per your own needs
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2
    Set objSelectedPages = Selection.Range
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=4
    objSelectedPages.End = Selection.Bookmarks("\Page").Range.End
    objSelectedPages.Select
    objSelectedPages.Copy
 
    'Paste the copied contents into a new Word Document
    Set objTempDocument = Word.Application.Documents.Add
    objTempDocument.Activate
    Set objTempRange = objTempDocument.Range(0, 0)
    objTempRange.PasteAndFormat (wdFormatOriginalFormatting)

    For i = objTempDocument.Paragraphs.Count To 1 Step -1
        If Len(objTempDocument.Paragraphs(i).Range) = 1 Then
           objTempDocument.Paragraphs(i).Range.Delete
        Else
           Exit For
        End If
    Next i
 
    'Save this document
    strTempDocument = "E:\" & strDocumentName & " (Excerpt).doc"
    objTempDocument.SaveAs2 strTempDocument, wdFormatDocument
 
    'Attach the new document to a new Outlook email
    On Error Resume Next
    Set objOutlookApp = GetObject(, "Outlook.Application")
    If objOutlookApp Is Nothing Then
       Set objOutlookApp = CreateObject("Outlook.Application")
    End If
 
    Set objMail = objOutlookApp.CreateItem(olMailItem)
    objMail.Attachments.Add (strTempDocument)
    objMail.Display
 
    objTempDocument.Close False
    Kill strTempDocument
End Sub

6. Nihoyat, ushbu makrosni ishga tushirishingiz mumkin. Faqat F5 tugmachasini bosing yoki asboblar panelidagi "Ishga tushirish" belgisini bosing.
7. Makros tugagandan so'ng, quyidagi skrinshot kabi manba Word hujjatidan ko'chirma bilan biriktirilgan yangi Outlook elektron pochta xabari ko'rsatiladi:

Buzuq Outlook faylidan maksimal ma'lumotlarni ajratib oling

Agar siz Outlook-dan o'nlab yillar davomida foydalangan bo'lsangiz, turli xil Outlook muammolariga duch kelgan bo'lishingiz mumkin, jumladan, qalqib chiquvchi ichki xato xabarlari, to'satdan ishdan chiqishlar va jiddiy fayl shikastlanishi. Shu sababli Scanpst, o'rnatilgan ta'mirlash vositasi faqat kichik muammolarni hal qila oladi, tashqi kuchli tuzatish vositasini qo'lingizda ushlab turganingiz ma'qul. DataNumen Outlook Repair. U shikastlangan Outlook ma'lumotlar faylidan maksimal ma'lumotlarni tortib olishga qodir.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com