메인 컨텐츠로 가기

Outlook에서 메일 그룹 구성원을 계산하는 방법은 무엇입니까?

Outlook에는 메일 그룹 구성원을 직접 계산하는 기능이 없습니다. 많은 양의 이메일 주소가 포함 된 배포 목록이있는 경우이 그룹에 포함 된 구성원 수를 확인하는 방법은 무엇입니까? 이 기사에서는 VBA 코드를 사용하여 배포 목록 구성원을 계산하는 방법을 배웁니다.

VBA 코드로 Outlook의 메일 그룹 구성원 계산

VBA 코드 생성 및 저장

빠른 실행 도구 모음에 매크로 단추 추가

VBA 코드 실행

Office 탭 - Microsoft Office에서 탭 편집 및 탐색을 활성화하여 작업을 원활하게 만듭니다.
Outlook용 Kutools - 탁월한 효율성을 위한 100개 이상의 고급 기능으로 Outlook 향상
이러한 고급 기능으로 Outlook 2021~2010 또는 Outlook 365를 향상하세요. 포괄적인 60일 무료 평가판을 즐기고 이메일 경험을 향상시키십시오!

화살표 블루 오른쪽 거품VBA 코드로 Outlook의 메일 그룹 구성원 계산

VBA 코드를 사용하여 다음과 같이 배포 목록 구성원을 계산할 수 있습니다.

VBA 코드 생성 및 저장

1. 열기 응용 프로그램 용 Microsoft Visual Basic 눌러 창 다른 + F11 동시에 키보드의 키.

2. 클릭 끼워 넣다 > 모듈. 스크린 샷보기 :

3. 그런 다음 다음 VBA 코드를 복사하여 Vba프로젝트 창.

VBA : Outlook에서 메일 그룹 구성원 수

Sub CountDLMembers()
    Dim oOL As Outlook.Application
    Dim oSelection As Outlook.Selection
    Dim oItem As Object
    Dim olDL As Outlook.DistListItem
    Dim Result As String
    Set oOL = Outlook.Application
    'Check and get the selected Contact Group
    Select Case TypeName(oOL.ActiveWindow)
        Case "Explorer"
            Set oSelection = oOL.ActiveExplorer.Selection
            If oSelection.Count > 0 Then
                Set oItem = oSelection.Item(1)
            Else
                Result = MsgBox("No item selected. " & _
                            "Please select a Contact Group first.", _
                            vbCritical, "CountDLMembers")
                Exit Sub
            End If
        Case "Inspector"
            Set oItem = oOL.ActiveInspector.CurrentItem
        Case Else
            Result = MsgBox("Unsupported Window type." & _
                        vbNewLine & "Please make a selection" & _
                        "in the Calendar or open a Contact Group first.", _
                        vbCritical, "CountDLMembers")
            Exit Sub
    End Select
    If oItem.Class = Outlook.olDistributionList Then
        'Display the member count
        Set olDL = oItem        
        Result = MsgBox("The Contact Group '" & olDL.DLName & "' contains " & olDL.MemberCount & " members.", vbInformation, "CountDLMembers")
    Else
        'Selected item isn't a Contact Group item
        Result = MsgBox("No Contact Group item selected. " & _
                    "Please make a selection first.", _
                    vbCritical, "CountDLMembers")
        Exit Sub
    End If
    'Cleanup
    Set oOL = Nothing
    Set olDL = Nothing
End Sub

4. 그런 다음 찜하기 버튼을 눌러 저장하십시오.

5. 닫기 응용 프로그램 용 Microsoft Visual Basic 창.

빠른 실행 도구 모음에 매크로 단추 추가

1. 로 이동 Contacts or 사람들 클릭하여보기 Contacts or 사람들 FBI 증오 범죄 보고서 탐색 창.

2. Outlook 2010 및 2013에서 빠른 액세스 도구 모음 다음을 클릭합니다 신속 접근 도구 막대 사용자 화 오른쪽 클릭 메뉴에서. 스크린 샷보기 :

주의 사항: Outlook 2007에서 배포 목록을 열고 마우스 오른쪽 버튼으로 빠른 액세스 도구 모음 선택하려면 빠른 액세스 도구 모음 오른쪽 클릭 메뉴에서.

3. 에서 전망 옵션 대화 상자에서 다음을 수행해야합니다.

1). 당신이 찾고 있는지 확인하십시오 빠른 액세스 도구 모음 섹션;

2). 고르다 매크로 FBI 증오 범죄 보고서 에서 명령 선택 드롭 다운 목록;

삼). 에서 매크로를 선택합니다. 분리 기호 상자;

4). 클릭 추가 단추;

5). 마지막으로 OK 단추. 스크린 샷보기 :

4. 그러면 매크로 버튼이 추가 된 것을 볼 수 있습니다. 빠른 액세스 도구 모음.

VBA 코드 실행

빠른 실행 도구 모음에 매크로 단추를 추가 한 후 이제 VBA 코드를 실행하여 배포 목록 구성원 수를 계산할 수 있습니다.

1. Outlook 2010 및 2013에서는 메일 그룹을 선택한 다음 Q에서 매크로 단추를 클릭하기 만하면됩니다.uick 액세스 도구 모음.

주의 사항: Outlook 2007에서는 메일 그룹을 연 다음 컴퓨터에서 매크로 버튼을 클릭해야합니다. 빠른 액세스 도구 모음.

2. 그러면이 배포 목록에 포함 된 구성원 수를 알려주는 프롬프트 상자가 나타납니다. 그런 다음 OK.


최고의 사무 생산성 도구

Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능

📧 이메일 자동화: 부재중(POP 및 IMAP에서 사용 가능)  /  이메일 보내기 예약  /  이메일 발송 시 규칙에 따른 자동 참조/숨은참조  /  자동 전달(고급 규칙)   /  인사말 자동 추가   /  여러 수신자 이메일을 개별 메시지로 자동 분할 ...

📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다.  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

📁 첨부 파일 프로일괄 저장  /  일괄 분리  /  일괄 압축  /  자동 저장   /  자동 분리  /  자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  탭 보기로 Outlook 생산성 향상  /  문을 닫는 대신 전망을 최소화하세요 ...

???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신  /   피싱 방지 이메일  /  🕘발신자의 시간대 표시 ...

👩🏼‍🤝‍👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가  /  연락처 그룹을 개별 그룹으로 분할  /  생일 알림 제거 ...

이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Wish there was an easier way to find out how many addresses in a contact group, but since there isn't this is about the best method I've seen. Thank you!
This comment was minimized by the moderator on the site
Alternate method is to: create a dummy message with the list expand the list select all copy to Word find and replace: "; " with "^p" [or anything!] dialog box shows number of replacements add 1 to that number
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations