Ponekad, kada prosljeđujete e-poštu koja sadrži nekoliko privitaka, možda ćete htjeti preimenovati privitke izravno prilikom prosljeđivanja. Ovaj članak će vas naučiti kako to postići s Outlook VBA.
Outlook prema zadanim postavkama ne dopušta korisniku promjenu naziva privitaka prilikom prosljeđivanja. Stoga, ako ih želite preimenovati, jedinstveni način je prvo spremiti datoteke u lokalnu mapu na vašem računalu, zatim ih preimenovati i zatim ih ponovno priložiti e-pošti za prosljeđivanje. Očito je da je ova metoda prilično problematična. Štoviše, ponekad vam te datoteke mogu biti nebitne, pa ih stvarno ne želite spremati na svoje računalo. U ovoj situaciji morate čeznuti za bržom metodom koja bi vam omogućila preimenovanje priloženih datoteka izravno u e-porukama za prosljeđivanje. Slijedi pristup za njegovu realizaciju putem programa Outlook VBA.
Preimenujte privitke prilikom prosljeđivanja e-pošte
- Na prvom mjestu, pokrenite Outlook i idite na karticu "Developer".
- Zatim pronađite i kliknite gumb "Visual Basic".
- Nakon toga u novom skočnom prozoru otvorite novi modul odabirom “Umetni” > “Modul”.
- Nakon toga trebate kopirati i zalijepiti sljedeće VBA kodove u njega.
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
- Nakon toga možete izaći iz trenutnog prozora "Visual Basic" i nastaviti s dodavanjem nove makronaredbe na alatnu traku za brzi pristup kao i obično.
- Konačno možete pokušati.
- Najprije odaberite e-poštu, a zatim kliknite gumb nove makronaredbe na alatnoj traci za brzi pristup.
- Tada će se otvoriti nova e-pošta za prosljeđivanje. Možete vidjeti priložene datoteke pod originalnim nazivima u retku "Priloženo" i dobiti dijaloški okvir koji od vas zahtijeva da unesete novi naziv za određeni privitak.
- Nakon što navedete nove nazive za sve datoteke i kliknete “OK”, vidjet ćete da su sve priložene datoteke pod novim nazivima.
- Na kraju možete sastaviti e-poštu za prosljeđivanje i pritisnuti gumb "Pošalji" da biste poslali poruku.
Ostanite oprezni na sve potencijalne prijetnje vašem Outlooku
Poznato je da je Outlook osjetljiv na korupciju. Stoga je dugotrajan zadatak zaštititi Outlook podatke od svih prijetnji, uključujući infekciju virusima, napad zlonamjernim softverom i Outlook PST oštećenje podatakaitd. Najvažnija radnja je redovito izrađivati sigurnosne kopije podataka iz Outlooka. Također, preporučljivo je imati pri ruci vrhunski alat za popravak, poput DataNumen Outlook Repair, koji će vam dobro doći.
Uvod za autora:
Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak oštećenog mdf-a i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com