Vidakuzi vinatusaidia kutoa huduma zetu. Kwa kutumia huduma zetu, unakubaliana na matumizi yetu ya kuki.
Kidokezo: Lugha zingine ni Google-Ilitafsiriwa. Unaweza kutembelea English toleo la kiungo hiki.
Ingia
x
or
x
x
Daftari
x

or

Jinsi ya kuokoa kiambatisho maalum (cha kushinda) katika Outlook?

Mtazamo hutoa kipengele cha Hifadhi cha Hifadhi zote ili uhifadhi salama zote kwa barua pepe kwenye folda maalum mara moja. Hata hivyo, ikiwa unataka kuhifadhi aina maalum ya kiambatanisho kwenye barua pepe, kama vile kiambatisho cha Excel, hati ya neno na kadhalika, unaweza kufanya nini ili uifike? Hapa tunatoa njia ya VBA kutatua tatizo.

Hifadhi kiambatisho maalum katika Outlook


Weka kwa urahisi attachments zote kutoka barua pepe nyingi zilizochaguliwa hadi folda:

Pamoja na Tambua vifungo vyote matumizi ya Kutools kwa Excel, unaweza kuhifadhi vipengee vyote kwa urahisi kutoka kwa barua pepe nyingi zilizochaguliwa hadi folda maalum katika Outlook kama skrini iliyo chini iliyoonyeshwa.

Kutools kwa Outlook: na zaidi ya 40 Handy Outlook kuongeza, bure kujaribu na hakuna kiwango katika siku 45. Pakua na jaribio la bure Sasa!

Kutools kwa Outlook: 100 + Vyombo vilivyotumika zaidi kwa Outlook.
Tabia ya Ofisi: Wezesha Mabadiliko ya Tabbed na Utafutaji katika Ofisi, Kama Chrome, Firefox, IE 8 / 9 / 10.
Menyu ya Classic: Ileta Menus ya Kale na Nguvu za Vyombo vya Nyuma kwa Ofisi 2007, 2010, 2013, 2016 na 2019.

Hifadhi kiambatisho maalum katika Outlook

Nambari ya chini ya VBA inaweza kusaidia kuhifadhi attachment maalum katika barua pepe au barua pepe nyingi kwenye folda maalum. Tafadhali fanya kama ifuatavyo.

1. Kuzindua Outlook yako, katika orodha ya barua pepe, chagua barua pepe au barua pepe nyingi utahifadhi safu maalum kutoka.

2. Waandishi wa habari Alt + F11 funguo za kufungua Microsoft Visual Msingi kwa Maombi dirisha. Katika dirisha la ufunguzi, bofya Ingiza > Modules, na kisha nakala chini ya VBA code katika dirisha Module.

Nambari ya VBA: Ila safu maalum tu kwenye barua pepe au barua pepe nyingi kwenye folda

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20181130
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
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
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        xFilesSavePath = ""
        For Each xAttachment In xItem.Attachments
            xFilePath = xSaveFolder & xAttachment.FileName
            xExt = "." & xFSO.GetExtensionName(xFilePath)
            xExtArr = VBA.Split(xExtStr, ",")
            xS = VBA.Filter(xExtArr, xExt)
            If UBound(xS) > -1 Then
                xAttachment.SaveAsFile xFilePath
                If xItem.BodyFormat <> olFormatHTML Then
                    xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
                Else
                    xFilesSavePath = xFilesSavePath & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next
        If xItem.BodyFormat <> olFormatHTML Then
            xItem.Body = vbCrLf & "The file(s) were saved to " & xFilesSavePath & vbCrLf & xItem.Body
        Else
            xItem.HTMLBody = "<p>" & "The file(s) were saved to " & xFilesSavePath & "</p>" & xItem.HTMLBody
        End If
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. Bonyeza zana > Marejeo, Katika Marejeleo - Mradi dialog, angalia Runtime ya Microsoft Scripting sanduku na bofya OK button.

4. Waandishi wa habari F5 ufunguo wa kuendesha msimbo. Katika popped nje Tafuta kwa Folda bogi ya mazungumzo, chagua folda moja ili uhifadhi safu.

5. Na kisha, bofya OK, katika zifuatazo Kutools kwa Outlook bogi ya mazungumzo, ingiza ugani wa faili wa kiambatisho utahifadhi kwenye sanduku la maandishi na bonyeza OK.

Kisha viambatisho tu vinahifadhiwa.

Vidokezo:

1. Ikiwa unataka kuhifadhi aina tofauti za viambatisho, tafadhali ingiza viendelezi vya faili kwenye sanduku la maandishi na uwatenganishe na comma.

2. Baada ya kuokoa, njia ya kuokoa safu inaonyeshwa kwenye mwili wa ujumbe. Unaweza kufungua kiambatisho kwa kubonyeza hyperlink moja kwa moja.


Related makala:



Kutools kwa Outlook

Zaidi ya kazi za 100 za Juu kwa Outlook 2010, 2013, 2016, 2019 na 365

skrini ya kutosha ya skrini kwa vidogo vidogo vya bendera 201812

Makala zaidi | bure Download | Tu $ 39.00 kwa mamia ya kazi

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.

Be the first to comment.