Někdy můžete při přeposílání e-mailu, který obsahuje několik příloh, chtít přílohy při přeposílání přejmenovat přímo. Tento článek vás naučí, jak toho dosáhnout pomocí aplikace Outlook VBA.
Ve výchozím nastavení Outlook neumožňuje uživateli při přeposílání přejmenovat přílohy. Pokud je tedy chcete přejmenovat, jedinečným způsobem je nejprve uložit soubory do místní složky v počítači, poté je přejmenovat a poté je znovu připojit k přeposílacímu e-mailu. Je zřejmé, že tato metoda je značně problematická. Navíc někdy mohou být tyto soubory pro vás nepodstatné, takže je opravdu nechcete ukládat do počítače. V této situaci musíte toužit po rychlejší metodě, která vám umožní přejmenovat připojené soubory přímo v přeposílaných e-mailech. Následuje přístup k jeho realizaci prostřednictvím aplikace Outlook VBA.
Při přeposílání e-mailu přejmenujte přílohy
- Nejprve spusťte aplikaci Outlook a přejděte na kartu Vývojář.
- Poté vyhledejte a klikněte na tlačítko „Visual Basic“.
- Poté v novém vyskakovacím okně otevřete nový modul výběrem „Vložit“> „Modul“.
- Následně byste do něj měli zkopírovat a vložit následující kódy VBA.
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
- Poté můžete opustit aktuální okno „Visual Basic“ a pokračovat přidáním nového makra na panel nástrojů Rychlý přístup jako obvykle.
- Nakonec to můžete vyzkoušet.
- Nejprve vyberte e-mail a poté klikněte na tlačítko nového makra na panelu nástrojů Rychlý přístup.
- Poté se otevře nový přeposílací e-mail. V řádku „Připojeno“ můžete vidět připojené soubory s původními názvy a také se zobrazí dialogové okno, které vyžaduje zadání nového názvu pro konkrétní přílohu.
- Po zadání nových názvů pro všechny soubory a kliknutí na „OK“ uvidíte, že všechny připojené soubory jsou pod novými názvy.
- Nakonec můžete napsat přeposílací e-maily a klepnutím na tlačítko Odeslat zprávu odeslat.
Zůstaňte v obraze na všechny potenciální hrozby pro váš Outlook
Uznává se, že Outlook je náchylný k poškození. Jedná se tedy o dlouhodobý úkol chránit data aplikace Outlook před všemi hrozbami, včetně virové infekce, malwarového útoku atd Poškození dat aplikace Outlook PSTatd. Nejdůležitějším krokem je pravidelné zálohování dat z Outlooku. Je také rozumné mít po ruce špičkový nástroj pro opravu, například DataNumen Outlook Repair, což přijde vhod.
Úvod autora:
Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit poškozené mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com