Si të riemërtoni bashkëngjitjet kur përcjellni një email në Outlook

Ndonjëherë, kur përcillni një email që përmban disa bashkëngjitje, mund të dëshironi t'i riemërtoni bashkëngjitjet drejtpërdrejt kur i përcillni. Ky artikull do t'ju mësojë se si ta realizoni atë me Outlook VBA.

Si parazgjedhje, Outlook nuk e lejon përdoruesin të riemërtojë bashkëngjitjet gjatë përcjelljes. Prandaj, nëse dëshironi t'i riemërtoni, mënyra unike është që fillimisht t'i ruani skedarët në një dosje lokale në kompjuterin tuaj, pastaj t'i riemërtoni dhe më pas t'i ribashkoni ato në emailin e përcjelljes. Natyrisht, kjo metodë është mjaft e mundimshme. Për më tepër, ndonjëherë, këta skedarë mund të jenë të parëndësishëm për ju, kështu që vërtet nuk dëshironi t'i ruani ato në kompjuterin tuaj. Në këtë situatë, duhet të dëshironi një metodë më të shpejtë për t'ju lejuar të riemërtoni skedarët e bashkangjitur direkt në emailet e përcjelljes. Më poshtë është një qasje për ta realizuar atë përmes Outlook VBA.

Riemërtoni bashkëngjitjet kur përcillni një email

1. Në radhë të parë, hapni Outlook dhe shkoni te skeda "Zhvilluesi".
2. Pastaj gjeni dhe klikoni në butonin "Visual Basic".
3. Pas kësaj, në dritaren e re që shfaqet, hapni një modul të ri duke zgjedhur "Insert" > "Module".
4. Më pas, duhet të kopjoni dhe ngjisni kodet e mëposhtme VBA në të.

Sub RenameAttachmentsWhenForwarding()
    Dim olItem As MailItem
    Dim Att As Attachment
    Dim Atts As Attachments
    Dim olForward As MailItem
    Dim FWAtt As Attachment
    Dim FWAtts As Attachments
    Dim FSO As Object
    Dim TempFPath As Object
    Dim FilePath As String
    Dim strName As String
    Dim strExten As String
    Dim strFile As String
 
    Set olItem = Application.ActiveExplorer.Selection.Item(1)
    Set Atts = olItem.Attachments
    Set olForward = olItem.Forward
    olForward.Display
 
    On Error Resume Next
 
    For Each Att In Atts
        'Get the path to Temporary Folder
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set TempFPath = FSO.GetSpecialFolder(2)
        FilePath = TempFPath.Path & "\"
 
        'Rename the attachments
        strName = InputBox("Enter a new name for" & vbCrLf & Att.FileName)
        'Change "4" based on the length of the attachment file extension
        strExten = Right(Att.FileName, 4)
        strFile = FilePath & strName & "." & strExten
 
        If strName <> "" Then
           'Save the attachments to the Temporary Folder
           Att.SaveAsFile (strFile)
 
           'Add the attachments saved in new names from the Temporary Folder
           olForward.Attachments.Add (strFile)
           Set FWAtts = olForward.Attachments
 
           'Remove the original attachments
           For Each FWAtt In FWAtts
               If InStr(FWAtt.FileName, Att.FileName) > 0 Then
                  FWAtt.Delete
               End If
           Next
        End If
    Next
End Sub

5. Pas kësaj, mund të dilni nga dritarja aktuale "Visual Basic" dhe të vazhdoni të shtoni makro të re në shiritin e veglave të aksesit të shpejtë si zakonisht.
6. Më në fund mund të provoni.

• Së pari, zgjidhni një email dhe më pas klikoni butonin e ri makro në shiritin e veglave të aksesit të shpejtë.
• Më pas do të hapet një email i ri përcjellës. Ju mund t'i shihni skedarët e bashkangjitur në emrat origjinalë në rreshtin "Bashngjitur" dhe gjithashtu të merrni një kuti dialogu që ju kërkon të vendosni një emër të ri për një bashkëngjitje specifike.
• Pasi të specifikoni emrat e rinj për të gjithë skedarët dhe klikoni "OK", do të shihni se të gjithë skedarët e bashkangjitur janë në emrat e rinj.
• Përfundimisht mund të kompozoni emailet e përcjelljes dhe shtypni butonin "Dërgo" për të dërguar mesazhin.

Qëndroni vigjilent ndaj të gjitha kërcënimeve të mundshme për Outlook-in tuaj

Është e njohur se Outlook është i ndjeshëm ndaj korrupsionit. Prandaj, është një detyrë e gjatë për të mbrojtur të dhënat e Outlook kundër të gjitha kërcënimeve, duke përfshirë infeksionin nga viruset, sulmet e malware dhe Dëmtimi i të dhënave të Outlook PST, etj. Veprimi më i rëndësishëm është të bëni një kopje rezervë të rregullt për të dhënat tuaja të Outlook-ut. Gjithashtu, është e kujdesshme të mbani afër një mjet riparimi të nivelit të lartë, si p.sh. DataNumen Outlook Repair, e cila do të jetë e dobishme.

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ë riparoni mdf të dëmtuar dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com