כלל באוטלוק

[Tomy48]

כלל באוטלוק

שלום

אאוטלוק 2016
מנסה ליצר כלל שהטריגר שלו הוא מילים בשם קובץ מצורף, מסוג PDF.

יצרתי כלל, סימנתי כולל קובץ מצורף,
סימנתי "עם מאפיינים נבחרים של מסמכים או טפסים"
ניסיתי עם מספר שדות מסמך "כותרת" "נושא מסמך" "מילות מפתח" שיכילו את המילים שאני מחפש בשם הקובץ, ואף אחת מהאפשרויות לא הציתה את הכלל.

אולי יש למישהו רעיון?

תודה.

 

[ziv98]

נסה אולי

https://stackoverflow.com/questions...mail-to-a-folder-based-on-attachment-filename
&nbsp
לא בדקתי

 

[Tomy48]

תודה על התשובה

בקישור המצורף יש שני מאקרואים.


ביצעתי את השינויים של שם הקובץ ושם הסיפריה במאקרו הראשון, ושם החשבון במאקרו השני.

הארוע מתקיים הוא מזהה את שם הקובץ(בדקתי בעזרת MsgBox כ- break point ), אך המייל לא עובר לסיפריה.

יש לך רעיון?

 

[ziv98]

2 שים לב

שים לב 1:
שם הקובץ מופיע ב - UCase. עבד לי רק שבשם הקובץ כתבתי באותיות גדולות (לא בדקתי עם שם בעברית).
שים לב 2:
לפחות אצלי (שרת אקסצ'יינג + אוטלוק 2019) - התיקיה נמצאת 2 דרגות פנימה:
1. שם החשבון
2. תיבת דואר נכנס (בעברית)
3. התיקיה עצמה

כיוון שכך, הוספתי עוד הפניית FOLDER באמצע:

Sub MoveToFolder(mItem As MailItem, FolderName)

 '###!!!!!!!!!!!!!!!!###
 Const mailboxNameString As String = "[EMAIL][email protected][/EMAIL]"
 Const mailboxNameString1 As String = "úéáú ãåàø ðëðñ"

 Dim olApp As New Outlook.Application
 Dim olNameSpace As Outlook.NameSpace
 Dim olDestFolder As Outlook.MAPIFolder

 Set olNameSpace = olApp.GetNamespace("MAPI")
' Set olDestFolder = olNameSpace.Folders(mailboxNameString).Folders(FolderName)

 '###!!!!!!!!!!!!!!!!###
Set olDestFolder = olNameSpace.Folders(mailboxNameString).Folders(mailboxNameString1).Folders(FolderName)

 

[Tomy48]

וואווווווו

תודה.

אצלי השם היה בעברית וראיתי את UPPER CASE,
תיקנתי את הדרגה פנימה ואכן עובד כמו ענק.

תודה גדולה.