Tip: Jiné jazyky jsou přeloženy společností Google. Můžete navštívit English verze tohoto odkazu.
Přihlásit se
x
or
x
x
Registrovat
x

or
0
0
0
s2smodern

Jak automaticky přiřadit kategorii barev schůzkám po jejich přijetí v aplikaci Outlook?

Ve své každodenní práci můžete obdržet více e-mailů se schůzem v aplikaci Outlook. Někdy chcete automaticky schválit konkrétní schůzky barev, pokud jsou přijaty. Obvykle je můžete přiřadit ručně, ale to bude obtížné nastavit je po jednom. V tomto článku budu hovořit o tom, jak to automaticky provést v aplikaci Outlook.

Automaticky přiřadit kategorii barev schůzkám po jejich přijetí pomocí kódu VBA


Automaticky přiřadit kategorii barev schůzkám po jejich přijetí pomocí kódu VBA

1. Podržte stisknuté tlačítko ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klikněte dvakrát ThisOutlookSession z Project1 (VbaProject.OTM) panel otevřete režim a potom zkopírujte a vložte následující kód do prázdného modulu.

Kód VBA: Automatické přiřazení kategorií barev ke schůzkám po jejich přijetí

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 auto kategorizovat schůzky 1

Poznámka: Ve výše uvedeném kódu se můžete změnit Červená kategorie na název požadované kategorie barev.

3. A potom restartujte aplikaci Outlook, abyste spustili toto makro.

4. Potom po přijetí schůzky e-mail a klepněte na tlačítko Odpovězte nyní , konkrétní kategorie barev bude přiřazena k přijaté schůzce najednou. Zobrazit screenshot:

doc auto kategorizovat schůzky 2

Poznámka: Tento kód platí pouze pro výchozí datový účet.


100 + Výkonné nástroje a funkce pro aplikaci Outlook 2010 / 2013 / 2016 / 2019 / Office 365:

li-oranžováKompatibilní s aplikací Outlook 2010 / 2013 / 2016 / 2019 / Office 365 (32 / 64);

li-oranžováKompatibilní se systémy Windows XP, Windows Vista, Windows 7 / 8 / 10, systémem Windows Server 2003 / 2008, systémem Citrix a terminálem Windows (Remote Desktop);

li-oranžováBezplatná zkušební verze bez omezování funkce v 45 dnech!

ČTĚTE VÍCE | ZDARMA KE STAŽENÍ | KUP NYNÍ

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.