טיפ: שפות אחרות הן Google-Translated. אתה יכול לבקר את English גרסה של קישור זה.
התחבר
x
or
x
x
הירשם
x

or
0
0
0
s2smodern

כיצד להעביר הודעות דוא"ל משולחים לא ידועים לתיקיה ספציפית ב- Outlook?

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

העבר הודעות דוא"ל משולחים לא ידועים לתיקיה ספציפית על ידי יצירת כלל

העבר הודעות דוא"ל משולחים לא ידועים לתיקיה ספציפית על ידי החלת קוד VBA


העבר הודעות דוא"ל משולחים לא ידועים לתיקיה ספציפית על ידי יצירת כלל

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

1. יצירת תיקייה חדשה תחת תיקיית תיבת הדואר הנכנס אשר ימקמו את הודעות הדוא"ל מגיעים שולחים unknow כמו המסך הבא מוצג:

להעביר הודעות דוא"ל מ - 1 לא מוכר

2. לאחר מכן לחץ על דף הבית > חוקי > ניהול כללים והתראות, ראה צילום מסך:

להעביר הודעות דוא"ל מ - 2 לא מוכר

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

להעביר הודעות דוא"ל מ - 3 לא מוכר

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

להעביר הודעות דוא"ל מ - 4 לא מוכר

5. לאחר מכן לחץ על הַבָּא , בשלב זה, אל תבחר באפשרות כלשהי, ולחץ על הלחצן הַבָּא כפתור ישירות, תיבת אזהרה הוא popped החוצה, אנא לחץ על יש כפתור, ראה צילום מסך:

להעביר הודעות דוא"ל מ - 5 לא מוכר

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

להעביר הודעות דוא"ל מ - 6 לא מוכר

7. לחץ OK כפתור, וללכת על לחיצה הַבָּא כפתור, זה האם יש יוצאים מן הכלל שיח, לבדוק למעט אם השולח נמצא בפנקס הכתובות שצוין אפשרות ב Step1: בחר חריגים (ים) ולאחר מכן לחץ על הטקסט המקושר מפורט, ו הוסף רשימת כתובות תיבת יצוץ, בחר תיקיית אנשי קשר המכילה את אנשי הקשר שאתה רוצה למעט, ראה צילום מסך:

להעביר הודעות דוא"ל מ - 7 לא מוכר

8. לאחר מכן לחץ על להוסיף ולאחר מכן לחץ על אישור הַבָּא כדי לעבור לתיבת הדו-שיח האחרונה של האשף, הקלד שם כלל ב- Step1: ציין שם עבור כלל זה תיבת טקסט, ולבדוק הפעל כלל זה אפשרות מתוך Step2: כלל ההתקנה סעיף אפשרויות. ראה צילום מסך:

להעביר הודעות דוא"ל מ - 8 לא מוכר

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


העבר הודעות דוא"ל משולחים לא ידועים לתיקיה ספציפית על ידי החלת קוד VBA

ייתכן שהשיטה לעיל היא מטרידה בשבילך, כאן, אתה יכול ליישם קוד להתמודד עם זה מהר ככל שתוכל.

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

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

קוד VBA: העברה אוטומטית של הודעות דוא"ל משולחים לא ידועים לתיקיה ספציפית:

Public WithEvents MailItems As Outlook.Items
Private Sub Application_Startup()
    Set MailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub MailItems_ItemAdd(ByVal item As Object)
Dim xSenderEmailAddress As String
Dim xContactItems As Outlook.Items
Dim xContactItem As ContactItem
Dim I As Long
Dim xFilter As String
Dim xTargetFolder As Folder
Dim xContactFolder As Folder
Dim xStore As Store
Dim xInboxFlds As Folders
Dim xSubFolder As Folder
Dim xFound As Boolean
On Error Resume Next
If item.Class = olMail Then
    xSenderEmailAddress = item.SenderEmailAddress
End If
For Each xStore In Outlook.Application.Session.Stores
    Set xContactItems = xStore.GetDefaultFolder(olFolderContacts).Items
    For I = 3 To 1 Step -1
        xFilter = "[Email" & I & "Address] = " & xSenderEmailAddress
        Set xContactItem = xContactItems.Find(xFilter)
        If TypeName(xContactItem) <> "Nothing" Then Exit For
    Next
Next
If xContactItem Is Nothing Then
    Set xInboxFlds = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders
    xFound = False
    For Each xSubFolder In xInboxFlds
        If xSubFolder.Name = "Unknown" Then
            xFound = True
            Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders("Unknown")
            Exit For
        End If
    Next
    If xFound = False Then
        Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add("Unknown")
    End If
    item.Move xTargetFolder
End If
End Sub

להעביר הודעות דוא&quot;ל מ - 9 לא מוכר

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

להעביר הודעות דוא&quot;ל מ - 10 לא מוכר

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


100 + כלים ותכונות רבי עוצמה עבור Outlook 2010 / 2013 / 2016 / 2019 / Office 365:

לי כתוםתואם ל- Outlook 2010 / 2013 / 2016 / 2019 / Office 365 (32 / 64);

לי כתוםתואם עם Windows XP, Windows Vista, Windows 7 / 8 / 10, Windows Server 2003 / 2008, מערכת Citrix ו- Windows Terminal (שולחן עבודה מרוחק) שרת;

לי כתוםללא תשלום ללא הגבלה תכונה 45 ימים!

קרא עוד | הורדה חינם | קנה עכשיו

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.