MS Word are o funcție directă care îi ajută pe utilizatori să trimită documentul Word curent ca atașament la e-mail. Dar, uneori, s-ar putea să sperați doar să atașați paginile specifice ale unui document Word la un e-mail Outlook. Acum, acest articol vă va împărtăși o metodă.
Pentru a trimite un întreg document Word ca atașament de e-mail în aplicația MS Word, puteți pur și simplu să mergeți la meniul „Fișier” și să treceți la fila „Salvare și trimitere”, sub care puteți găsi un buton „Trimite ca atașament”. Cu toate acestea, uneori, ceea ce doriți să trimiteți poate fi doar anumite pagini ale documentului. În această situație, puteți utiliza metoda introdusă în cele ce urmează pentru a o realiza.
Atașați paginile specifice ale unui document Word la un e-mail
- În primul rând, ar trebui să deschideți documentul Word sursă ale cărui pagini specifice doriți să le trimiteți prin e-mail.
- Apoi, după ce ați intrat în fereastra MS Word, trebuie să apăsați butoanele tastei „Alt + F11”.
- Apoi, veți avea acces la editorul VBA în MS Word.
- După aceea, trebuie să activați „Microsoft Outlook Object Library”. Puteți accesa „Tools” > „Reference” pentru a realiza acest lucru.
- Ulterior, ar trebui să copiați următorul cod VBA într-un modul care nu este utilizat.
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 cele din urmă, puteți rula această macrocomandă. Doar apăsați butonul F5 sau atingeți pictograma „Run” din bara de instrumente.
- După terminarea macrocomenzii, se va afișa un nou e-mail Outlook, care este atașat cu un extras din documentul Word sursă, cum ar fi următoarea captură de ecran:
Extrageți maximum de date din fișierul Outlook corupt
Dacă ați folosit Outlook de zeci de ani, este posibil să fi fost confruntat cu diverse probleme Outlook, inclusiv mesaje de eroare interioare pop-up, blocări bruște, precum și daune grave ale fișierelor. Datorită faptului că Scanpst, instrument de reparare încorporat, poate face față doar problemelor mici, ar fi bine să țineți la îndemână un instrument de reparare puternic extern, să zicem DataNumen Outlook Repair. Este capabil să extragă date maxime din fișierul de date Outlook deteriorat.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv remediere sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com