Kuidas manuseid Outlookis meili edastamisel ümber nimetada

Mõnikord, kui edastate mitut manust sisaldava meili, võite soovida manused edastamisel otse ümber nimetada. See artikkel õpetab teile, kuidas seda Outlook VBA abil teha.

Vaikimisi ei luba Outlook kasutajal manuseid edastamisel ümber nimetada. Seega, kui soovite neid ümber nimetada, on ainulaadne viis esmalt salvestada failid oma arvuti kohalikku kausta, seejärel nimetada need ümber ja järgmisena uuesti edastamismeilile manustada. Ilmselgelt on see meetod märkimisväärselt tülikas. Lisaks võivad need failid mõnikord olla teie jaoks ebaolulised, nii et te ei soovi neid tõesti arvutisse salvestada. Sellises olukorras peate igatsema kiiremat meetodit, mis võimaldab manustatud faile otse edasisaatmismeilides ümber nimetada. Järgmine on lähenemine selle realiseerimiseks Outlook VBA kaudu.

Nimetage e-kirja edastamisel manused ümber

1. Kõigepealt käivitage Outlook ja minge vahekaardile "Arendaja".
2. Seejärel leidke ja klõpsake nuppu "Visual Basic".
3. Pärast seda avage uues hüpikaknas uus moodul, valides "Lisa" > "Moodul".
4. Seejärel peaksite sellesse kopeerima ja kleepima järgmised VBA-koodid.

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. Pärast seda saate praegusest Visual Basicu aknast väljuda ja jätkata uue makro lisamist kiirpääsuribale nagu tavaliselt.
6. Lõpuks saate proovida.

• Esiteks valige meil ja seejärel klõpsake kiirjuurdepääsu tööriistaribal uut makro nuppu.
• Seejärel avaneb uus suunamismeil. Näete manustatud faile algsete nimedega real "Attached" ja saate ka dialoogiboksi, mis nõuab konkreetsele manusele uue nime sisestamist.
• Pärast kõikidele failidele uute nimede määramist ja nuppu "OK" klõpsamist näete, et kõik lisatud failid on uute nimedega.
• Lõpuks saate koostada edastamismeilid ja vajutada sõnumi saatmiseks nuppu "Saada".

Olge valvel kõigi oma Outlooki potentsiaalsete ohtude suhtes

On teada, et Outlook on korruptsioonile vastuvõtlik. Seega on Outlooki andmete kaitsmine kõigi ohtude eest, sealhulgas viirusnakkus, pahavara rünnak ja Outlooki PST andmete kahjustusjne. Kõige olulisem on oma Outlooki andmete regulaarne varukoopiate tegemine. Samuti on mõistlik hoida käepärast tipptasemel parandustööriista, näiteks DataNumen Outlook Repair, mis tuleb kasuks.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas kahjustatud mdf parandamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom