Outlook Tapşırıqındakı Bütün Qoşmaları Windows Qovluğuna Toplu Saxla Necə

Outlook tapşırığında çoxlu qoşmalar varsa, onları çıxarıb yerli qovluğa saxlamaq üçün, ümumiyyətlə, onları bir-bir əl ilə yadda saxlamalısınız. Bununla belə, bu məqalədə bütün qoşmaları bir anda saxlamaq üçün bir üsul təqdim edəcəyik.

Bəzən başqasından tapşırığı ala bilərsiniz. Və bu vəzifə bədənində bir neçə vacib əlavə ola bilər. Belə bir tapşırıq qarşısında bu qoşmaları çıxarıb Windows qovluğunda saxlamaq lazım ola bilər. Bununla belə, e-poçtdan fərqli olaraq, siz onları defolt olaraq partiyalarda saxlaya bilməzsiniz. Outlook yalnız bir-bir yadda saxlamağa imkan verir. Aydındır ki, çoxlu əlavələr varsa, çox yorucu olacaq. Beləliklə, burada bu tapşırığı toplu şəkildə yerinə yetirmək üçün bir yol təqdim edəcəyik.

Tapşırıqdakı bütün qoşmaları Windows Qovluğuna Toplu Saxlayın

1. Ən başlanğıcda Outlook proqramını işə salın.
2. Sonra, "-a istinad edərək Outlook VBA redaktorunu işə salın.Outlook-da VBA kodunu necə işlətmək olar".
3. Sonra, aşağıdakı kodu istifadə olunmamış modula köçürün.

Sub BatchSaveAttachmentsFromTask()
    Dim objTask As Outlook.TaskItem
    Dim objShell, objWindowsFolder As Object
    Dim strWindowsFolder As String
    Dim objAttachment As Outlook.Attachment
    Dim strFolder, strFilePath As String

    'Get the task
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objTask = ActiveInspector.CurrentItem
           Case olExplorer
                Set objTask = ActiveExplorer.Selection.Item(1)
    End Select

    'Select a Windows folder for saving extracted attachments
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a folder to save Tasks' attachments:", 0, "")

    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"

       If objTask.Attachments.Count > 0 Then

          For Each objAttachment In objTask.Attachments
              strFilePath = strWindowsFolder & objAttachment.FileName
              objAttachment.SaveAsFile strFilePath
          Next
       End If

       Shell "Explorer.exe" & " " & strWindowsFolder, vbNormalFocus
    End If
End Sub

4. Sonra VBA redaktorundan çıxın.
5. Bundan sonra bu makronu Tez Giriş Alətlər Panelinə və ya lentə əlavə edin.
6. Nəhayət, bir cəhd edə bilərsiniz.

• Əvvəlcə tapşırığı seçin və ya açın.
• Sonra, yeni əlavə edilmiş makro düyməsini basın.
• Açılan informasiya qutusunda ehtiyaclarınıza uyğun olaraq Windows qovluğunu seçin.
• Bundan sonra, "OK" düyməsini basın.
• Dərhal Windows qovluğu görünəcək, orada çıxarılan əlavələri tapa bilərsiniz.

Narahatedici Outlook Problemlərinin öhdəsindən gəlin

Hamımızın bildiyi kimi, Outlook PST faylı müxtəlif səhvlərə və korrupsiyaya həssasdır. Məsələn, Outlook-u tez-tez düzgün şəkildə bağlasanız və ya hər hansı zərərli faylları yükləsəniz, Outlook PST faylınız bir gün əlçatmaz ola bilər. O zaman hətta gələnlər qutusunu təmir edən alət də sizə kömək edə bilməz. Müraciət edə biləcəyiniz şey daha təcrübəli və etibarlıdır PST düzəlişi proqram təminatı kimi DataNumen Outlook Repair. Tez bir zamanda PST faylından maksimum Outlook məlumatını çıxara bilər.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc düzeltmek SQL Server və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com