Cookies palīdzēs mums sasniegt mūsu pakalpojumus. Izmantojot mūsu pakalpojumus, jūs piekrītat mūsu sīkdatņu izmantošanu.
Padoms. Citas valodas ir Google tulkotas. Jūs varat apmeklēt English šīs saites versiju.
Pieslēgties
x
or
x
x
Reģistrēties
x

or

Kā saglabāt tikai īpašu (Excel) pielikumu programmā Outlook?

Outlook nodrošina funkciju Saglabāt visus pielikumus, lai jūs varētu ātri saglabāt visus pielikumus e-pastā konkrētā mapē uzreiz. Tomēr, ja vēlaties e-pasta ziņojumā saglabāt tikai konkrētu pielikumu veidu, piemēram, Excel pielikumu, Word dokumentu un tā tālāk, ko jūs varat darīt, lai to sasniegtu? Šeit mēs piedāvājam VBA metodi, lai atrisinātu problēmu.

Saglabājiet tikai konkrētu pielikumu programmā Outlook


Viegli saglabājiet visus pielikumus no vairākiem atlasītiem e-pasta ziņojumiem uz mapi:

Ar Atvienojiet visus pielikumus lietderība Kutools Excel, varat viegli saglabāt visus pielikumus no vairākiem atlasītiem e-pasta ziņojumiem uz norādīto mapi programmā Outlook, kā parādīts zemāk redzamajā ekrānuzņēmumā.

Kutools for Outlook: ar vairāk nekā 40 ērtiem Outlook pievienojumprogrammām, bez maksas var izmēģināt bez ierobežojumiem 45 dienās. Lejupielādēt un bezmaksas izmēģinājuma versija tūlīt!

Kutools for Outlook: 100 + jauni uzlaboti rīki Outlook.
Cilnē Office: Iespējot cilnes rediģēšanu un pārlūkošanu Office, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Klasiskā izvēlne: Novietojiet vecās izvēlnes un rīkjoslas atpakaļ uz Office 2007, 2010, 2013, 2016 un 2019.

Saglabājiet tikai konkrētu pielikumu programmā Outlook

Zemāk esošais VBA kods var palīdzēt saglabāt tikai konkrētu pielikumu e-pastā vai vairākos e-pasta ziņojumos uz konkrētu mapi. Lūdzu, rīkojieties šādi.

1. Uzsākiet savu Outlook adresātu sarakstā, izvēlieties e-pastu vai vairākus e-pastus, no kuriem jūs saglabājat konkrētu pielikumu.

2. Nospiediet cits + F11 taustiņi, lai atvērtu Microsoft Visual Basic for Applications logs Atvēršanas logā noklikšķiniet uz ielaidums > Moduļi, un pēc tam kopējiet zemāk VBA kodu moduļa logā.

VBA kods: saglabājiet tikai konkrētu pielikumu e-pastā vai vairākos e-pasta ziņojumos uz mapi

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. klikšķis darbarīki > Atsauces, Kas Atsauces - projekts Dialoglodziņā pārbaudiet Microsoft skriptu izpildes laiks lodziņā un noklikšķiniet uz OK poga.

4. Nospiediet F5 taustiņš, lai palaistu kodu. In popped out Pārlūkot mapi dialoglodziņš, izvēlieties vienu mapi, lai saglabātu pielikumus.

5. Un pēc tam noklikšķiniet uz OK, tālāk tekstā Kutools for Outlook dialoglodziņā ievadiet pielikumu faila paplašinājumu, kuru jūs saglabājat teksta lodziņā, un noklikšķiniet uz OK.

Tad tiek saglabāti tikai norādītie pielikumi.

Piezīmes:

1. Ja vēlaties saglabāt cita veida pielikumus, lūdzu, ievadiet faila paplašinājumus teksta lodziņā un atdaliet tos ar komatu.

2. Pēc saglabāšanas ziņojuma tekstā tiek parādīts pielikumu saglabāšanas ceļš. Pielikumu varat atvērt, tieši noklikšķinot uz hipersaites.


Līdzīgi raksti:



Kutools for Outlook

Vairāk nekā 100 papildu funkcijas Outlook 2010, 2013, 2016, 2019 un 365

ekrāns nošāva kutools, kas paredzēts maziem banneri 201812

Vairāk funkciju | Bezmaksas lejupielāde | Tikai $ 39.00 simtiem funkciju

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.