MS Word istifadəçilərə cari Word sənədini e-poçt əlavəsi kimi göndərmək üçün birbaşa funksiyaya malikdir. Ancaq bəzən, yalnız Word sənədinin xüsusi səhifələrini Outlook e-poçtuna əlavə etməyə ümid edə bilərsiniz. İndi bu məqalə sizə bir üsul paylaşacaq.
MS Word proqramında bütün Word sənədini e-poçt əlavəsi kimi göndərmək üçün sadəcə olaraq “Fayl” menyusuna keçib “Yaddaşa və Göndər” sekmesine keçə bilərsiniz, bunun altında “Əlavə olaraq göndər” düyməsini tapa bilərsiniz. Bununla belə, bəzən göndərmək istədiyiniz sənədin yalnız xüsusi səhifələri ola bilər. Bu vəziyyətdə, onu yerinə yetirmək üçün aşağıdakılarda təqdim olunan metoddan istifadə edə bilərsiniz.
Word Sənədinin Xüsusi Səhifələrini E-poçta əlavə edin
- Əvvəlcə, xüsusi səhifələrini e-poçtla göndərmək istədiyiniz mənbə Word sənədini açmalısınız.
- Sonra MS Word pəncərəsinə daxil olduqdan sonra “Alt + F11” düymələrini sıxmalısınız.
- Sonra, MS Word-də VBA redaktoruna giriş əldə edəcəksiniz.
- Bundan sonra, "Microsoft Outlook Obyekt Kitabxanası"nı aktivləşdirməlisiniz. Bunu etmək üçün "Alətlər" > "İstinad" düymələrinə basa bilərsiniz.
- Sonradan aşağıdakı VBA kodunu istifadə olunmayan modula kopyalamalısınız.
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
- Nəhayət, bu makronu işlədə bilərsiniz. Sadəcə F5 düyməsini sıxın və ya alətlər panelindəki “Çalış” işarəsinə toxunun.
- Makro tamamlandıqdan sonra, aşağıdakı ekran görüntüsü kimi mənbə Word sənədinin bir hissəsi ilə əlavə olunan yeni Outlook e-poçtu görünəcək:
Zərərli Outlook faylından maksimum məlumatı çıxarın
Əgər siz onilliklər ərzində Outlook-dan istifadə etmisinizsə, müxtəlif Outlook problemləri, o cümlədən popup daxili səhv mesajları, qəfil qəzalar və ciddi fayl zədələnməsi ilə qarşılaşmış ola bilərsiniz. Bununla əlaqədar olaraq scanpst, daxili təmir aləti, yalnız kiçik problemləri həll edə bilər, xarici güclü təmir alətini əlinizdə saxlasanız yaxşı olar, deyək DataNumen Outlook Repair. O, zədələnmiş Outlook məlumat faylından maksimum məlumat çıxarmağa qadirdir.
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 sql düzəliş və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com