انتقل إلى المحتوى الرئيسي

كيفية تنزيل / حفظ المرفقات تلقائيًا من Outlook إلى مجلد معين؟

في حين أن حفظ جميع المرفقات من بريد إلكتروني واحد في Outlook يكون أمرًا سهلاً باستخدام مرفقات > احفظ كافة المرفقات خيار إدارة المرفقات من رسائل البريد الإلكتروني المتعددة، خاصة بكميات كبيرة، يمكن أن يكون أكثر صعوبة. تقدم هذه المقالة حلين فعالين لتنزيل المرفقات تلقائيًا من رسائل البريد الإلكتروني في Outlook إلى مجلد معين. تعتبر هذه الأساليب مفيدة بشكل خاص عند التعامل مع العديد من رسائل البريد الإلكتروني والمرفقات، مما يؤدي إلى تبسيط العملية وتوفير الوقت.


قم بتنزيل مرفقات Outlook تلقائيًا إلى مجلد باستخدام VBA والقاعدة

يتضمن هذا الأسلوب استخدام برنامج VBA النصي، والذي، عند تنفيذه باستخدام قاعدة معينة، سيقوم تلقائيًا بتنزيل المرفقات وحفظها من رسائل البريد الإلكتروني في Outlook إلى مجلد معين. يرجى متابعة الخطوات التالية:

  1. صحافة ALT + F11 لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
  2. انقر إدراج > وحدة، ثم قم بلصق البرنامج النصي VBA أدناه في الملف المفتوح حديثًا وحدة نافذة.

    فبا: حفظ تلقائي لمرفقات Outlook في مجلد معين

    Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
    Dim oAttachment As Outlook.Attachment
    Dim sSaveFolder As String
    sSaveFolder = "C:\Users\DT168\Documents\outlook-attachments\"
    For Each oAttachment In MItem.Attachments
    oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
    Next
    End Sub

    ملحوظة: يرجى تحديد موقع الخط sSaveFolder = "C: \ Users \ DT168 \ Documents \ outlook-attachments \"، واستبدله بمسار المجلد الوجهة المطلوب.

  3. احفظ البرنامج النصي VBA وأغلق ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
  4. انتقل إلى بريد عرض وانقر فوق الصفحة الرئيسية > قوانيـن > إدارة القواعد والتنبيهات.
  5. في الافتتاح القواعد والتنبيهات مربع الحوار ، الرجاء النقر فوق قانون جديد زر على قواعد البريد الإلكتروني علامة التبويب.
  6. في مجلة معالج القواعد مربع الحوار الذي يظهر، الرجاء تحديد تطبيق القاعدة على الرسائل التي أتلقىها الخيار، وانقر فوق التالى .
  7. في مجلة معالج القواعد (ما هو الشرط (الشروط) الذي تريد التحقق منه؟) مربع الحوار، انقر فوق التالى الزر دون تحديد أي خيارات. ومن ثم انقر فوق نعم الزر في النافذة المنبثقة مايكروسوفت أوتلوك صندوق المحادثة.
  8. في ما يلي معالج القواعد (ماذا تريد أن تفعل بالرسالة؟) في مربع الحوار، تابع كما يلي:
    1. افحص ال تشغيل البرنامج النصي الخيار. تلميح: إذا كنت لا ترى الخيار، من فضلك انتقل إلى هذا البرنامج التعليمي حول تمكين خيار "تشغيل البرنامج النصي" في Outlook.
    2. انقر فوق النص "البرنامج النصي" الذي تحته خط باللون الأزرق لفتح الملف حدد البرنامج النصي صندوق المحادثة. هنا، اختر البرنامج النصي الذي أضفته الخطوة2 وانقر فوق OK .
    3. انقر على التالى زر للمضي قدما.
  9. في مجلة معالج القواعد (هل هناك أي استثناءات؟) مربع الحوار ، الرجاء النقر فوق التالى زر مباشرة.
  10. في الاخير معالج القواعد في مربع الحوار، الرجاء تسمية القاعدة في الخطوة1 المربع ، حدد الخيارات كما تريد في ملف الخطوة2 ، ثم انقر فوق نهاية .
  11. أقفل ال القواعد والتنبيهات صندوق المحادثة.

نتيجة

الآن، إذا قمت بتحديد الخيار "تشغيل هذه القاعدة الآن على الرسائل الموجودة بالفعل في البريد الوارد"، فسيتم تنزيل جميع المرفقات من حساب بريدك الإلكتروني وتخزينها في مجلد الوجهة المحدد. بالإضافة إلى ذلك، إذا حددت خيار "تشغيل هذه القاعدة"، فسيتم تنزيل جميع المرفقات من رسائل البريد الإلكتروني الواردة تلقائيًا وحفظها في المجلد المخصص.


قم بتنزيل مرفقات Outlook تلقائيًا إلى مجلد باستخدام Kutools for Outlook

