ينقل عناصر بريد Outlook إلى مجلد فرعي عن طريق عنوان البريد الإلكتروني
الخيار صريح
نقل العناصر الفرعية العامة ()
' // أعلن عن المتغيرات الخاصة بك
تعتيم علبة الوارد باسم Outlook.MAPIFolder
تعتيم المجلد الفرعي مثل Outlook.MAPIFolder
خافت olNs مثل Outlook.NameSpace
تعتيم العنصر ككائن
تعتيم العناصر مثل Outlook.Items
خافت lngCount طالما
على خطأ انتقل إلى MsgErr
'تعيين مرجع علبة الوارد
تعيين olNs = Application.GetNamespace("MAPI")
تعيين البريد الوارد = olNs.GetDefaultFolder(olFolderInbox)
مجموعة العناصر = Inbox.Items
' // قم بالتمرير عبر العناصر الموجودة في المجلد للخلف
بالنسبة لـ lngCount = Items.Count To 1 الخطوة -1
تعيين العنصر = العناصر (lngCount)
إذا كان Item.Class = olMail ثم
حدد عنصر الحالة.SenderEmailAddress
' // Email_One
قضية ""
' // تعيين المجلد الفرعي لصندوق الوارد
تعيين المجلد الفرعي = Inbox.Folders("المجلد الأول")
تعيين العنصر = Items.Find ("[SenderEmailAddress] = '"")
إذا كان TypeName(Item) <> "لا شيء" إذن
' // ضع إشارة مقروء
Item.UnRead = خطأ
' // انقل عنصر البريد إلى المجلد الفرعي
العنصر.نقل المجلد الفرعي
إنهاء حالة
' // Email_Two
قضية ""
' // تعيين المجلد الفرعي لصندوق الوارد
تعيين المجلد الفرعي = Inbox.Folders("المجلد الثاني")
تعيين العنصر = Items.Find ("[SenderEmailAddress] = '"")
إذا كان TypeName(Item) <> "لا شيء" إذن
' // ضع إشارة مقروء
Item.UnRead = خطأ
' // انقل عنصر البريد إلى المجلد الفرعي
العنصر.نقل المجلد الفرعي
إنهاء حالة
إنهاء اختر
إنهاء حالة
التالي lngCount
MsgErr_Exit:
تعيين البريد الوارد = لا شيء
تعيين المجلد الفرعي = لا شيء
تعيين olNs = لا شيء
تعيين العنصر = لا شيء
ضبط العناصر = لا شيء
خروج الفرعية
'// معلومات الخطأ
رسالة:
MsgBox "حدث خطأ غير متوقع." _
& vbCrLf & "رقم الخطأ:" & رقم الخطأ _
& vbCrLf & "وصف الخطأ:" & Err.Description _
, vbCritical، "خطأ!"
استئناف MsgErr_Exit
نهاية الفرعية
أو لنقل كافة عناصر البريد الوارد إلى المجلد الفرعي
الخيار صريح
نقل العناصر الفرعية العامة ()
' // أعلن عن المتغيرات الخاصة بك
تعتيم علبة الوارد باسم Outlook.MAPIFolder
تعتيم المجلد الفرعي مثل Outlook.MAPIFolder
خافت olNs مثل Outlook.NameSpace
تعتيم العنصر ككائن
خافت lngCount طالما
تعتيم العناصر مثل Outlook.Items
على خطأ انتقل إلى MsgErr
'تعيين مرجع علبة الوارد
تعيين olNs = Application.GetNamespace("MAPI")
تعيين البريد الوارد = olNs.GetDefaultFolder(olFolderInbox)
مجموعة العناصر = Inbox.Items
' // قم بالتمرير عبر العناصر الموجودة في المجلد للخلف
بالنسبة لـ lngCount = Items.Count To 1 الخطوة -1
تعيين العنصر = العناصر (lngCount)
تصحيح.طباعة العنصر.الموضوع
إذا كان Item.Class = olMail ثم
' // تعيين المجلد الفرعي لصندوق الوارد
تعيين المجلد الفرعي = Inbox.Folders("Temp")
' // ضع إشارة مقروء
Item.UnRead = خطأ
' // انقل عنصر البريد إلى المجلد الفرعي
العنصر.نقل المجلد الفرعي
إنهاء حالة
التالي lngCount
MsgErr_Exit:
تعيين البريد الوارد = لا شيء
تعيين المجلد الفرعي = لا شيء
تعيين olNs = لا شيء
تعيين العنصر = لا شيء
خروج الفرعية
'// معلومات الخطأ
رسالة:
MsgBox "حدث خطأ غير متوقع." _
& vbCrLf & "رقم الخطأ:" & رقم الخطأ _
& vbCrLf & "وصف الخطأ:" & Err.Description _
, vbCritical، "خطأ!"
استئناف MsgErr_Exit
نهاية الفرعية