Cookies bizim xidmətlər təqdim kömək edir. Bizim xidmətlərimizdən istifadə edərək, siz cookies bizim istifadə razıyam.
İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Outlook-da yalnız xüsusi (excel) əlavə saxlamaq üçün necə?

Outlook bir e-poçtdakı bütün faylları bir anda xüsusi bir qovluğa tez saxlamaq üçün bütün Əlavələr Saxla xüsusiyyətini təmin edir. Bununla belə, e-məktubda, Excel eki, Word sənəd və s. Kimi xüsusi eki bir növün saxlanmasını istəyirsənsə, bunun üçün nə edə bilərsiniz? Burada problemi həll etmək üçün VBA üsulu təqdim edirik.

Outlook-da yalnız xüsusi əlavə edin


Birdən çox seçilmiş e-poçtdan bütün faylları asanlıqla qovluğa saxlayın:

İlə Bütün əlavələri ayırın faydası Excel üçün KutoolsAşağıdakı ekran görüntüsünü göstərdiyiniz kimi, asanlıqla bir neçə seçilmiş e-poçtdan bütün faylları Outlook-da müəyyən qovluğa saxlaya bilərsiniz.

Outlook üçün Kutools: 40 gündəki 45-dən çox lazımlı Outlook eklentisi ilə heç bir məhdudiyyətsiz cəhd edin. İndi indir və pulsuz sınaq!

Outlook üçün Kutools: 100 + Yeni Ətraflı Vasitələr Outlook üçün.
Office Tab: Ofisdə Sekmeli Düzenleme və Gözdən keçirməni aktivləşdirin, Chrome kimi, Firefox, IE 8 / 9 / 10 kimi.
Klassik Menyu: Köhnə Menüləri və Toolbarlarını Geri Alın Office 2007, 2010, 2013, 2016 və 2019.

Outlook-da yalnız xüsusi əlavə edin

Aşağıdakı VBA kodu yalnız xüsusi bir e-poçt və ya birdən çox e-poçtda müəyyən bir qovluğa saxlamağa kömək edə bilər. Xahiş edirik bunu edin.

1. E-poçt siyahısında Outlook'unuzu başladın, e-poçt və ya birdən çox e-poçt seçin ki, xüsusi eki saxlayacaqsınız.

2. Basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə. Açılış pəncərəsində basın Taxmaq > Modules, və sonra VBA kodu aşağıda Modul penceresine kopyalayın.

VBA kodu: Bir e-poçt və ya birdən çox e-məktubda xüsusi qovluğu bir qovluğa saxlayın

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 Tools > References, Bu References - Layihə dialoq, yoxlayın Microsoft Scripting Runtime qutusu və basın OK düyməsini basın.

4. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Çölə atıldı Folder üçün gözdən keçirin informasiya qutusunda, əlavələri saxlamaq üçün bir qovluq seçin.

5. Və sonra basın OK, aşağıdakı kimi Outlook üçün Kutools informasiya qutusuna daxil edin, mətn qutusuna saxladığınız əlavə faylının uzantısını daxil edin və vurun OK.

Sonra yalnız müəyyən edilmiş fayllar saxlanılır.

Qeydlər:

1. Müxtəlif növ faylları saxlamaq istəyirsinizsə, mətn qutusuna fayl uzantılarını daxil edin və onları virgülle ayırın.

2. Saxlanıldıqdan sonra mesaj quruluşunda bir əlavə qənaət yolu göstərilir. Birbaşa köprüyə tıklayarak əlavə aça bilərsiniz.


Related articles:



Outlook üçün Kutools

100, 2010, 2013, 2016 və 2019 üçün 365 Ətraflı funksiyaları

201812 pankart üçün küçə görünüşü üçün ekran shot kutools

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

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.