Олон имэйлийн бүх хавсралтыг Outlook дээр шинэ имэйл рүү хэрхэн хуулж авах вэ

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

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

Олон имэйлийн бүх хавсралтыг шинэ имэйл рүү багцаар хуулах

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

Sub NewEmailwithAttachmentsinSeveralEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim strFilePath As String
    Dim objNewMail As Outlook.MailItem
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
 
    On Error Resume Next
    For Each objMail In objSelection
        For Each objAttachment In objMail.attachments
 
            'Save all the attachments to temporary folder
            Set objFileSystem = CreateObject("Scripting.FileSystemObject")
            strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
            objAttachment.SaveAsFile (strFilePath)
 
            'Add the attachments to the new email
             objNewMail.attachments.Add (strFilePath)
 
            'Delete the temporary files
            objFileSystem.DeleteFile (strFilePath)
        Next
    Next
 
    'Show the new email
    objNewMail.Display
End Sub

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

• Нэгдүгээрт, “Ctrl” товчийг дараад хавсралтаа хуулахыг хүссэн хэд хэдэн имэйлийг сонгоно уу.
• Дараа нь Quick Access Toolbar дээрх шинэ макро товчийг дарна уу.
• Нэн даруй бүх хавсралтыг хавсаргасан шинэ имэйл гарч ирнэ.

Урьдчилан сэргийлэх байнгын давтамжтай холбоотой асуудлуудыг сорих

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

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

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