כיצד לסמן אוטומטית דוא"ל על בסיס קובץ מצורף מסוים ב-Outlook?

Author: Xiaoyang Last Modified: 2025-05-30

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

סימון אוטומטי של דוא"ל על בסיס קובץ מצורף מסוים עם קוד VBA

סימון אוטומטי של דוא"ל על בסיס קובץ מצורף מסוים עם קוד VBA

כדי לסמן אוטומטית את הדוא"ל שמכיל את הקובץ המצורף הספציפי, יש להחיל את הקוד הבא של VBA:

1. הפעל את Outlook, ולאחר מכן החזיקו את המקשים "ALT + F11" כדי לפתוח את חלון "Microsoft Visual Basic for Applications".

2. בחלון "Microsoft Visual Basic for Applications", לחץ פעמיים על "ThisOutlookSession" מהחלונית "Project1(VbaProject.OTM)" כדי לפתוח מצב חדש, ולאחר מכן העתק והדבק את הקוד הבא לתוך המודול הריק.

קוד VBA: סימון אוטומטי של דוא"ל על בסיס קובץ מצורף מסוים:

Public WithEvents GMailItems As Outlook.Items
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    If Item.Class <> olMail Then Exit Sub
    FlagEmail_SpecificAttachments Item
End Sub

Sub FlagEmail_SpecificAttachments(Mail As Outlook.MailItem)
    Dim xAttachment As Outlook.Attachment
    Dim xExt As String
    Dim xFileName As String
    If Mail.Attachments.Count = 0 Then Exit Sub
    For Each xAttachment In Mail.Attachments
        xExt = SplitPath(xAttachment.FileName, 2)
        xFileName = SplitPath(xAttachment.FileName, 1)
        Select Case xExt
            Case "txt", "xlsx", "docx", "pdf"
                If InStr(LCase(xFileName), LCase("KTO")) > 0 Then
                    With Mail
                        .ReminderSet = True
                        .ReminderTime = Now + 1
                        .MarkAsTask olMarkTomorrow
                        .Save
                    End With
                End If
        End Select
    Next
End Sub

Public Function SplitPath(FullPath As String, ResultFlag As Integer) As String
Dim xSplitPos As Integer, xDotPos As Integer
xSplitPos = InStrRev(FullPath, "/")
xDotPos = InStrRev(FullPath, ".")
Select Case ResultFlag
    Case 0
        SplitPath = Left(FullPath, xSplitPos - 1)
    Case 1
        If xDotPos = 0 Then xDotPos = Len(FullPath) + 1
        SplitPath = Mid(FullPath, xSplitPos + 1, xDotPos - xSplitPos - 1)
    Case 2
        If xDotPos = 0 Then xDotPos = Len(FullPath)
        SplitPath = Mid(FullPath, xDotPos + 1)
    Case Else
    Err.Raise vbObjectError + 1, "SplitPath Function", "Invalid Parameter!"
End Select
End Function

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

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

עוזר דוא"ל בינה מלאכותית ב-Outlook: תשובות חכמות יותר, תקשורת ברורה יותר (קסם בלחיצה אחת!) בחינם

פשט את משימות Outlook היומיות שלך עם עוזר הדוא"ל AI מ-Kutools עבור Outlook. כלי חזק זה לומד מדוא"לים קודמים שלך כדי להציע תשובות חכמות ומדויקות, לייעל את תוכן הדוא"ל שלך, ולעזור לך לנסח ולשפר הודעות ללא מאמץ.

תכונה זו תומכת:

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

תכונה זו תומכת: