Si të përcillni shpejt një email vetëm me bashkëngjitje të zgjedhura përmes Outlook VBA

Kur përcillni një email të Outlook që ka bashkëngjitje, ndonjëherë mund të dëshironi të mbani vetëm bashkëngjitjet e zgjedhura në vend të të gjithave. Tani, në këtë artikull, ne do t'ju mësojmë se si të përcillni shpejt një email vetëm me bashkëngjitje të zgjedhura.

Në mënyrën standarde, kur përcillni një email të Outlook, të gjitha bashkëngjitjet origjinale do të përcillen. Megjithatë, ndonjëherë, ju dëshironi të dërgoni vetëm disa bashkëngjitje në vend të të gjitha. Në përgjithësi, ju mund ta përcillni emailin si zakonisht dhe më pas t'i fshini manualisht bashkëngjitjet e padëshiruara. Por, është pak e mundimshme. Prandaj, këtu do t'ju prezantojmë një metodë shumë më të shpejtë për të përcjellë një email vetëm me bashkëngjitje të zgjedhura.

Përcillni shpejt një email vetëm me bashkëngjitje të zgjedhura

1. Që në fillim, hapni redaktorin VBA të Outlook përmes shkurtores "Alt + F11".
2. Pastaj, kopjoni dhe ngjisni kodin e mëposhtëm në një projekt ose 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. Tjetra, dilni nga redaktori VBA.
4. Pas kësaj, ndiqni "Hapin opsional" në fost "Si të ekzekutoni kodin VBA në Outlook tuaj” për të shtuar këtë makro në shiritin e veglave ose shiritin e aksesit të shpejtë.
5. Më në fund, mund ta provoni këtë makro.

• Së pari, sigurohuni që paneli i leximit të jetë i ndezur.
• Më pas, zgjidhni një email dhe bashkëngjitjet që dëshironi të përcillni.
• Më pas, klikoni butonin makro në shiritin ose shiritin e veglave të aksesit të shpejtë.
• Menjëherë do të shfaqet një email i ri. Siç mund ta shihni, është një email përcjellës me vetëm bashkëngjitje të zgjedhura.

Rregulloni korrupsionin e të dhënave Knotty Outlook

A keni hasur ndonjëherë në dështimin e Outlook? Dhe a kanë rezultuar përplasje të tilla në korrupsion të të dhënave të PST? Nëse keni hasur ndonjëherë në çështje të tilla, mund ta keni kuptuar se sa nyje dhe shqetësuese janë ato. Zakonisht, problemet e vogla mund të zgjidhen me mjetin e riparimit të Inbox. Por, për problemet serioze, si Perspektiva e korrupsionit, duhet të përdorni një mjet më të fuqishëm, si p.sh DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë SQL Server fix dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com