Néha, amikor több mellékletet tartalmazó e-mailt továbbít, érdemes lehet közvetlenül átnevezni a mellékleteket a továbbítás során. Ebből a cikkből megtudhatja, hogyan érheti el ezt az Outlook VBA-val.
Alapértelmezés szerint az Outlook nem engedélyezi a felhasználónak a mellékletek átnevezését továbbításkor. Ezért, ha át szeretné nevezni őket, az egyedülálló módszer az, hogy először menti a fájlokat egy helyi mappába a számítógépen, majd nevezi át őket, és ezután újra csatolja őket a továbbítási e-mailhez. Nyilvánvaló, hogy ez a módszer meglehetősen kellemetlen. Sőt, néha ezek a fájlok nélkülözhetetlenek lehetnek az Ön számára, ezért tényleg nem akarja elmenteni őket a számítógépére. Ebben a helyzetben gyorsabb módszerre kell vágynia, amellyel közvetlenül a továbbítási e-mailekben nevezheti át a csatolt fájlokat. Az alábbiakban bemutatjuk, hogyan lehet megvalósítani az Outlook VBA-n keresztül.
E-mail továbbításakor nevezze át a mellékleteket
- Először indítsa el az Outlookot, és lépjen a „Fejlesztő” fülre.
- Ezután keresse meg és kattintson a „Visual Basic” gombra.
- Ezután az új felugró ablakban nyisson meg egy új modult a „Beszúrás” > „Modul” kiválasztásával.
- Ezt követően másolja be és illessze be a következő VBA kódokat.
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
- Ezt követően kiléphet az aktuális „Visual Basic” ablakból, és a szokásos módon folytathatja az új makró hozzáadását a Gyorselérési eszköztárhoz.
- Végre egy próbát tehetsz.
- Először válasszon ki egy e-mailt, majd kattintson az új makró gombra a Gyorselérési eszköztáron.
- Ezután megnyílik egy új továbbítási e-mail. A csatolt fájlokat eredeti néven láthatja a „Csatolva” sorban, és egy párbeszédpanel is megjelenik, amely megköveteli, hogy adjon meg új nevet egy adott melléklethez.
- Miután új nevet adott az összes fájlnak, és kattintson az „OK” gombra, látni fogja, hogy az összes csatolt fájl új néven van.
- Végül összeállíthatja a továbbítási e-maileket, és megnyomhatja a „Küldés” gombot az üzenet elküldéséhez.
Legyen éber az Outlookot fenyegető összes lehetséges veszélyre
Nyilvánvaló, hogy az Outlook érzékeny a korrupcióra. Így hosszúra nyúlt feladat az Outlook adatok védelme minden fenyegetés ellen, beleértve a vírusfertőzést, a rosszindulatú programok támadásait és Outlook PST adatkárosodás, stb. A legfontosabb teendő az Outlook-adatok rendszeres biztonsági mentése. Érdemes egy csúcskategóriás javítóeszközt is kéznél tartani, például DataNumen Outlook Repair, ami jól fog jönni.
Szerző Bevezetés:
Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve a sérült mdf javítása és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com