Cum să redenumești atașamentele atunci când redirecționezi un e-mail în Outlook

Uneori, când redirecționați un e-mail care conține mai multe atașamente, este posibil să doriți să redenumiți atașamentele direct la redirecționare. Acest articol vă va învăța cum să realizați acest lucru cu Outlook VBA.

În mod implicit, Outlook nu permite utilizatorului să redenumească atașamentele la redirecționare. Prin urmare, dacă doriți să le redenumiți, modalitatea unică este să salvați mai întâi fișierele într-un folder local de pe computer, apoi să le redenumiți și apoi să le atașați din nou la e-mailul de redirecționare. Evident, această metodă este considerabil supărătoare. Mai mult, uneori, aceste fișiere pot fi neesențiale pentru tine, așa că chiar nu vrei să le salvezi pe computer. În această situație, trebuie să tânjiți după o metodă mai rapidă care să vă permită să redenumiți fișierele atașate direct în e-mailurile de redirecționare. Următoarea este o abordare pentru a o realiza prin Outlook VBA.

Redenumiți atașamentele când redirecționați un e-mail

1. În primul rând, lansați Outlook și mergeți la fila „Dezvoltator”.
2. Apoi localizați și faceți clic pe butonul „Visual Basic”.
3. După aceea, în noua fereastră pop-up, deschideți un nou modul selectând „Inserare” > „Modul”.
4. Ulterior, ar trebui să copiați și să lipiți următoarele coduri VBA în el.

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. După aceea, puteți ieși din fereastra curentă „Visual Basic” și puteți continua să adăugați noua macrocomandă la Bara de instrumente Acces rapid, ca de obicei.
6. În sfârșit poți încerca.

• În primul rând, selectați un e-mail și apoi faceți clic pe butonul macrocomand nou din bara de instrumente Acces rapid.
• Apoi se va deschide un nou e-mail de redirecționare. Puteți vedea fișierele atașate cu numele originale în linia „Atașat” și, de asemenea, puteți primi o casetă de dialog care vă solicită să introduceți un nume nou pentru un anumit atașament.
• După ce specificați nume noi pentru toate fișierele și faceți clic pe „OK”, veți vedea că toate fișierele atașate sunt în noile nume.
• În cele din urmă, puteți compune e-mailurile de redirecționare și puteți apăsa butonul „Trimite” pentru a trimite mesajul.

Fiți atenți la toate amenințările potențiale la adresa Outlook

Este recunoscut faptul că Outlook este susceptibil la corupție. Prin urmare, este o sarcină de lungă durată pentru a proteja datele Outlook împotriva tuturor amenințărilor, inclusiv infecție cu virusuri, atacuri malware și Deteriorarea datelor PST din Outlook, etc. Cea mai importantă acțiune este să faceți o copie de rezervă regulată pentru datele Outlook. De asemenea, este prudent să aveți la îndemână un instrument de reparare de ultimă generație, cum ar fi DataNumen Outlook Repair, care va veni la îndemână.

Introducerea autorului:

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