Včasih, ko posredujete e-pošto, ki vsebuje več prilog, boste morda želeli priloge preimenovati neposredno med posredovanjem. Ta članek vas bo naučil, kako to doseči z Outlookom VBA.
Outlook privzeto ne dovoli uporabniku preimenovanja prilog pri posredovanju. Če jih torej želite preimenovati, je edinstven način, da datoteke najprej shranite v lokalno mapo v računalniku, jih nato preimenujete in nato znova pripnete e-pošti za posredovanje. Očitno je ta metoda precej težavna. Poleg tega so včasih te datoteke za vas nepomembne, zato jih res ne želite shraniti v svoj računalnik. V tej situaciji morate hrepeneti po hitrejši metodi, ki bi vam omogočila preimenovanje priloženih datotek neposredno v e-poštnih sporočilih za posredovanje. Sledi pristop za njegovo realizacijo prek Outlooka VBA.
Preimenujte priloge pri posredovanju e-pošte
- Najprej zaženite Outlook in pojdite na zavihek »Razvijalec«.
- Nato poiščite in kliknite gumb "Visual Basic".
- Nato v novem pojavnem oknu odprite nov modul tako, da izberete »Vstavi« > »Modul«.
- Nato morate kopirati in prilepiti vanjo naslednje kode 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
- Po tem lahko zapustite trenutno okno »Visual Basic« in nadaljujete z dodajanjem novega makra v orodno vrstico za hitri dostop kot običajno.
- Končno lahko poskusite.
- Najprej izberite e-pošto in nato kliknite gumb za nov makro v orodni vrstici za hitri dostop.
- Nato se bo odprlo novo posredovano e-poštno sporočilo. Priložene datoteke lahko vidite v izvirnih imenih v vrstici »Priloženo« in prejmete tudi pogovorno okno, ki od vas zahteva, da vnesete novo ime za določeno prilogo.
- Ko določite nova imena za vse datoteke in kliknete »V redu«, boste videli, da so vse priložene datoteke v novih imenih.
- Sčasoma lahko sestavite e-poštna sporočila za posredovanje in pritisnete gumb »Pošlji«, da pošljete sporočilo.
Bodite pozorni na vse možne grožnje vašemu Outlooku
Znano je, da je Outlook dovzeten za korupcijo. Zato je dolgotrajna naloga zaščititi Outlookove podatke pred vsemi grožnjami, vključno z okužbo z virusi, napadi zlonamerne programske opreme in Poškodba podatkov v programu Outlook PSTitd. Najpomembnejše dejanje je redno varnostno kopiranje podatkov v Outlooku. Prav tako je pametno imeti v bližini vrhunsko orodje za popravilo, kot je DataNumen Outlook Repair, ki vam bo prišel prav.
Uvod avtorja:
Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo poškodovanega mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com