Outlook дээр бүх хүснэгтүүдийг нэг имэйлээс нөгөө имэйл рүү хэрхэн хурдан хуулах вэ

Outlook дээр бүх хүснэгтүүдийг нэг имэйлээс нөгөө имэйл рүү хуулж, хуулж авах шаардлагатай үед гараар хийх нь эргэлзээгүй уйтгартай бөгөөд төвөгтэй байдаг. Энэ нийтлэл танд илүү ухаалаг аргыг хуваалцах болно.

Заримдаа та өөр имэйлийн хүснэгтүүдийг агуулсан шинэ имэйл үүсгэхийг хүсч магадгүй юм. Хэрэв имэйлд зөвхөн нэг хүснэгт байгаа бол энэ нь маш хялбар байдаг. Гэсэн хэдий ч эх имэйлд олон хүснэгт байгаа бол гараар хуулах нь хэтэрхий уйтгартай юм. Тиймээс, дараахь зүйлүүдэд бид илүү үр дүнтэй, ухаалаг өөр аргыг танилцуулах болно.

Бүх хүснэгтүүдийг нэг имэйлээс нөгөө имэйлээр хуулах

1. Эхлээд та Outlook руугаа ердийнхөөрөө хандах хэрэгтэй.
2. Дараа нь Outlook-ийн үндсэн цонхонд та "Alt + F11" товчлуурыг дарж болно.
3. Дараа нь, "Microsoft Visual Basic for Applications" цонхонд та ашиглагдаагүй модулийг нээх эсвэл шинээр оруулах хэрэгтэй.
4. Дараа нь та дараахь VBA кодыг энэ модуль руу хуулж болно.

Sub CopyAllTablesFromOneEmailToAnother()
    Dim objSourceMail As Outlook.MailItem
    Dim objSourceMailDocument As Word.Document
    Dim objNewMail As Outlook.MailItem
    Dim objNewMailDocument As Word.Document
    Dim objTable As Word.Table
 
    'Get the source email
    Select Case TypeName(Application.ActiveWindow)
           Case "Explorer"
                Set objSourceMail = ActiveExplorer.Selection.Item(1)
                objSourceMail.Display
           Case "Inspector"
                Set objSourceMail = ActiveInspector.CurrentItem
    End Select
 
    Set objSourceMailDocument = objSourceMail.GetInspector.WordEditor
 
    If objSourceMailDocument.Tables.count > 0 Then
 
       'Create a new email
       Set objNewMail = Application.CreateItem(olMailItem)
 
       For Each objTable In objSourceMailDocument.Tables
           Set objNewMailDocument = objNewMail.GetInspector.WordEditor
 
           'Copy all tables from source email to the new email
           With objNewMailDocument.Range
                .Collapse wdCollapseEnd
                .FormattedText = objTable.Range.FormattedText
                .Collapse wdCollapseEnd
                .Text = vbCrLf
           End With
      Next
 
      'Close the source email
      objSourceMail.Close olSave
      'Display the new email
      objNewMail.Display
    End If
End Sub

5. Үүний дараа та одоогийн VBA засварлагч цонхноос гарах боломжтой.
6. Дараа нь та бүх макро идэвхжүүлэхийн тулд Outlook макро тохиргоогоо өөрчлөх хэрэгтэй.
7. Түүнчлэн, энэ макрог "Outlook Options" дээр хийж болох Quick Access Toolbar дээр нэмэх нь дээр.
8. Эцэст нь та дараах зүйлийг туршиж үзээрэй.

• Хамгийн эхэнд хүснэгтүүдийг хуулбарлах имэйлийг нээх эсвэл сонгоно уу.
• Дараа нь Quick Access Toolbar дээр шинээр нэмсэн макро товчийг дарна уу.
• Макро ажиллаж дууссаны дараа эх имэйлийн хүснэгтүүдийг наасан шинэ имэйл гарч ирнэ.

Outlook файлыг авлигын эсрэг хамгаалах

Хэдийгээр Outlook нь бие даасан имэйлийн клиент эсвэл хувийн хуваарийн менежер байхаас үл хамааран сайн үүрэг гүйцэтгэдэг боловч алдаа, завхралаас хамгаалж чадахгүй хэвээр байна. Тиймээс Outlook өгөгдлөө хамгаалах нь хүнд, уйтгартай ажил болох нь дамжиггүй. Та сэжигтэй холбоосыг бүү дар, аюултай хавсралтыг татаж ав, Outlook-ийг буруу хаах гэх мэт өдөр тутмын зан үйлийнхээ цонхыг хадгалах хэрэгтэй. Мэдээжийн хэрэг, танд од засах хэрэгслийг ойролцоо байлгах хэрэгтэй DataNumen Outlook Repair энэ нь боломжтой Outlook програмыг засах сэвшээ салхи шиг бэрхшээлүүд.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. mdf засвар програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com