इसलिए, मैंने आउटलुक में एक नियम निर्धारित किया है कि जब भी किसी विशिष्ट स्रोत (हमारी IPS अलर्टिंग सिस्टम) से कोई ई-मेल आता है, तो यह आगे के मैक्रो को आग लगा देगा ताकि आगे की स्वचालित स्क्रिप्टिंग प्यार के लिए मेरी डिस्क से लगाव को बचाया जा सके। इसने लगभग एक सप्ताह तक शानदार काम किया, लेकिन अब अचानक, संलग्नक अब ड्राइव में सहेजे नहीं जा रहे हैं, और मुझे नहीं पता कि कैसे भी प्रयास करें और इसका निवारण करें। केवल एक चीज जिसके बारे में मैं सोच सकता हूं (आने वाले पते को बदलना, जैसा कि नियम आधार था) को खारिज कर दिया गया है, क्योंकि पता अभी भी बिल्कुल वैसा ही है। कोशिश करने और उस पर प्रहार करने के लिए मैं क्या कर सकता हूं, इस पर कोई मदद।
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "c:\Users\Arvandor\Documents\ips_alerts"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub