Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i ail-enwi ac arbed atodiadau o'r e-bost mewn ffolder yn Outlook?

Mewn rhagolygon, efallai y byddwch yn derbyn negeseuon gydag atodiadau fel rheol, ac a ydych chi'n ceisio ail-enwi atodiadau'r neges a'u cadw mewn ffolder fel y dangosir y sgrin isod? Yn amlwg, gallwch eu cadw i mewn i ffolder a'u hailenwi'n un ohonynt, ond mewn gwirionedd, mae gen i gôd VBA yn ail-enwi pob atodiad yn gyflym gyda'r un enw, yna arbedwch mewn un ffolder.
ail-enwi doc arbed atodiad 1

Ail-enwi ac arbed atodiadau gyda'r un enw mewn ffolder

Ail-enwi ac arbed atodiadau mewn ffolder gyda Kutools ar gyfer Outlook


Ateb neges gydag atodiadau gwreiddiol mewn rhagolwg

Fel y gwyddom oll, bydd yr atodiadau ynghlwm yn cael eu tynnu o'r neges wreiddiol pan fyddwch yn ateb neges i'r derbynnydd yn Outlook. Os ydych chi eisiau ateb tylino gyda chadw atodiadau, gallwch geisio Kutools ar gyfer Outlook's Ateb gydag Atodiad swyddogaeth, gall ateb un neges gyda'r atodiadau gwreiddiol, hefyd yn gweithio i bob messafe. Cliciwch ar gyfer treialon rhad ac am ddim diwrnod 45 yn y dyfodol!

ateb doc gyda atodiad
Kutools for Outlook: gyda dwsinau o ychwanegu Outlook defnyddiol, am ddim i geisio heb gyfyngiad mewn diwrnodau 45.
Kutools ar gyfer Outlook: 100 + Offer Uwch Newydd ar gyfer Outlook.
Tab Swyddfa: Galluogi Golygu Tablau a Pori yn y Swyddfa, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Bwydlen Clasurol: Dewch â Hen Fwydlenni a Pheiriau Offer Yn ôl i Office 2007, 2010, 2013, 2016 a 2019.

Ail-enwi ac arbed atodiadau gyda'r un enw mewn ffolder

1. Dewiswch y neges yr ydych am ei gadw at ei atodiadau a'i ail-enwi i'r un enw.

2. Gwasgwch Alt + F11 keys, yna yn y Project1 pane, cliciwch ddwywaith ThisOutlookSession i greu sgript wag newydd yn yr adran dde, yna copïwch a gludwch y cod iddo.

VBA: Ail-enwi ac arbed atodiadau

Public Sub SaveAttachsToDisk () 'UpdatebyExtendoffice20180521 Dim Amcan Fel Gwrthwynebiad' Outlook.MailItem Dim xSelection Gan Ddethol Dim XAttachment Fel Outlook.Attachment Dim xFldObj Fel Object Dim xSaveFolder As String Dim xFSO Fel Scripting.FileSystemObject Dim xFile Fel File Dim xFilePath As String Dim xNewName, xTmpName Fel String Dim xExt fel String Dim xCount Fel Integre Ar Gwall Cymerwch Gosod Nesaf xFldObj = CreateObject ("Shell.Application"). Browseforfolder (0, "Select a Folder", 0, 16) Gosod xFSO = New Scripting.FileSystemObject Os xFldObj Does Dim Dim Yna Eithriad xSaveFolder = xFldObj.Items.Item.Path & "\" Set xSelection = Outlook.Application.ActiveExplorer.Selection xNewName = InputBox ("Attachment Name:", "Kutools for Outlook", xNewName) Os Len (Trim (xNewName)) = 0 Yna Eithriad Is-Gosod ar gyfer pob xItem Yn xSelection Ar gyfer pob xAttachment Mewn xItem.Attachments xFilePath = xSaveFolder & xAttachment.FileName xAttachment.SaveAsFile xFilePath Set xFile = xFSO.GetFile (xFilePath) xCount = 1 Saved = Ffug xExt = "." & xFSO.GetExtensionName (xFilePath) xTmpName = xNewName xNewName = xTmpName & xExt Os xFSO.FileExists (xSaveFolder & xNewName) = Ffug Yna xFile.Name = xNewName xNewName = xTmpName Else xTmpName = Chwith (xNewName, Len (xNewName) - Len (xExt )) Tra Saved = Ffug xNewName = xTmpName & xCount & xExt Os xFSO.FileExists (xSaveFolder & xNewName) = Ffug Yna xFile.Name = xNewName xNewName = xTmpName Saved = Gwir Else xCount = xCount + 1 End Os Wend End Os Next Next Set xFSO = Dim is End