بدافع كوتولس لتوقعات المثبتة على جهاز الكمبيوتر الخاص بك، لها فصل تلقائي تمكّنك هذه الوظيفة من تنزيل جميع مرفقات Outlook أو مرفقات محددة تلقائيًا بناءً على الشروط التي حددتها، وتوجيهها بسهولة إلى المجلد المختار. بالإضافة إلى ذلك، توفر هذه الميزة المرونة لإنشاء مجلدات فرعية. وهو يوفر بديلين لتسمية هذه المجلدات الفرعية: يمكنك الاختيار من أحد التنسيقات، مثل [مجلد الرسالة]-[موضوع الرسالة]أو اختر إلحاق سلسلة نصية مخصصة كلاحقة للتنسيق الذي اخترته. تعمل هذه الإمكانية على تحسين تنظيم المرفقات وإمكانية الوصول إليها بشكل كبير.

كوتولس لتوقعات: قم بتعزيز Outlook باستخدام أكثر من 100 أداة ضرورية. اختبر قيادتها مجانًا لمدة 60 يومًا، دون أي شروط!   اقرأ أكثر...   تحميل الآن!

  1. انقر كوتولس > فصل تلقائي لفتح مربع حوار الميزات.
  2. في مجلة مرفقات الفصل التلقائي الحوار ، حدد فصل تلقائي لجميع المرفقات المستلمة الخيار وتكوينه على النحو التالي:
    1. انقر فوق زر التصفح لتحديد المجلد الوجهة لحفظ المرفقات المنفصلة تلقائيًا.
    2. (اختياري) تحقق من فصل المرفقات في النمط أدناه الخيار إذا كنت ترغب في إنشاء مجلدات فرعية لتخزين المرفقات.
      • إنشاء مجلدات فرعية في النمط أدناه: قم بتسمية المجلدات الفرعية بأحد التنسيقات المحددة مسبقًا، مثل [مجلد الرسالة]-[موضوع الرسالة].
      • أعد تسمية المرفقات المحفوظة بالنمط أدناه: قم بتسمية المجلدات الفرعية باستخدام أحد التنسيقات المحددة مسبقًا وأضف سلسلة نصية مخصصة كلاحقة.
    3. (اختياري) تحقق من رمز المرفق لا يزال في رسائل البريد الإلكتروني خيار للاحتفاظ بمؤشر مرئي في رسائل البريد الإلكتروني التي تحتوي على مرفقات.
    4. انقر موافق.

نتيجة

بدءًا من الآن، سيتم حفظ جميع المرفقات تلقائيًا في المجلد المحدد عند استلام رسائل البريد الإلكتروني.

تلميح: إذا كنت تريد إعداد الفصل التلقائي للمرفقات بناءً على قواعد محددة، فقم بتمكين فصل تلقائي للمرفقات حسب القواعد الخيار في مرفقات الفصل التلقائي الحوار. بعد ذلك، انقر فوق جديد زر لتحديد شروط الفلتر وإعدادات الحفظ المطلوبة.

الملاحظات:

  • تريد الوصول إلى فصل تلقائي ميزة؟ تحميل كوتولس لتوقعات الآن! علاوة على ذلك، تفتخر Kutools بعدد لا يحصى من أكثر من 100 ميزة أخرى وتقدم نسخة تجريبية مجانية مدتها 60 يومًا. لا تنتظر، جربها اليوم!
  • إذا كنت ترغب في فصل أو تنزيل المرفقات الموجودة من عدة/جميع رسائل البريد الإلكتروني المستلمة في أوتلوك، قم بتطبيق كوتولس فور أوتلوك فصل الكل (المرفقات) or حفظ الكل (المرفقات) ميزة.

مقالات ذات صلة:


أفضل أدوات إنتاجية المكتب

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP)  /  جدولة إرسال رسائل البريد الإلكتروني  /  نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني  /  إعادة التوجيه التلقائي (القواعد المتقدمة)   /  إضافة تحية تلقائية   /  تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية 

📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة  /  حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين  /  حذف رسائل البريد الإلكتروني المكررة  /  المزيد من خيارات البحث  /  توحيد المجلدات 

📁 المرفقات بروحفظ دفعة  /  فصل دفعة  /  ضغط دفعة  /  حفظ تلقائي   /  فصل تلقائي  /  ضغط تلقائي 

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة  /  تصغير Outlook بدلاً من الإغلاق 

؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة  /   رسائل البريد الإلكتروني لمكافحة التصيد  /  🕘إظهار المنطقة الزمنية للمرسل 

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة  /  تقسيم مجموعة اتصال إلى مجموعات فردية  /  إزالة تذكير عيد ميلاد 

على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

 

 

Comments (115)
Rated 4.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thank you for this information
This comment was minimized by the moderator on the site
May i ask some question?

