Note: The other languages of the website are Google-translated. Back to English

Kako preimenovati in shraniti priloge e-poštnega sporočila v mapo v Outlooku?

V Outlooku boste morda običajno prejemali sporočila s prilogami in ali poskušate priloge sporočila preimenovati in shraniti v mapo, kot je prikazano na spodnji sliki zaslona? Očitno jih lahko shranite v mapo in jih preimenujete enega za drugim, toda pravzaprav imam kodo VBA, ki lahko hitro preimenuje vse priloge z istim imenom, nato pa shrani v eno mapo.
doc preimenuj shrani priponko 1

Preimenujte in shranite priloge z istim imenom v mapo

Preimenujte in shranite priloge v mapo s programom Kutools za Outlook


Odgovori na sporočilo z izvirnimi prilogami v outlogu

Kot vsi vemo, bodo priložene priloge odstranjene iz prvotnega sporočila, ko boste v Outlooku odgovorili na prejemnika. Če želite na masažo odgovoriti z ohranjanjem nastavkov, lahko poskusite Kutools za Outlook's Odgovorite s prilogo funkcija, lahko na eno sporočilo odgovori z izvirnimi prilogami, prav tako deluje za vse sporočilne sporočilce    Kliknite za popolne funkcije 60-dnevno brezplačno preskusno različico!
 
odgovor doc s priponko
 
Kutools za Outlook: z desetimi priročnimi dodatki za Outlook, ki jih lahko brezplačno preizkusite v 60 dneh.
Kartica Office - omogočite urejanje in brskanje z zavihki v storitvi Office ter olajšajte delo ...
Kutools za Outlook - prinaša 100 zmogljivih naprednih funkcij v Microsoft Outlook
  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po pravilih; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaže sporočilo, ko poskušate odgovoriti na vse, če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v pogovoru po pošti; Odgovori na več e-poštnih sporočil hkrati; Samodejno dodaj pozdrav ko odgovor; Samodejno dodaj datum in čas v zadevo ...
  • Orodja za pritrditev: Samodejno loči, Stisni vse, Preimenuj vse, Samodejno shrani vse ... Hitro poročilo, Preštej izbrano pošto, Odstranitev podvojenih e-poštnih sporočil in stikov ...
  • Več kot 100 naprednih funkcij bo rešiti večino svojih težav v Outlooku 2010-2019 in 365. Polne funkcije 60-dnevnega brezplačnega preskusa.

Preimenujte in shranite priloge z istim imenom v mapo

1. Izberite sporočilo, v katerega želite shraniti njegove priloge, in ga preimenujte v isto ime.

2. Pritisnite Alt + F11 keys, nato v Project1 podokno, dvokliknite Ta OutlookSession da ustvarite nov prazen skript v desnem odseku, nato kopirajte in prilepite kodo vanj.

VBA: Preimenujte in shranite priloge

Public Sub SaveAttachsToDisk()
'UpdatebyExtendoffice20180521
Dim xItem As Object  'Outlook.MailItem
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xFldObj As Object
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
Dim xFilePath As String
Dim xNewName, xTmpName As String
Dim xExt As String
Dim xCount As Integer
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").browseforfolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xNewName = InputBox("Attachment Name:", "Kutools for Outlook", xNewName)
If Len(Trim(xNewName)) = 0 Then Exit Sub
For Each xItem In xSelection
    For Each xAttachment In xItem.Attachments
        xFilePath = xSaveFolder & xAttachment.FileName
        xAttachment.SaveAsFile xFilePath
        Set xFile = xFSO.GetFile(xFilePath)
        xCount = 1
        Saved = False
        xExt = "." & xFSO.GetExtensionName(xFilePath)
        xTmpName = xNewName
        xNewName = xTmpName & xExt
        If xFSO.FileExists(xSaveFolder & xNewName) = False Then
            xFile.Name = xNewName
            xNewName = xTmpName
        Else
            xTmpName = Left(xNewName, Len(xNewName) - Len(xExt))
            While Saved = False
                xNewName = xTmpName & xCount & xExt
                If xFSO.FileExists(xSaveFolder & xNewName) = False Then
                    xFile.Name = xNewName
                    xNewName = xTmpName
                    Saved = True
                Else
                    xCount = xCount + 1
                End If
            Wend
        End If
    Next
