VBA Outlook Categories Remove, ADD - 범주 색상 제거 및 추가

⌜ VBA Outlook Categories Remove, ADD - 범주 색상 제거 및 추가 ⌟

안녕하세요. 창원에 서식하고 있는 BIG MAN입니다.

이 코드를 찾는 분들이면, 별다른 설명은 필요 없을 것 같습니다. 아래 코드를 참조하시면 Outlook의 범주 색상을 제거하고 원하는 이름으로 다시 추가할 수 있습니다. 

 

Excel 데이터 가공 및 공유 -> Outlook Email and 일정

 

간단하게 위와 같은 코딩할 때 일정 등록에 동일 색상으로 계속 등록되면 중요도에 따른 일정관리가 어렵기 때문에 코딩 시 중요도에 따라서 색상을 부여하게 되면 사용자 입장에서 매우 편리합니다. 이럴 때 아래 코드를 사용하게 되면 쉽게 접근할 수가 있겠죠.

 

주의) 포스팅되는 모든 글은 게시자의 주관적인 관점이 포함되어 있으며, 절대적인 가이드가 아닙니다. 포스팅 글을 참조 후 발생되는 모든 책임은 본인에게 있음을 알려드립니다.

색삭 INDEX는 좌측 상단을 1번을 우측으로 진행

색상은 없음(Value : 0)을 포함한 총 26가지의 색상을 지원하며 원하는 색상은 위 화면과 같이 색 범주에서 확인을 하시거나, 아래 첨부 파일을 참조하셔서 입력하시면 됩니다. 추가색상이 많은 경우라면 Array + for 구문으로 쉽게 만들수 있겠죠.

Category_Color_Index.txt

0.00MB

Sub CategoryColor_Delete_ADD()

        Dim Outlook_NameSpace           As Namespace
        Dim Outlook_Category               As Category
        
        Set Outlook_NameSpace = outlook.GetNamespace("MAPI")
        
        For Each Outlook_Category In Outlook_NameSpace.Categories
        
                Outlook_NameSpace.Categories.Remove (Outlook_Category.Name)

        Next Outlook_Category
        
        Outlook_NameSpace.Categories.Add Name:="회사", Color:=1
        
        Outlook_NameSpace.Categories.Add Name:="협력", Color:=5
        
End Sub

위 코드는 아래 파일을 참조하여 테스트 해보시기 바랍니다. 더 자세한 내용은 아래 마이크로소프트 공식 가이드를 참조 바랍니다.

Category_Remove_ADD.xlsm

0.02MB

👾코로나18👾 항상 조심하시고 건강하세요~ 감사합니다. 👋🏻😃

✅ 참고

2021.06.21 - VBA 입력된 값이 숫자인지 확인하는 IsNumeric 함수

2021.06.22 - VBA 배열의 최소 크기와 최대 크기를 알려주는 LBound와 UBound 함수

2021.06.24 - VBA 실행 속도를 올리는 쉬운 방법 Application.ScreenUpdating = False

2021.06.28 - VBA 변화는 Column 위치 쉽게 찾기

Microsoft - Categories object (Outlook)

Categories object (Outlook)