Cum să redirecționați rapid un e-mail cu atașamentele selectate numai prin Outlook VBA

Când redirecționați un e-mail Outlook care are atașamente, uneori, este posibil să doriți să păstrați doar atașamentele selectate în loc de toate. Acum, în acest articol, vă vom învăța cum să redirecționați rapid un e-mail numai cu atașamentele selectate.

În mod standard, atunci când redirecționați un e-mail Outlook, toate atașamentele originale vor fi redirecționate. Cu toate acestea, uneori, doriți să trimiteți doar câteva atașamente în loc de toate. În general, puteți redirecționa e-mailul ca de obicei și apoi puteți șterge manual atașamentele nedorite. Dar, este un pic supărător. Prin urmare, aici vă vom prezenta o metodă mult mai rapidă de a redirecționa un e-mail doar cu atașamentele selectate.

Redirecționați rapid un e-mail numai cu atașamentele selectate

1. De la bun început, lansați editorul Outlook VBA prin intermediul comenzii rapide „Alt + F11”.
2. Apoi, copiați și inserați următorul cod într-un proiect sau modul.

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. Apoi, ieșiți din editorul VBA.
4. După aceea, urmați „Pasul opțional” din pagost Cum să rulați codul VBA în Outlook” pentru a adăuga această macrocomandă în Bara de instrumente Acces rapid sau în panglică.
5. În cele din urmă, puteți încerca această macrocomandă.

• În primul rând, asigurați-vă că panoul de citire este pornit.
• Apoi, selectați un e-mail și atașamentele pe care doriți să le redirecționați.
• Apoi, faceți clic pe butonul macro din Bara de instrumente Acces rapid sau din panglică.
• Imediat, se va afișa un nou e-mail. După cum puteți vedea, este un e-mail de redirecționare cu doar atașamente selectate.

Remediați corupția datelor Knotty Outlook

Ați întâlnit vreodată un accident de Outlook? Și astfel de blocări au dus la coruperea datelor PST? Dacă te-ai confruntat vreodată cu astfel de probleme, poate ți-ai dat seama cât de noduri și supărătoare sunt. De obicei, problemele mici pot fi rezolvate cu instrumentul de reparare Inbox. Dar, pentru necazurile grave, de exemplu corupție Outlook, trebuie să utilizați un utilitar mai puternic, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv SQL Server stabili și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com