Next
Set xFSO = Nothing
End Sub

doc preimenuj shrani priloge v mapo 2

3. klik Orodja > Reference, v pojavnem pogovornem oknu potrdite Izvajalni čas Microsoft Script potrditveno polje.

doc preimenuj shrani priloge v mapo 3 doc puščica desno doc preimenuj shrani priloge v mapo 4

4. klik OK, pritisnite F5 tipko za zagon kode, a Brskaj po mapi odpre se pogovorno okno za izbiro ali ustvarjanje mape za namestitev prilog.
doc preimenuj shrani priloge v mapo 5

5. klik OK, nato navedite ime za priloge.
doc preimenuj shrani priloge v mapo 6

6. klik OK, zdaj so priloge preimenovane z istim imenom, če obstajajo dvojniki, bodo dvojniki dodani številki kot priponi.


Preimenujte in shranite priloge v mapo s programom Kutools za Outlook

Pravzaprav je v Kutools za Outlook - priročno orodje za dodajanje v Outlooku lahko preimenuje vse priloge pred shranjevanjem ali pošiljanjem.

Kutools for Outlook , Vključuje 100 zmogljive funkcije in orodja za Microsoft Outlook 2016, 2013, 2010 in Office 365.

Brezplačna namestitev Kutools za Outlook in nato naredite spodnja navodila:

1. Aktivirajte e-poštno sporočilo v negativnem podoknu ali v polju za sporočila, kot želite, kliknite Kutools > Orodja za pritrditevPreimenuj vse.
doc preimenuj shrani priponko 2

2. V pojavno okno vnesite novo ime, ki ga uporabljate za vsako prilogo. Kliknite OK, so se priloge preimenovale z novimi imeni.
doc preimenuj shrani priponko 3 

3. Z desno miškino tipko kliknite eno prilogo, izberite Shrani vse priloge, Kliknite OK in izberite mapo, da shranite priloge, kot jih potrebujete. Nato so preimenovane priloge shranjene v mapo.
doc preimenuj shrani priponko 5 
doc preimenuj shrani priponko 5


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (4)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Živijo! Ali veste, kako lahko izboljšamo spodnjo kodo za preimenovanje datoteke, ko je shranjena?

Public Sub UnzipFileInOutlook(itm kot Outlook.MailItem)
Dim objAtt Kot Outlook.Attachment
Zatemni saveFolder kot niz
saveFolder = "C:\Users\acheng\Desktop"
Za vsak objAtt V itm.Priloge
objAtt.SaveAsFile saveFolder
Nastavite objAtt = Nič
Naslednji
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Lipe, morda ti bo ta koda pomagala.

Private Sub CopyToDefaultCalendarFld(ByVal Element kot predmet)
Zatemni xCopiedAppointment kot Outlook.AppointmentItem
Zatemni xMovedAppointment kot Outlook.AppointmentItem
Zatemni xMeeting kot MeetingItem
Dim xApoint As AppointmentItem
On Error Resume Next
Če je Item.Class = olAppointment Potem
Nastavite xApoint = Predmet
Nastavite xCopiedAppointment = xApoint.Copy
Nastavi xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
Če xApoint.Subject <> xMovedAppointment.Subject Potem
Če je InStr(1, xMovedAppointment.Subject, "Kopiraj: ") > 0, potem
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Kopiraj: ", "", 1, 1)
xMovedAppointment.Save
Konec Če
Konec Če
ElseIf Item.Class = olMeetingRequest Potem
Nastavite xMeeting = Predmet
Nastavi xCopiedAppointment = xMeeting.GetAssociatedAppointment(True).Copy
Nastavi xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
Če xMeeting.Subject <> xMovedAppointment.Subject Potem
Če je InStr(1, xMovedAppointment.Subject, "Kopiraj: ") > 0, potem
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Kopiraj: ", "", 1, 1)
xMovedAppointment.Save
Konec Če
Konec Če
xCopiedAppointment.Delete
Konec Če
Nastavite xCopiedAppointment = Nič
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Živjo! Kako lahko to deluje, če imate več e-poštnih sporočil? Ali je to samo za več prilog v istem e-poštnem sporočilu? Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Hvala, smešno je, da se moramo potruditi, da naredimo nekaj, kar bi morala obravnavati aplikacija
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije