MS Word нь хэрэглэгчдэд одоогийн Word баримтыг имэйлийн хавсралт болгон илгээх шууд функцтэй. Гэхдээ заримдаа та Word баримтын тодорхой хуудсуудыг Outlook имэйл рүү хавсаргана гэж найдаж болно. Одоо энэ нийтлэл танд нэг аргыг хуваалцах болно.
Word баримтыг бүхэлд нь MS Word програмын цахим шуудангийн хавсралт болгон илгээхийн тулд та зүгээр л "Файл" цэс рүү очоод "Хадгалах & Илгээх" таб руу шилжиж, "Хавсралт болгон илгээх" товчийг олох боломжтой. Гэсэн хэдий ч заримдаа таны илгээхийг хүссэн зүйл нь зөвхөн баримт бичгийн тодорхой хуудсууд байж болно. Энэ тохиолдолд та үүнийг хэрэгжүүлэхийн тулд дараах аргуудыг ашиглаж болно.
Word баримтын тодорхой хуудсуудыг имэйлд хавсаргана уу
- Юуны өмнө та и-мэйлээр илгээхийг хүссэн хуудсуудынхаа эх сурвалж Word баримтыг нээх хэрэгтэй.
- Дараа нь MS Word цонхонд орсны дараа та "Alt + F11" товчийг дарах хэрэгтэй.
- Дараа нь та MS Word дээрх VBA засварлагч руу нэвтрэх боломжтой болно.
- Үүний дараа та “Microsoft Outlook Object Library”-г идэвхжүүлэх хэрэгтэй. Үүнийг хийхийн тулд та “Tools” > “Reference” дээр дарна уу.
- Дараа нь та дараах 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 товчийг дарах эсвэл хэрэгслийн самбар дээрх "Ажиллуулах" дүрс дээр товшино уу.
- Макро ажиллаж дууссаны дараа дараах дэлгэцийн агшин шиг Word баримтаас ишлэл хавсаргасан шинэ Outlook имэйл гарч ирнэ.
Эвдэрсэн Outlook файлаас хамгийн их өгөгдлийг задлах
Хэрэв та Outlook-ийг хэдэн арван жил ашигласан бол попап доторх алдааны мессеж, гэнэтийн эвдрэл, файлын ноцтой гэмтэл зэрэг Outlook-ийн янз бүрийн асуудалтай тулгарсан байж магадгүй юм. Үүний улмаас Сканнердах, суурилуулсан засварын хэрэгсэл нь зөвхөн жижиг асуудлыг шийдэж чадна, та гадны хүчирхэг засах хэрэгслийг гартаа байлгасан нь дээр. DataNumen Outlook Repair. Энэ нь гэмтсэн Outlook өгөгдлийн файлаас хамгийн их өгөгдлийг гаргаж авах боломжтой.
Зохиогчийн танилцуулга:
Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com