בפוסט זה אני משתף קוד VBA שיש לשתול בתוכנת המיילים: אאוטלוק 365.
קוד זה מאפשר לנו לדעת היכן תייקנו מייל שאנחנו מבצעים חיפוש, כלומר, באיזו תיקייה? וגם מאפשר לנו לנווט אוטומטית לאותה תיקייה.
לחיצה על 'כן' בחלון הנ"ל, תקפיץ אותנו לתיקייה ששם שמרנו את המייל.
קוד ה VBA:
Public Sub GetItemsFolderPath()
Dim obj As Object
Dim F As Outlook.MAPIFolder
Dim Msg$
Set obj = Application.ActiveWindow
If TypeOf obj Is Outlook.Inspector Then
Set obj = obj.CurrentItem
Else
Set obj = obj.Selection(1)
End If
Set F = obj.Parent
Msg = "The path is: " & F.FolderPath & vbCrLf
Msg = Msg & "Switch to the folder?"
If MsgBox(Msg, vbYesNo) = vbYes Then
Set Application.ActiveExplorer.CurrentFolder = F
End If
End Sub
איפה שותלים את הקוד באאוטלוק ואיך מוסיפים כפתור שיראה לנו את הנתיב ששמרנו?
על כל זאת, בסרטון הבא:
