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

كيف تحفظ جميع المرفقات من رسائل بريد إلكتروني متعددة إلى مجلد في Outlook؟

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

احفظ جميع المرفقات من رسائل بريد إلكتروني متعددة إلى مجلد برمز VBA
عدة نقرات لحفظ جميع المرفقات من رسائل بريد إلكتروني متعددة إلى مجلد باستخدام أداة رائعة


احفظ جميع المرفقات من رسائل بريد إلكتروني متعددة إلى مجلد برمز VBA

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

1. أولاً ، تحتاج إلى إنشاء مجلد لحفظ المرفقات في جهاز الكمبيوتر الخاص بك.

ندخل في الوثائق مجلد وإنشاء مجلد باسم "المرفقات". انظر لقطة الشاشة:

2. حدد رسائل البريد الإلكتروني التي ستحفظ المرفقات ، ثم اضغط قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

3. انقر إدراج > وحدة لفتح وحدة نافذة ، ثم انسخ أحد رموز فبا التالية في النافذة.

كود فبا 1: الحفظ المجمع للمرفقات من رسائل بريد إلكتروني متعددة (احفظ مرفقات الاسم نفسه بالضبط)

نصائح: سيحفظ هذا الرمز مرفقات الاسم نفسه بالضبط عن طريق إضافة الأرقام 1 ، 2 ، 3 ... بعد أسماء الملفات.

Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            GCount = 0
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            GFilepath = xFilePath
            xFilePath = FileRename(xFilePath)
            If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
    GCount = GCount + 1
    xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath)
    FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function
كود فبا 2: الحفظ المجمع للمرفقات من رسائل بريد إلكتروني متعددة (تحقق من التكرارات)
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
Dim xYesNo As Integer
Dim xFlag As Boolean
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            xFlag = True
            If VBA.Dir(xFilePath, 16) <> Empty Then
                xYesNo = MsgBox("The file is exists, do you want to replace it", vbYesNo + vbInformation, "Kutools for Outlook")
                If xYesNo = vbNo Then xFlag = False
            End If
            If xFlag = True Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

ملاحظة:

1) إذا كنت تريد حفظ جميع مرفقات الاسم نفسه في مجلد ، فيرجى تطبيق ما سبق كود فبا 1. قبل تشغيل هذا الرمز ، الرجاء الضغط الأدوات > مراجع حسابات، ثم تحقق من وقت تشغيل البرمجة لـ Microsoft في مربع المراجع - المشروع صندوق المحادثة؛

doc حفظ المرفقات 07

2) إذا كنت تريد التحقق من وجود أسماء مرفقات مكررة ، فالرجاء تطبيق رمز VBA 2. بعد تشغيل الرمز ، سيظهر مربع حوار لتذكيرك بما إذا كنت تريد استبدال المرفقات المكررة ، اختر نعم or لا على أساس الاحتياجات الخاصة بك.

5. اضغط على F5 مفتاح لتشغيل الكود.

ثم يتم حفظ جميع المرفقات الموجودة في رسائل البريد الإلكتروني المحددة في المجلد الذي قمت بإنشائه في الخطوة 1. 

الملاحظات: قد يكون هناك مايكروسوفت أوتلوك ظهور مربع موجه ، الرجاء النقر فوق السماح زر للمضي قدما.


احفظ جميع المرفقات من رسائل بريد إلكتروني متعددة إلى مجلد باستخدام أداة رائعة

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

1. حدد رسائل البريد الإلكتروني التي تحتوي على المرفقات التي تريد حفظها.

نصيحة: يمكنك تحديد عدة رسائل بريد إلكتروني غير متجاورة بالضغط على CTRL مفتاح وحددهم واحدًا تلو الآخر ؛
أو حدد عدة رسائل بريد إلكتروني متجاورة بالضغط على تغير مفتاح وحدد البريد الإلكتروني الأول والأخير.

2. انقر كوتولس >أدوات المرفقاتانقاذ جميع. انظر لقطة الشاشة:

3. في ال حفظ الإعدادات الحوار ، انقر فوق لتحديد مجلد لحفظ المرفقات ، ثم انقر فوق OK .

3. انقر OK مرتين في مربع الحوار المنبثق التالي ، ثم يتم حفظ جميع المرفقات في رسائل البريد الإلكتروني المحددة في مجلد محدد مرة واحدة.

الملاحظات:

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

  إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (60 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.


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

قم بإدراج المرفقات في نص رسالة البريد الإلكتروني في Outlook
عادةً ما يتم عرض المرفقات في الحقل "مرفق" في رسالة بريد إلكتروني مؤلفة. يوفر هذا البرنامج التعليمي هنا طرقًا لمساعدتك في إدراج المرفقات بسهولة في نص البريد الإلكتروني في Outlook.

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

اطبع جميع المرفقات في بريد إلكتروني واحد / متعدد في Outlook
كما تعلم ، سيتم فقط طباعة محتوى البريد الإلكتروني مثل الرأس والجسم عندما تنقر فوق ملف> طباعة في Microsoft Outlook ، ولكن لن تطبع المرفقات. سنوضح لك هنا كيفية طباعة جميع المرفقات في بريد إلكتروني محدد بسهولة في Microsoft Outlook.

كلمات البحث داخل المرفق (المحتوى) في Outlook
عندما نكتب كلمة رئيسية في مربع البحث الفوري في Outlook ، فإنها ستبحث عن الكلمة الأساسية في مواضيع رسائل البريد الإلكتروني ، والهيئات ، والمرفقات ، وما إلى ذلك. ولكن الآن أنا فقط بحاجة إلى البحث عن الكلمة الأساسية في محتوى المرفقات في Outlook فقط ، هل لديك أي فكرة؟ توضح لك هذه المقالة الخطوات التفصيلية للبحث عن الكلمات داخل محتوى المرفقات في Outlook بسهولة.

احتفظ بالمرفقات عند الرد في Outlook
عندما نعيد توجيه رسالة بريد إلكتروني في Microsoft Outlook ، تظل المرفقات الأصلية في رسالة البريد الإلكتروني هذه في الرسالة المعاد توجيهها. ومع ذلك ، عندما نرد على رسالة بريد إلكتروني ، لن يتم إرفاق المرفقات الأصلية في رسالة الرد الجديدة. سنقدم هنا حيلتين حول الاحتفاظ بالمرفقات الأصلية عند الرد في Microsoft Outlook.


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

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

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

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

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

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

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

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

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

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

 

 

Comments (81)
Rated 3.5 out of 5 · 3 ratings
This comment was minimized by the moderator on the site
Thank you for sharing the code. Unfortunately, I tried both with failure. This is what I got - The macros in this project are disabled. Please refer to the online help or documentation of the host application to determine how to enable macros. Thank you.
This comment was minimized by the moderator on the site
Hi,
Please follow the instructions in the screenshot below to check if macros are enabled in the macro settings in your Outlook. After enabling both options, re-run the VBA code.

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/macro-enabled.png
This comment was minimized by the moderator on the site
Thank you so much.
Rated 5 out of 5
This comment was minimized by the moderator on the site
Thank you for sharing VBA code. This work like magic and is going to save it lots of time!
This comment was minimized by the moderator on the site
Hello friends!

Thanks for sharing this VBA code.

Is there any way to change the location of the save folder?

I share the pc with some colleagues and in this case I need the files to be saved in a password protected folder which is not located in the documents folder.

How can I make this change?

Thank you in advance
This comment was minimized by the moderator on the site
Hi Fabiana,
Change the line 14
xFolderPath = xFolderPath & "\Attachments\"

to
xFolderPath = "C:\Users\Win10x64Test\Desktop\save attachments\1\"

Here "C:\Users\Win10x64Test\Desktop\save attachments\1\" is the folder path in my case.
Don't forget to end the folder path with a slash "\"
This comment was minimized by the moderator on the site
Hello friends!

Thank you for sharing that VBA code.

Is there any way to change the location of the save folder?

I share the pc with some colleagues and in this case I need the files to be saved in a password protected folder which is not located in the documents folder.

How can I make this change?

Thank you in advance
This comment was minimized by the moderator on the site
If you are trying to run the Code that renames duplicate files and keep getting a "User Type Not Defined" error message here is the code fixed. Instead of the "Dim xFso As FileSystemObject" on line 47 it should be "Dim xFso As Variant"
Also added a Message Box to appear at the end of data transfer.

Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = ""
If xAttCount > 0 Then
For i = xAttCount To 1 Step -1
GCount = 0
xFilePath = xFolderPath & xAttachments.Item(i).FileName
GFilepath = xFilePath
xFilePath = FileRename(xFilePath)
If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
xAttachments.Item(i).SaveAsFile xFilePath
If xMailItem.BodyFormat <> olFormatHTML Then
xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
Else
xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
End If
End If
Next i
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
MsgBoX prompt:="File Transfer Complete", Title:="Sweatyjalapenos tha Goat"
End Sub

Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As Variant
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
GCount = GCount + 1
xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath)
FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
xHtml = xItem.HTMLBody
xID = "cid:" & xCid
If InStr(xHtml, xID) > 0 Then
IsEmbeddedAttachment = True

End If
End If
End Function
This comment was minimized by the moderator on the site
Very nice script as of 2022-10-19 works great, for me doesn't seem to change original message by adding text. The only thing I changed is I added message received date time to each file name with the following format so it would nicely sort by date time in Windows folder: "yyyy-mm-dd HH-mm-ss ".

Code:

Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String, xDateFormat As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = ""
If xAttCount > 0 Then
For i = xAttCount To 1 Step -1
GCount = 0
xDateFormat = Format(xMailItem.ReceivedTime, "yyyy-mm-dd HH-mm-ss ")
xFilePath = xFolderPath & xDateFormat & xAttachments.Item(i).FileName
GFilepath = xFilePath
xFilePath = FileRename(xFilePath)
If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
xAttachments.Item(i).SaveAsFile xFilePath
If xMailItem.BodyFormat <> olFormatHTML Then
xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
Else
xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
End If
End If
Next i
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
GCount = GCount + 1
xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath)
FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
xHtml = xItem.HTMLBody
xID = "cid:" & xCid
If InStr(xHtml, xID) > 0 Then
IsEmbeddedAttachment = True
End If
End If
End Function
This comment was minimized by the moderator on the site
Hi Oigo,
This is a very useful VBA script. Thank you for sharing it.
This comment was minimized by the moderator on the site
Hi crystal,

sorry for not being clear.

I was trying to use the code above mentioned. However, apparently I was doing something wrong. I was thinking that I might need to amend some parts in the code shown. For instance the path where to save the attachments and maybe some other parts. Therefore I was asking if you could share the code highlighting the parts which needs tailoring and how to tailor them.

Many thanks,
BR
This comment was minimized by the moderator on the site
Hi Rokkie,
Did you get any error prompt when the code runs? Or which line in your code is highlighted? I need more details so I can see where you can modify the code.
This comment was minimized by the moderator on the site
Hey crystal,

completeley new to this VBA. Can you share a code to use which shows where I have to amend with an example? As a Rookie it is a bit difficult to figure it out.

I am working via a Ctrix connection. Could this be a blocker for the macro?

Much appreaciate the help.
This comment was minimized by the moderator on the site
Hi Rookie,
Sorry I don't understand what you mean: "Can you share a code to use which shows where I have to amend with an example?"
And the code operates on selected emails in Outlook, Ctrix Connection does not block the macro.
This comment was minimized by the moderator on the site
Hi, I am running this Code 1 to extract .txt files from separate sub-folders of an inbox. It works great out of one sub-folder but not at all out of another sub-folder. I have tried forwarding the relevant email and attachment into other inboxes but no luck. The files are automatically generated and sent to the different sub-folders and only vary by a single letter in their title

Any help much is appreciated
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