Liitteiden nimeäminen uudelleen, kun lähetät sähköpostia edelleen Outlookissa

Joskus, kun välität sähköpostin, joka sisältää useita liitteitä, saatat haluta nimetä liitteet uudelleen suoraan edelleenlähetettäessä. Tämä artikkeli opettaa sinulle, miten se toteutetaan Outlook VBA: lla.

Oletuksena Outlook ei salli käyttäjän nimetä liitetiedostoja uudelleenohjauksen aikana. Siksi, jos haluat nimetä ne uudelleen, ainutlaatuinen tapa on ensin tallentaa tiedostot tietokoneesi paikalliseen kansioon, nimetä ne uudelleen ja liittää ne sitten uudelleen edelleenlähetyssähköpostiin. Ilmeisesti tämä menetelmä on huomattavan hankala. Lisäksi joskus nämä tiedostot voivat olla tarpeettomia sinulle, joten et todellakaan halua tallentaa niitä tietokoneellesi. Tässä tilanteessa sinun on kaipattava nopeampaa tapaa antaa sinun nimetä uudelleen liitetyt tiedostot suoraan edelleenlähetyssähköposteihin. Seuraava on tapa toteuttaa se Outlook VBA: n kautta.

Nimeä liitteet uudelleen, kun lähetät sähköpostia

1. Käynnistä ensin Outlook ja siirry Kehittäjä-välilehdelle.
2. Etsi sitten ja napsauta “Visual Basic” -painiketta.
3. Sen jälkeen avaa uusi moduuli uudessa ponnahdusikkunassa valitsemalla ”Lisää”> “Moduuli”.
4. Sen jälkeen sinun tulisi kopioida ja liittää seuraavat VBA-koodit siihen.

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. Sen jälkeen voit poistua nykyisestä Visual Basic -ikkunasta ja jatkaa uuden makron lisäämistä Pikatyökalupalkkiin tavalliseen tapaan.
6. Lopuksi voit kokeilla.

• Ensinnäkin, valitse sähköposti ja napsauta sitten uutta makronappia Pikatyökalurivillä.
• Sitten uusi edelleenlähetyssähköposti avautuu. Näet liitetyt tiedostot alkuperäisillä nimillä "Liitetyt" -rivillä ja saat myös valintaikkunan, jossa sinua vaaditaan antamaan uusi nimi tietylle liitteelle.
• Kun olet määrittänyt kaikille tiedostoille uudet nimet ja napsauttanut “OK”, huomaat, että kaikki liitetyt tiedostot ovat uusissa nimissä.
• Lopulta voit kirjoittaa edelleenlähetyssähköpostit ja painaa Lähetä-painiketta lähettääksesi viestin.

Pysy ajan tasalla kaikista Outlookisi mahdollisista uhista

On tunnettua, että Outlook on altis korruptiolle. Siksi on pitkäaikainen tehtävä suojata Outlook-tietoja kaikilta uhilta, mukaan lukien virusinfektiot, haittaohjelmien hyökkäykset ja Outlook PST -tietovauriot, jne. Tärkein toimenpide on tehdä säännöllisesti varmuuskopioita Outlook-tiedoistasi. On myös järkevää pitää lähellä huippuluokan korjaustyökalua, kuten DataNumen Outlook Repair, joka on kätevä.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaa vaurioitunut mdf ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com