ail-enwi doc arbed atodiadau mewn ffolder 2

3. Cliciwch offer > cyfeiriadau, yn y deialog popio, gwirio Microsoft Script Runtime checkbox.

ail-enwi doc arbed atodiadau mewn ffolder 3 doc arrow i'r dde ail-enwi doc arbed atodiadau mewn ffolder 4

4. Cliciwch OK, y wasg F5 allwedd i redeg y cod, a Pori Por Ffolder Mae deialog yn ymddangos am ddewis neu greu ffolder i osod atodiadau.
ail-enwi doc arbed atodiadau mewn ffolder 5

5. Cliciwch OK, yna rhowch enw ar gyfer yr atodiadau.
ail-enwi doc arbed atodiadau mewn ffolder 6

6. Cliciwch OK, nawr mae'r atodiadau yn cael eu hail-enwi gyda'r un enw, os oes copïau dyblyg, bydd y rhai dyblyg yn cael eu hychwanegu fel yr atyniad.


Ail-enwi ac arbed atodiadau mewn ffolder gyda Kutools ar gyfer Outlook

Mewn gwirionedd, mae nodwedd ynddo Kutools ar gyfer Outlook - gall offeryn ychwanegol o Outlook ail-enwi pob atodiad cyn ei gadw neu ei anfon.

Kutools for Outlook , Yn cynnwys 100 + nodweddion pwerus ac offer ar gyfer Microsoft Outlook 2016, 2013, 2010 a Office 365.

Gosod am ddim Kutools ar gyfer Outlook, ac yna gwnewch fel y camau isod:

1. Cymerwch yr e-bost yn y bocs gwyrdd neu yn y blwch Neges ag y dymunwch, cliciwch Kutools > Ail-enwi Pob.
ail-enwi doc arbed atodiad 2

2. Yn y deialog popio, teipiwch yr enw newydd a ddefnyddiwch ar gyfer pob atodiad. Cliciwch OK, mae'r atodiadau wedi cael eu hail-enwi gydag enwau newydd.
ail-enwi doc arbed atodiad 3
ail-enwi doc arbed atodiad 4

3. Cliciwch ar y dde yn un atodiad, dewiswch Save All Attachments, cliciwch OK a dewiswch ffolder i achub yr atodiadau fel y bydd ei angen arnoch. Yna, mae'r atodiadau a enwir wedi'u cadw mewn ffolder.
ail-enwi doc arbed atodiad 5



Kutools ar gyfer Outlook

Mwy na Swyddogaethau Uwch 100 ar gyfer Outlook 2010, 2013, 2016, 2019 a 365

sgrinio kutools ar gyfer rhagolygon bach ar gyfer baner 201812

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Lipe · 2 months ago
    Hey there! Do you know how we can improve the below code to rename the file when saved?

    Public Sub UnzipFileInOutlook(itm As Outlook.MailItem)
    Dim objAtt As Outlook.Attachment
    Dim saveFolder As String
    saveFolder = "C:\Users\acheng\Desktop"
    For Each objAtt In itm.Attachments
    objAtt.SaveAsFile saveFolder
    Set objAtt = Nothing
    Next
    End Sub
    • To post as a guest, your comment is unpublished.
      Sunny · 27 days ago
      Hello, Lipe, may be this code can help you.

      Private Sub CopyToDefaultCalendarFld(ByVal Item As Object)
      Dim xCopiedAppointment As Outlook.AppointmentItem
      Dim xMovedAppointment As Outlook.AppointmentItem
      Dim xMeeting As MeetingItem
      Dim xApoint As AppointmentItem
      On Error Resume Next
      If Item.Class = olAppointment Then
      Set xApoint = Item
      Set xCopiedAppointment = xApoint.Copy
      Set xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
      If xApoint.Subject <> xMovedAppointment.Subject Then
      If InStr(1, xMovedAppointment.Subject, "Copy: ") > 0 Then
      xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy: ", "", 1, 1)
      xMovedAppointment.Save
      End If
      End If
      ElseIf Item.Class = olMeetingRequest Then
      Set xMeeting = Item
      Set xCopiedAppointment = xMeeting.GetAssociatedAppointment(True).Copy
      Set xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
      If xMeeting.Subject <> xMovedAppointment.Subject Then
      If InStr(1, xMovedAppointment.Subject, "Copy: ") > 0 Then
      xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy: ", "", 1, 1)
      xMovedAppointment.Save
      End If
      End If
      xCopiedAppointment.Delete
      End If
      Set xCopiedAppointment = Nothing
      End Sub