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

Ինչպե՞ս վերանվանել և պահպանել էլփոստի կցորդները Outlook- ի թղթապանակում:

Outlook- ում դուք կարող եք սովորաբար կցորդներով հաղորդագրություններ ստանալ, և փորձու՞մ եք վերանվանել հաղորդագրության կցորդները և պահպանել դրանք թղթապանակում, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը: Ակնհայտ է, որ դուք կարող եք դրանք պահել թղթապանակում և մեկ առ մեկ վերանվանել դրանք, բայց իրականում ես ունեմ VBA կոդ, որը կարող է արագ վերանվանել նույն անունով բոլոր կցորդները, այնուհետև պահպանել մեկ թղթապանակում:
փաստաթուղթ վերանվանել պահպանել կցել 1

Վերանվանել և պահպանել նույն անունով կցորդները թղթապանակում

Վերանվանեք և պահեք հավելվածները Kutools- ի հետ թղթապանակում Outlook- ի համար


Պատասխանեք հաղորդագրությանը բնօրինակ կցորդներով `Outlook- ում

Ինչպես մենք բոլորս գիտեինք, կից կցորդները կհեռացվեն բուն հաղորդագրությունից, երբ Outlook- ում ստացողին հաղորդագրություն եք պատասխանում: Եթե ​​ցանկանում եք պատասխանել մերսմանը ՝ կցորդներ պահելով, կարող եք փորձել Outlook- ի համար նախատեսված գործիքներ's Պատասխանել կցորդով գործառույթը, այն կարող է պատասխանել մեկ հաղորդագրության բնօրինակ կցորդներով, ինչպես նաև աշխատել բոլոր messafe- ների համար:    Կտտացրեք ամբողջական հնարավորությունների համար 60 օր անվճար փորձաշրջան:
 
փաստաթուղթը պատասխանում է կցվածով
 
Outlook- ի համար նախատեսված գործիքներ. Outlook- ի տասնյակ հարմարավետ հավելումներով, 60 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների:
Office Tab - Միացնել ներդիրներով խմբագրումն ու զննարկումը գրասենյակում, և աշխատանքը շատ ավելի դյուրին դարձրեք ...
Kutools for Outlook - 100 հզոր առաջադեմ առանձնահատկություններ է բերում Microsoft Outlook- ին
  • Auto CC / BCC կանոններով `էլ. նամակ ուղարկելիս; Ավտոմեքենաների փոխանցում Բազմաթիվ էլ-նամակներ կանոններով; Ավտոմատ պատասխան առանց փոխանակման սերվերի և ավելի ավտոմատ հատկությունների ...
  • Նախազգուշացում BCC- ի համար - ցույց տալ հաղորդագրությունը, երբ փորձում եք պատասխանել բոլորին, եթե ձեր փոստի հասցեն գտնվում է BCC ցուցակում. Հիշեցրեք հավելվածները բաց թողնելիսև ավելին հիշեցնում են հատկությունները ...
  • Պատասխանեք (բոլորը) բոլոր կցորդներով փոստի խոսակցությունում; Միանգամից պատասխանեք շատ նամակների. Ավտոմատ ավելացնել ողջույնները երբ պատասխանել; Ավտոմատ ավելացրեք ամսաթիվը և ժամանակը թեմայի մեջ ...
  • Կցման գործիքներԱվտոմատ անջատել, սեղմել բոլորը, վերանվանել բոլորը, ինքնաբերաբար պահպանել բոլորը ... Արագ հաշվետվություն, Հաշվել ընտրված նամակները, Հեռացնել կրկնօրինակ նամակները և կոնտակտները ...
  • Ավելի քան 100 առաջադեմ գործառույթներ կանեն լուծեք ձեր խնդիրների մեծ մասը Outlook 2021 - 2010 կամ Office 365-ում: Ամբողջական հնարավորություններ 60-օրյա անվճար փորձարկում:

Վերանվանել և պահպանել նույն անունով կցորդները թղթապանակում

