مطلوب كود لمسح مجلد الملفات المرسلة في Ms Outlook

[خالدو]

السلام عليكم ورحمة الله وبركاته

وجدت كود جيد في أحد المواقع لمسح رسالة واحدة من مجلد الملفات المرسلة ولكنه:

1- يظهر مربع حوار للتأكيد

2-المسح غير نهائي بل يذهب إلى مجلد المحذوفات

إليكم الكود:

Public Sub Delete_By_Subject()

Dim itm As Object

Dim mFldr As Object

Dim OutApp As Object

Set OutApp = CreateObject("Outlook.Application")

OutApp.Session.Logon

Set mFldr = OutApp.Session.PickFolder

If mFldr Is Nothing Then Exit Sub

For Each itm In mFldr.Items

If itm.Subject = "This One Silly" Then

itm.Delete

End If

Next itm

Set OutApp = Nothing

Set mFldr = Nothing

Set itm = Nothing

End Sub

هناك أسئلة أرجو من عباقرة منتدانا العظيم ولله الحمد هم كثير:

1- هل من الممكن أن أمسح رسالة معينة مرسلة نهائياً وبدون مربع حوار للتأكيد؟

2-هل يمكنني مسح مجلد الرسائل المرسلة كاملاً وبشكل نهائي من خلال الكود؟

3-عند استلام رسالة معينة من أحد العملاء بموضوع معين.هل من الممكن كود اكسيل يرد على نفس الرسالة "Reply" ؟

أرجو التكرم والمساعدة وجزاكم الله خيراً.

[خالدو]

ارجو من الأخوة: طارق ومحمد صالح والحسامي وعباقرة المنتدى المساعدة للأهمية القصور والضرورة.

وجزاكم الله خيراً