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
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:
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
???? 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 Pro: Kö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.