1. Ընտրեք այն հաղորդագրությունը, որը ցանկանում եք պահպանել դրա կցորդները և վերանվանել նույն անունով:

2. Մամուլ Alt + F11 կeys, ապա ` Project1 պատուհանը, կրկնակի սեղմեք ԱյսOutlookSession- ը ճիշտ բաժնում նոր դատարկ սցենար ստեղծելու համար, ապա պատճենեք և կպցրեք դրա վրա կոդը:

VBA. Վերանվանել և պահպանել կցորդները

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

փաստաթղթերը վերանվանելու համար պահեք հավելվածները 2 պանակում

3: սեղմեք Գործիքներ > Սայլակ, բացվող երկխոսության մեջ, ստուգեք Microsoft Script Runtime վանդակը.

փաստաթղթերը վերանվանելու համար պահեք հավելվածները 3 պանակում doc սլաք աջ փաստաթղթերը վերանվանելու համար պահեք հավելվածները 4 պանակում

4: սեղմեք OK, սեղմեք F5 ծածկագիրը գործելու բանալին, ա Թերթիր պանակի համար երկխոսությունը դուրս է գալիս կցորդներ տեղադրելու համար պանակ ընտրելու կամ ստեղծելու համար:
փաստաթղթերը վերանվանելու համար պահեք հավելվածները 5 պանակում

5: սեղմեք OK, ապա անուն տվեք կցորդներին:
փաստաթղթերը վերանվանելու համար պահեք հավելվածները 6 պանակում

6: սեղմեք OK, այժմ հավելվածները վերանվանվում են նույն անունով, եթե կան կրկնօրինակներ, կրկնօրինակներին կավելացվեն թվեր որպես վերջածանց:


Վերանվանեք և պահեք հավելվածները Kutools- ի հետ թղթապանակում Outlook- ի համար

Իրականում, կա մի առանձնահատկություն Outlook- ի համար նախատեսված գործիքներ - Outlook- ի օգտակար հավելման գործիքը կարող է վերանվանել բոլոր կցորդները նախքան փրկելը կամ ուղարկելը:

Kutools for Outlook , Ներառում է
100
 հզոր առանձնահատկություններ և գործիքներ Microsoft Outlook 2016-ի, 2013-ի, 2010-ի և Office 365-ի համար:

Անվճար տեղադրում Կոշուլսներ Outlook- ի համար, ապա կատարեք ինչպես ստորև նշված քայլերը.

1. Ակտիվացրեք էլ. Փոստը բացասական պատուհանում կամ Հաղորդագրության վանդակում, ինչպես ցանկանում եք, կտտացրեք Կուտոլս > Կցման գործիքներՎերանվանել բոլորը.
փաստաթուղթ վերանվանել պահպանել կցել 2

2. Բացվող պատուհանում մուտքագրեք ձեր կողմից օգտագործվող նոր հավելվածը յուրաքանչյուր հավելվածի համար: Սեղմել OK, կցորդները վերանվանվել են նոր անուններով:
փաստաթուղթ վերանվանել պահպանել կցել 3 

3. Աջ կտտացրեք մեկ հավելվածի վրա, ընտրեք Պահել բոլոր կցորդներըՀամար OK և ընտրեք թղթապանակ ՝ կցորդները ըստ անհրաժեշտության պահելու համար: Այնուհետեւ վերանվանված կցորդները պահվել են թղթապանակում:
փաստաթուղթ վերանվանել պահպանել կցել 5 
փաստաթուղթ վերանվանել պահպանել կցել 5


Kutools Outlook- ի համար. 100 առաջադեմ առանձնահատկություններ է բերում Outlook- ին և շատ ավելի հեշտացնում աշխատանքը:

  • Auto CC / BCC կանոններով `էլ. նամակ ուղարկելիս; Ավտոմեքենաների փոխանցում Բազմաթիվ նամակներ ըստ սովորույթի; Ավտոմատ պատասխան առանց փոխանակման սերվերի և ավելի ավտոմատ հատկությունների ...
  • Նախազգուշացում BCC- ի համար - ցույց տալ հաղորդագրությունը, երբ փորձում ես պատասխանել բոլորին եթե ձեր փոստի հասցեն գտնվում է BCC ցուցակում; Հիշեցրեք հավելվածները բաց թողնելիսև ավելին հիշեցնում են հատկությունները ...
  • Պատասխանեք (բոլորը) փոստի խոսակցության բոլոր կցորդներով; Պատասխանեք շատ նամակների վայրկյանների ընթացքում; Ավտոմատ ավելացնել ողջույնները երբ պատասխանել; Ավելացնել ամսաթիվը վերնագրում ...
  • Կցման գործիքներ. Կառավարեք բոլոր կցորդները բոլոր փոստերում, Ավտոմատ անջատում, Սեղմել բոլորը, Վերանվանել բոլորը, պահպանել բոլորը ... Արագ զեկույց, Հաշվեք ընտրված նամակները...
  • Հզոր անպիտան նամակներ ըստ սովորույթի; Հեռացրեք կրկնօրինակ նամակները և կոնտակտները... Հնարավորություն տվեք Outlook- ում ավելի խելացի, արագ և լավ կատարել:
