Ugrás a tartalomra

Hogyan rendelhetünk színkategóriát automatikusan az értekezletekhez, miután elfogadtuk őket az Outlookban?

A mindennapi munkája során több értekezlet-e-mailt is kaphat az Outlook programban. Előfordulhat, hogy egy meghatározott színkategóriát szeretne az értekezletekhez automatikusan hozzárendelni, amikor azokat elfogadják. Normális esetben manuálisan rendelheti hozzá őket, de ez nehézkes lesz egyenként beállítani őket. Ebben a cikkben arról fogok beszélni, hogyan lehet automatikusan megvalósítani az Outlookban.

Automatikusan hozzárendeli a színkategóriát az értekezletekhez, miután elfogadta őket VBA kóddal


Automatikusan hozzárendeli a színkategóriát az értekezletekhez, miután elfogadta őket VBA kóddal

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Az Microsoft Visual Basic for Applications ablakban kattintson duplán ThisOutlookSession tól Project1 (VbaProject.OTM) ablaktáblán nyissa meg a módot, majd másolja és illessze be a következő kódot az üres modulba.

VBA kód: A színkategória automatikus hozzárendelése az értekezletekhez, miután elfogadta őket

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 az értekezletek automatikus kategorizálása 1

Megjegyzések: A fenti kódban megváltoztathatja Piros kategória a kívánt színkategória nevére.

3. Ezután indítsa újra az Outlook programot a makró elindításához.

4. Ezután, miután elfogadta az értekezlet e-mailt, és kattintson a gombra Küldje el a Válasz most opcióval, az adott színkategóriát egyszerre hozzárendelik az elfogadott értekezlethez. Lásd a képernyőképet:

doc az értekezletek automatikus kategorizálása 2

Megjegyzések: Ezt a kódot csak az alapértelmezett adatfiókra alkalmazzák.


A legjobb irodai hatékonyságnövelő eszközök

Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez

🤖 AI Mail Assistant: Azonnali profi e-mailek mesterséges intelligencia varázslattal – egyetlen kattintással zseniális válaszok, tökéletes hangnem, többnyelvű elsajátítás. Alakítsa át az e-mailezést könnyedén! ...

???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető)  /  Ütemezze az e-mailek küldését  /  Automatikus CC/BCC szabályok szerint e-mail küldésekor  /  Automatikus továbbítás (Speciális szabályok)   /  Automatikus üdvözlet hozzáadása   /  A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...

📨 Email Management: Könnyen visszahívhatja az e-maileket  /  Blokkolja az alanyok és mások átverő e-mailjeit  /  Törölje az ismétlődő e-maileket  /  Részletes keresés  /  Mappák összevonása ...

📁 Attachments ProKötegelt mentés  /  Batch Detach  /  Batch tömörítés  /  Automatikus mentés   /  Automatikus leválasztás  /  Automatikus tömörítés ...

🌟 Interface Magic: 😊További szép és menő hangulatjelek   /  Növelje Outlook termelékenységét a füles nézetekkel  /  Minimalizálja az Outlookot a bezárás helyett ...

👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel  /   Adathalászat elleni e-mailek  /  🕘A feladó időzónájának megjelenítése ...

👩🏼‍🤝‍👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből  /  Egy kapcsolattartó csoport felosztása egyéni csoportokra  /  Távolítsa el a születésnapi emlékeztetőket ...

Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations