Word құжатының нақты беттерін Outlook электрондық поштасына қалай жылдам бекіту керек

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

MS Word-та қолданушыларға ағымдағы Word құжатын электрондық пошта тіркемесі ретінде жіберуге қолдау көрсететін тікелей мүмкіндік бар. Бірақ кейде сіз Word құжатының нақты беттерін Outlook электрондық поштасына қосуға үміттенесіз. Енді, бұл мақала сізге әдісті ұсынады.

Барлық Word құжатын MS Word қосымшасында электрондық пошта тіркемесі ретінде жіберу үшін жай «Файл» мәзіріне өтіп, «Сақтау және жіберу» қойындысына ауысуға болады, оның астында «Тіркеме ретінде жіберу» батырмасы болады. Кейде сіз жібергіңіз келетін нәрсе тек құжаттың нақты беттері болуы мүмкін. Бұл жағдайда сіз оны орындау үшін төменде келтірілген әдісті қолдана аласыз.

Word құжатының нақты беттерін Outlook электрондық поштасына жылдам бекітіңіз

Электрондық поштаға Word құжатының нақты беттерін тіркеңіз

  1. Біріншіден, сіз нақты беттерін электрондық пошта арқылы жібергісі келетін Word құжатын ашыңыз.
  2. Содан кейін, MS Word терезесіне енгеннен кейін «Alt + F11» батырмаларын басу керек.
  3. Содан кейін сіз MS Word бағдарламасындағы VBA редакторына кіре аласыз.
  4. Осыдан кейін сіз «Microsoft Outlook нысан кітапханасын» қосуыңыз керек. Ол үшін «Құралдар» > «Сілтеме» тармақтарын басуға болады.
  5. Кейіннен сіз келесі VBA кодын пайдаланылмаған модульге көшіруіңіз керек.
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

VBA коды - Word құжатының арнайы беттерін электрондық поштаға тіркеңіз

  1. Соңында, сіз осы макросты іске қоса аласыз. Тек F5 пернесін басыңыз немесе құралдар тақтасындағы «Іске қосу» белгішесін түртіңіз.
  2. Макросты аяқтағаннан кейін, келесі скриншот сияқты бастапқы Word құжатының үзіндісімен қоса жаңа Outlook электрондық поштасы шығады:Жаңа электрондық пошта

Бұзылған Outlook файлынан максималды деректерді шығарып алыңыз

Егер сіз Outlook бағдарламасын бірнеше ондаған жылдар бойы қолданған болсаңыз, сіз Outlook бағдарламасындағы әртүрлі мәселелермен, соның ішінде қалқымалы ішкі хабарламалармен, кенеттен бұзылулармен және файлдың елеулі зақымдалуымен бетпе-бет келуіңіз мүмкін. Бұл факт байланысты СканерлеуКіріктірілген жөндеу құралы тек кішігірім мәселелерді шеше алады, егер сіз сыртқы қуатты түзету құралын ыңғайлы ұстасаңыз жақсы болар еді DataNumen Outlook Repair. Ол бүлінген Outlook деректер файлынан максималды деректерді шығара алады.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. sql түзету және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.