shot kutools Outlook kutools էջանիշ 1180x121
shot kutools Outlook kutools գումարած ներդիր 1180x121
 
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (4)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն! Գիտե՞ք, թե ինչպես կարող ենք բարելավել ստորև բերված կոդը՝ ֆայլը պահվելիս վերանվանելու համար:

Public Sub UnzipFileInOutlook (itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Պղտորել saveFolder-ը որպես տող
saveFolder = «C:\Users\acheng\Desktop»
Յուրաքանչյուր objAtt-ի համար itm.Attachments-ում
objAtt.SaveAsFile saveFolder
Սահմանել objAtt = Ոչինչ
հաջորդ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Lipe, գուցե այս կոդը կարող է օգնել ձեզ:

Մասնավոր ենթաօրենսդրական CopyToDefaultCalendarFld (ByVal տարրը որպես օբյեկտ)
Խոնավեցրեք xCopiedAppointment որպես Outlook.AppointmentItem
Dim xMovedAppointment As Outlook.AppointmentItem
Dim xMeeting As MeetingItem
Dim xApoint As AppointmentItem
Ս.թ. սխալի Ռեզյումե Next
If Item.Class = olAppointment Այնուհետեւ
Սահմանել xApoint = Նյութ
Սահմանեք xCopiedAppointment = xApoint.Copy
Սահմանել xMovedAppointment = xCopiedAppointment.Move (GMovedCalendarFolder)
Եթե ​​xApoint.Subject <> xMovedAppointment.Subject Այնուհետեւ
Եթե ​​InStr(1, xMovedAppointment.Subject, «Copy:») > 0 Ապա
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy: ", "", 1, 1)
xMovedAppointment.Save
Վերջ: Եթե
Վերջ: Եթե
ElseIf Item.Class = olMeetingRequest Այնուհետեւ
Սահմանել xMeeting = Նյութ
Սահմանել xCopiedAppointment = xMeeting.GetAssociatedAppointment(True).Պատճենել
Սահմանել xMovedAppointment = xCopiedAppointment.Move (GMovedCalendarFolder)
Եթե ​​xMeeting.Subject <> xMovedAppointment.Subject Այնուհետեւ
Եթե ​​InStr(1, xMovedAppointment.Subject, «Copy:») > 0 Ապա
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy: ", "", 1, 1)
xMovedAppointment.Save
Վերջ: Եթե
Վերջ: Եթե
xCopiedAppointment.Ջնջել
Վերջ: Եթե
Սահմանեք xCopiedAppointment = Ոչինչ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն! Ինչպե՞ս կարող է դա աշխատել, եթե բազմաթիվ էլ. Սա միայն միևնույն էլփոստի բազմաթիվ հավելվածների համար է: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, ծիծաղելի է, որ մենք պետք է գնանք այս երկարություններին, որպեսզի անենք մի բան, որը պետք է զբաղվի հավելվածով
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից