मैं एक कार्यक्रम विकसित करने की कोशिश कर रहा हूँ कि जबउपयोगकर्ता एक ईमेल भेजता है, इसे OnItemSend का उपयोग करके इंटरसेप्ट किया गया है। यह काम करता है, हालांकि मैं अगले काम को प्राप्त करने में असमर्थ हूं, जो ईमेल भेजे जाने के बाद भेजा गया आइटम नेटवर्क फ़ोल्डर में सहेजा जाता है।
मैं "TESTER" नामक एक अलग "भेजे गए फ़ोल्डर" को निर्धारित करने के लिए निम्न कोड का उपयोग कर सकता हूं, लेकिन मुझे वास्तव में इसके बजाय या जैसे "c: tempemail.msg" फ़ोल्डर फ़ोल्डर में सहेजने की आवश्यकता है
Dim myItem As Outlook.MailItem
Dim mpfInbox As Outlook.Folder
Dim mpf As Outlook.Folder
mpfInbox = Application.Session.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderInbox)
mpf = mpfInbox.Folders("TESTER")
myItem = Application.ActiveInspector.CurrentItem
myItem.SaveSentMessageFolder = mpf
मुझे पता है मैं ऐसा कुछ कर सकता हूं ...
"myItem.SaveAs sourcefolder और" "और sName, olMSG"
लेकिन इसे भेजे जाने से पहले इसे सहेज लेता है इसलिए संदेश भेजने वाली फ़ाइल एक सहेजी गई ईमेल की बजाय सहेजे गए नए ईमेल की तरह दिखाई देती है।
उत्तर:
उत्तर № 1 के लिए 1उपयोग Items.ItemAdd अपने कस्टम आउटलुक फ़ोल्डर पर घटना (यह संदेश भेजे जाने और उस फ़ोल्डर में चले जाने के बाद आग लग जाएगी), उस संदेश को सहेजें ()MailItem.SaveAs), फिर मूल संदेश को हटा दें।