نحوه دانلود همه پیوست ها از ایمیل های Outlook

اگر در صنعتی هستید که هر روز ایمیل‌های بی‌شماری دریافت می‌کنید، احتمالاً ایمیل‌های زیادی با پیوست‌های متعدد دریافت می‌کنید. استفاده از روش دستی برای استخراج پیوست‌ها می‌تواند زمان‌بر باشد، اگر تعداد زیادی برای دانلود وجود داشته باشد. خوشبختانه، ذخیره چندین پیوست ایمیل به طور همزمان با استفاده از Microsoft Outlook آسان است.

در این آموزش، نحوه دانلود همه پیوست‌ها از Outlook را به شما نشان خواهیم داد.

چگونه همه پیوست های ایمیل Microsoft Outlook را یکباره در ویندوز دانلود کنیم

برای دانلود همزمان همه پیوست‌ها با استفاده از برنامه Windows Microsoft Outlook، موارد زیر را انجام دهید:

  1. Outlookرا باز کنید و به نمایه Outlook خود وارد شوید.
  2. ایمیل را با پیوست های Outlook دلخواه خود انتخاب کنید.
  3. روی هر یک از فایل های پیوستکلیک راست کنید و ذخیره همه پیوست هارا در منوی کشویی انتخاب کنید. اگر می‌خواهید فقط یک فایل ذخیره کنید، ذخیره به‌عنوانرا انتخاب کنید.
    1. در کادر محاوره ای جدید، کلید CTRLرا روی صفحه کلید خود نگه دارید و همه پیوست هایی را که می خواهید دانلود کنید انتخاب کنید. روی تأییدکلیک کنید.
      1. مکانی را که می‌خواهید فایل‌ها را در آن ذخیره کنید انتخاب کنید و دکمه OKرا فشار دهید.

        2. چگونه همه پیوست های ایمیل Microsoft Outlook را یکباره در مک دانلود کنیم

        در اینجا نحوه بارگیری همه پیوست‌ها با استفاده از Outlook برای Mac آمده است:

        1. برنامه MS Outlook را باز کنید.
        2. پیام ایمیلرا که حاوی پیوست‌های شما است، انتخاب کنید.
        3. روی پیوست‌ها کلیک کنید ودانلود همهرا انتخاب کنید.
          1. مکانی را که می‌خواهید پیوست‌های خود را ذخیره کنید انتخاب کنید و Chooseرا انتخاب کنید.

            2. چگونه چندین پیوست Outlook را از چندین ایمیل بارگیری کنیم

            همچنین می توان چندین پیوست را از بسیاری از ایمیل ها به طور همزمان بارگیری کرد. برای انجام این کار:

            استفاده ازVBAکد

            اگر از Outlook 2019، 2016، 2013، 2010، 2007 یا 2003 استفاده می‌کنید، می‌توانید از ویرایشگر VBA برای دانلود چندین پیوست از چندین ایمیل استفاده کنید.

            1. پوشه Documentsخود را باز کنید و یک پوشه جدید به نام "Attachments" ایجاد کنید. این جایی است که پیوست های شما در آن دانلود می شوند..
            2. Microsoft Outlookرا باز کنید.
            3. کلیدهای Altو F11را روی صفحه کلید فشار دهید تا ویرایشگر VBA باز شود.
            4. روی Microsoft Outlook Object>Insert>Insert Moduleکلیک راست کنید.
              5. 9 9s>
            5. کد زیر را در ویرایشگر کپی کنید و Enterرا فشار دهید:

              6. تدریج GCount به عنوان عدد صحیح

              کم کردن GFilepath به عنوان رشته

              Public Sub SaveAttachments()

              "به روز رسانی 20200821

              کم کردن xMailItem به عنوان Outlook.MailItem

              کدر کردن xAttachments به عنوان Outlook.Attachments

              Dim xSelection به عنوان Outlook.Selection

              مدت کم نور

              کم کردن xAttCount تا زمانی

              کم کردن xFilePath به عنوان رشته، xFolderPath به عنوان رشته، xSaveFiles به عنوان رشته

              در خطای رزومه بعدی

              xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)

              تنظیم xSelection = Outlook.Application.ActiveExplorer.Selection

              xFolderPath = xFolderPath & "\Attachments\"

              اگر VBA.Dir(xFolderPath، vbDirectory) = vbNullString سپس

              VBA.MkDir xFolderPath

              پایان اگر

              GFilepath = ""

              برای هر xMailItem در xSelection

              xAttachments = xMailItem.Attachments را تنظیم کنید

              xAttCount = xAttachments.Count

              xSaveFiles = ""

              اگر xAttCount >0 سپس

              برای i = xAttCount تا 1 مرحله -1

              GCount = 0

              xFilePath = xFolderPath & xAttachments.Item(i).FileName

              GFilepath = xFilePath

              xFilePath = FileRename(xFilePath)

              اگر IsEmbeddedAttachment(xAttachments.Item(i)) = False سپس

              xAttachments.Item(i).SaveAsFile xFilePath

              If xMailItem.BodyFormat <>olFormatHTML then

              xSaveFiles = xSaveFiles & vbCrLf & "<خطا! مرجع ابرپیوند معتبر نیست.>”

              دیگری

              xSaveFiles = xSaveFiles & "
              " & "<\/a>")