עכשיו , במצב התקין הייתי נכנס ל EVENT Application_ItemSend ומכניס שם את הקוד הבא :

Dim olApp As Outlook.Application
Dim nmsName As NameSpace
Dim fldFolder As MAPIFolder

Set olApp = Outlook.Application
'Create namespace reference
Set nmsName = olApp.GetNamespace("MAPI")
Set fldFolder = nmsName.PickFolder
TextBox1.Text = fldFolder.FolderPath

ואז מכניס את הערך של ה TextBox1.Text למאפיין SaveSentMessageFolder
הסבר :

Returns a MAPIFolder object that represents the folder in which a copy of the mail message will be saved upon being sent.

הבעיה היא שזה ממש לא עובד כאשר ספריית היעד נמצאת מחוץ ל MAIL BOX הראשי.

עכשיו ניסיתי את הפתרון הבא :

להריץ מתוך האירוע Application_ItemSend הפעלה של טופס בשם SELECTDST
במצב SHOW 0
שמוגדר כך : ( האירוע המדובר הוא כאשר הטופס עולה ) -

Private Sub UserForm_Initialize()

PauseTime = 4
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
DoEvents
DoEvents

Loop

כאן אני אוסיף את הקוד שיחפש את ההודעה בספריית ה SEND ITEMS
ואת ההודעה הזו אני יעביר לספריה הרצויה .

End Sub

הבעיה ש ה OUTLOOK לא שולח את ההודעה למרות החלק של ה DoEvents ולמרות שהרצתי את ה טופס כ SHOW 0 .