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

or
0
0
0
s2smodern

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

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

הקצה אוטומטי של קטגוריית צבע לפגישות לאחר קבלתן בקוד VBA


הקצה אוטומטי של קטגוריית צבע לפגישות לאחר קבלתן בקוד VBA

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

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

קוד VBA: הקצה אוטומטי של קטגוריית צבע לפגישות לאחר קבלתן

Public WithEvents SentItems As Outlook.Items
Private Sub Application_Startup()
    Set SentItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub SentItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As Outlook.MeetingItem
Dim xMeetingItemAccepted As Outlook.MeetingItem
Dim xAppointmentItem As Outlook.AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
    Set xMeetingItem = Item
    If InStr(xMeetingItem.Subject, "Accepted:") = 1 Then
        Set xMeetingItemAccepted = xMeetingItem
        Set xAppointmentItem = xMeetingItemAccepted.GetAssociatedAppointment(True)
        With xAppointmentItem
            .Categories = .Categories & "Red Category"
            .Save
        End With
    End If
End If
End Sub

doc אוטומטי לסווג פגישות 1

הערות: בקוד לעיל, אתה יכול לשנות קטגוריה אדומה אל שם הקטגוריה הרצוי של צבע.

3. ואז, הפעל מחדש את Outlook כדי להפעיל את המאקרו.

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

doc אוטומטי לסווג פגישות 2

הערות: קוד זה מוחל רק על חשבון הנתונים המוגדר כברירת מחדל.


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.