MS Word-ն ունի ուղղակի հնարավորություն, որն աջակցում է օգտվողներին ուղարկել ընթացիկ Word փաստաթուղթը որպես էլփոստի հավելված: Բայց երբեմն, դուք կարող եք միայն հույս ունենալ, որ կցեք Word փաստաթղթի կոնկրետ էջերը Outlook-ի էլ. Այժմ այս հոդվածը ձեզ կկիսվի մի մեթոդով:
Ամբողջ Word փաստաթուղթը որպես էլփոստի հավելված MS Word հավելվածում ուղարկելու համար կարող եք պարզապես գնալ «Ֆայլ» ընտրացանկից և անցնել «Պահպանել և ուղարկել» ներդիրը, որի տակ կարող եք գտնել «Ուղարկել որպես հավելված» կոճակը: Այնուամենայնիվ, երբեմն այն, ինչ ցանկանում եք ուղարկել, կարող է լինել միայն փաստաթղթի որոշակի էջեր: Այս իրավիճակում այն իրականացնելու համար կարող եք օգտագործել ստորև ներկայացված մեթոդը:
Կցեք Word փաստաթղթի հատուկ էջերը էլփոստին
- Նախ, դուք պետք է բացեք աղբյուրի Word փաստաթուղթը, որի կոնկրետ էջերը ցանկանում եք ուղարկել էլ.
- Այնուհետև MS Word-ի պատուհան մտնելուց հետո պետք է սեղմել «Alt + F11» ստեղնային կոճակները:
- Հաջորդը, դուք կստանաք մուտք դեպի VBA խմբագրիչ MS Word-ում:
- Դրանից հետո դուք պետք է միացնեք «Microsoft Outlook Object Library»-ն։ Կարող եք սեղմել «Գործիքներ» > «Հղում»՝ այն գործարկելու համար։
- Այնուհետև դուք պետք է պատճենեք հետևյալ 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
- Ի վերջո, դուք կարող եք գործարկել այս մակրոն: Պարզապես սեղմեք F5 կոճակը կամ հպեք «Գործարկել» պատկերակին գործիքագոտում:
- Մակրոյի ավարտից հետո կցուցադրվի նոր Outlook էլ.
Արտահանեք առավելագույն տվյալները կոռումպացված Outlook ֆայլից
Եթե դուք տասնամյակներ շարունակ օգտագործել եք Outlook-ը, հնարավոր է, որ դուք բախվել եք Outlook-ի տարբեր խնդիրների, այդ թվում՝ բացվող ներքին սխալի հաղորդագրությունների, հանկարծակի խափանումների, ինչպես նաև ֆայլի լուրջ վնասների հետ: Շնորհիվ այն բանի, որ Սկանպստ, ներկառուցված վերանորոգման գործիքը, կարող է միայն փոքր խնդիրներ լուծել, ավելի լավ է, որ ձեր ձեռքի տակ պահեք արտաքին հզոր ամրագրման գործիք, ասենք. DataNumen Outlook Repair. Այն ի վիճակի է դուրս բերել առավելագույն տվյալներ վնասված Outlook տվյալների ֆայլից:
Հեղինակի ներածություն.
Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում sql ֆիքս և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com