I usually received mail to many people and many kinds of files.
So i should distinguish each file.
But now, It can`t.

So Did you have any idea for this?
(like chacnged file name or and so on...)

Thank you for your help

BR
Hansu
This comment was minimized by the moderator on the site
Thank you for your great code
This comment was minimized by the moderator on the site
Hi,
I create Module in Microsoft VBA & save it
However when go to create Rules in Outlook, I can't see the select box of "Run a script"
What is the reason & how to fix it?
Thank you
This comment was minimized by the moderator on the site
Hi there,

In some versions of Outlook, especially in more recent updates, the "Run a Script" option might be disabled by default due to security concerns. To enable the "Run a Script" option in Outlook, you usually need to modify the registry settings. Here's a general guide on how to do it:

1. Close Outlook: Make sure Outlook is not running.
2. Open Registry Editor: Press Win + R, type regedit, and hit Enter.
3. Navigate to the Outlook Security Settings: Depending on your version of Outlook, you'll need to navigate to a specific path in the Registry Editor. For example, for Outlook 2016, 2019, and Microsoft 365, you might navigate to HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Security.
4. Modify/Add the Registry Value:
4.1 Right-click in the right pane and choose New > DWORD (32-bit) Value.
4.2 Name the new value as EnableUnsafeClientMailRules.
4.3 Set its value to 1.
5. Close Registry Editor and restart your computer.
6. Open Outlook and check if the "Run a Script" option is available.
This comment was minimized by the moderator on the site
Ale kupa, oszuści. Maile zaczynają znikać. Nie mam moich wiadomości.
This comment was minimized by the moderator on the site
Hi, code works great however I am saving excel files and was wondering how I can modify the saved name. I recieve files like this "exa 2022-08.xlsx" how can I save the excel file as just "2022-08"?

this is my current code and my file saves however as just a file type not excel.

Public Sub PortlandDaily(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "T:\_Portland\Engineering Data\Daily Production Data\Test\"
For Each oAttachment In MItem.Attachments

Dim SplitName() As String
SplitName = Split(oAttachment.DisplayName, ".")

Dim RightName As String
RightName = Right(SplitName(0), 7)

Dim SaveName As String

SaveName = sSaveFolder & RightName

oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName

Next
End Sub
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
Hi there,

Please try the code below:
Public Sub PortlandDaily(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "T:\_Portland\Engineering Data\Daily Production Data\Test\"
For Each oAttachment In MItem.Attachments
  Dim SplitName() As String
  SplitName = Split(oAttachment.DisplayName, ".")
  Dim RightName As String
  RightName = Right(SplitName(0), 7) 'You can also declare the file name here, e.g., RightName = "2022-08"
  Dim SaveName As String
  SaveName = sSaveFolder & RightName & "." & SplitName(1)
  oAttachment.SaveAsFile SaveName
Next
End Sub


Amanda
This comment was minimized by the moderator on the site
Hi. is it possible to give the attachment file an entirely new name, using information form the mail (for example the date of delivery).
This comment was minimized by the moderator on the site
Hi,
How can I create a VBA to save attachment (Excel file) in my location drive when email received in my outlook folder and using the file name based on cell value...Many thanks

Regards,
Anthony On
This comment was minimized by the moderator on the site
Bonjour, j'ai réussi à rajouter "exécuter un script" dans les règles et faire fonctionner le script dans outlook. Les pièces jointes d'un mail bien précis s'enregistrent parfaitement dans le dossier demandé. Sauf que j'aimerais enregistrer uniquement les fichiers .txt, et non les .pdf qui s'incrémentent également. Aussi j'ai une autre requête s'il vous plaît, le script fonctionne très bien pour définir un dossier de destination, mais je souhaite définir d'autres règles qui me permettraient d'enregistrer les pièces jointes d'autres mails vers un autre dossier de destination. J'ai essayé de faire un 2e module VBA, cela ne fonctionne pas. J'ai généré un deuxième projet VBA mais Outlook n'en gère qu'un seul. Dans ce cas, comment remédier s'il vous plait ? Merci pour ce tuto très clair pour moi qui suis débutante.
This comment was minimized by the moderator on the site
Hi pearl,
Could you please send the code you generated so that we can fix it?
Amanda
This comment was minimized by the moderator on the site
Hi Can we  download the attachment contains specific letters using VBA code
This comment was minimized by the moderator on the site
Hi DAS,
When you said “the attachment contains specific letters”, did you mean you want to download the attachments from specific letters?
Amanda
This comment was minimized by the moderator on the site
Hi,
I executed the VBA + Rule option and it seemed to work perfectly. However, it recently stopped working with no errors. The rule is set to read the subject line, move to a certain folder if there is a certain subject, and then run the script. I know the trigger is working in the rule because the first action (move to folder) is working as it should.
Any idea why the rule trigger would work, but the documents are no longer being saved?
Things I have tried/checked:-The file path is correct-I added delays in various spots in the vba using application.wait-outlook has been shutdown and re-opened, and so has my laptop
(disclosure: I am a bit of a VBA newbie, but have beginner level coding knowledge)
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations