Зөвхөн Outlook VBA-ээр сонгосон хавсралттай имэйлийг хэрхэн хурдан дамжуулах вэ

Хавсралттай Outlook имэйлийг дамжуулахдаа зарим тохиолдолд хавсралтын оронд зөвхөн сонгосон хавсралтыг хадгалахыг хүсч магадгүй юм. Одоо энэ нийтлэлд бид зөвхөн сонгосон хавсралтаар мэйлийг хэрхэн хурдан дамжуулахыг зааж өгөх болно.

Стандарт аргаар Outlook имэйлийг дамжуулахад бүх эх хавсралтыг дамжуулах болно. Гэсэн хэдий ч, зарим тохиолдолд та зөвхөн хавсралтыг бүгдийг нь дамжуулахыг хүсдэг. Ерөнхийдөө та имэйлийг ердийн байдлаар дамжуулж, дараа нь хүсээгүй хавсралтыг гараар устгах боломжтой. Гэхдээ энэ нь жаахан асуудалтай юм. Тиймээс энд зөвхөн сонгосон хавсралтаар имэйл дамжуулах илүү хурдан аргыг танд танилцуулах болно.

Зөвхөн сонгосон хавсралттай имэйлийг хурдан дамжуулах

1. Хамгийн эхэнд Outlook VBA редакторыг “Alt + F11” товчлолоор дамжуулан ажиллуулна уу.
2. Дараа нь дараахь кодыг хуулж аваад төсөл эсвэл модульд оруулна уу.

Sub ForwardMailWithSelectedAttachmentsOnly()
    Dim objMail As Outlook.MailItem
    Dim strTempFolder As String
    Dim strFile As String
    Dim objSelectedAttachments As Outlook.AttachmentSelection
    Dim objAttachment As Outlook.Attachment
    Dim objForward As Outlook.MailItem
 
    'Get the selected email
    Set objMail = Outlook.Application.ActiveExplorer.Selection.Item(1)
 
    'Get the selected attachments
    Set objSelectedAttachments = Outlook.Application.ActiveExplorer.AttachmentSelection
    If objSelectedAttachments.Count > 0 Then
       'Forward this email
       Set objForward = objMail.Forward
       objForward.Display
 
       'Delete all the forwarded attachments
       Do Until objForward.Attachments.Count = 0
          objForward.Attachments.Item(1).Delete
       Loop
 
       On Error Resume Next
       strTempFolder = "E:\Temp" & Format(Now, "yyymmddhhmmss") & "\"
       MkDir (strTempFolder)
 
       'Re-attach the selected attachments to the forward mail
       For Each objAttachment In objSelectedAttachments
           strFile = strTempFolder & objAttachment.FileName
           objAttachment.SaveAsFile (strFile)
           objForward.Attachments.Add (strFile)
       Next
 
       Kill strFile
    End If
End Sub

3. Дараа нь VBA редактороос гарна уу.
4. Үүний дараа өмнөх хуудасны "Нэмэлт алхам" -ыг дагана ууost "Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ"Энэ макрог Quick Access Toolbar эсвэл туузан дээр нэмэх.
5. Эцэст нь та энэ макро оролдож болно.

• Эхлээд унших самбарыг асаасан эсэхийг шалгаарай.
• Дараа нь имэйл болон дамжуулахыг хүссэн хавсралтаа сонгоно уу.
• Дараа нь Quick Access Toolbar эсвэл тууз дээрх макро товчийг дарна уу.
• Нэг дор шинэ имэйл гарч ирнэ. Таны харж байгаагаар энэ бол зөвхөн сонгосон хавсралт бүхий дамжуулах имэйл юм.

Knotty Outlook мэдээллийн авлигыг засах

Та Outlook-ийн сүйрэлтэй тулгарч байсан уу? Иймэрхүү ослын улмаас PST өгөгдлийн авлига гарсан уу? Хэрэв та өмнө нь ийм асуудалтай тулгарч байсан бол тэд хичнээн зангилаа, асуудалтай байдгийг ойлгосон байх. Ихэнх тохиолдолд жижиг асуудлуудыг Inbox засах хэрэгслээр шийдэж болно. Гэхдээ ноцтой бэрхшээлүүдийн хувьд Авлигын төлөв байдалгэх мэт илүү хүчирхэг хэрэгслийг ашиглах хэрэгтэй DataNumen Outlook Repair.

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

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