Ինչպե՞ս հաշվել բաշխման ցուցակի անդամներին Outlook- ում:
Outlook- ում ձեզ համար չկա բաշխման ցուցակի անդամներին ուղղակիորեն հաշվելու հատկություն: Եթե ունեք բաշխման ցուցակ `մեծ քանակությամբ էլփոստի հասցեներով, ինչպե՞ս պարզել, թե քանի անդամ է ընդգրկված այս խմբում: Այս հոդվածով դուք կսովորեք, թե ինչպես հաշվել բաշխման ցուցակի անդամներին ՝ օգտագործելով VBA կոդ:
Հաշվեք բաշխման ցուցակի անդամներին Outlook- ում `VBA կոդով
Արագ մուտքի գործիքագոտում մակրոի համար կոճակ ավելացրեք
- Ավտոմատացնել էլ Auto CC / BCC, Ավտոմեքենաների փոխանցում կանոններով; ուղարկել Ավտոմատ պատասխան (Offoff Office) առանց փոխանակման սերվեր պահանջելու...
- Ստացեք նման հիշեցումներ Նախազգուշացում BCC- ի համար երբ պատասխանում եք բոլորին, երբ դուք BCC ցուցակում եք, և Հիշեցրեք հավելվածները բաց թողնելիս մոռացված հավելվածների համար...
- Բարելավել էլփոստի արդյունավետությունը Պատասխանել (Բոլորը) Հավելվածներով, Ավտոմատ ավելացրեք ողջույն կամ ամսաթիվ և ժամ ստորագրության կամ թեմայի մեջ, Պատասխանել բազմաթիվ էլ...
- Հեշտացնել էլփոստի ուղարկումը Վերհիշել նամակները, Կցման գործիքներ (Սեղմել բոլորը, ավտոմատ պահել բոլորը...), Հեռացնել կրկնօրինակները, եւ Արագ հաշվետվություն...
Հաշվեք բաշխման ցուցակի անդամներին Outlook- ում `VBA կոդով
Դուք կարող եք օգտագործել VBA կոդ ՝ բաշխման ցուցակի անդամները հետևյալ կերպ հաշվելու համար:
1: բացել Microsoft Visual Basic հավելվածների համար պատուհանը սեղմելով ալտ + F11 ստեղնաշարի միաժամանակ ստեղներ:
2: սեղմեք Տեղադրել > Մոդուլներ, Տեսեք,
3. Դրանից հետո պատճենեք և տեղադրեք հետևյալ VBA կոդը ՝ VbaProject պատուհան.
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. Գնալ Կապ Մեզ Հետ or Մարդիկ դիտել ՝ կտտացնելով Կապ Մեզ Հետ or Մարդիկ է Նավիգացիոն շրջանակը.
2. Outlook 2010 և 2013 ծրագրերում խնդրում ենք սեղմել աջով Արագ մուտք Գործիքադարակը եւ ապա սեղմեք Անհատականացրեք Արագ մուտքի Գործիքադարակը աջ կտտացնելու ցանկում: Տեսեք,
ՆշումOutlook 2007-ում խնդրում ենք բացել բաշխման ցուցակ և այնուհետև սեղմել աջի վրա Արագ մուտք Գործիքադարակը ընտրելու համար Արագ մուտք Գործիքադարակը աջ կտտացնելու ցանկում:
3. Մեջ Outlook տարբերակները երկխոսության տուփ, անհրաժեշտ է.
1) Համոզվեք, որ գտնվում եք տեղակայքում Արագ մուտք Գործիքադարակը Բաժին;
2) Ընտրեք Մակրո է Ընտրեք հրամաններ բացվող ցուցակ;
3) Ընտրեք մակրոները ՝ Բաժանիչ տուփ;
4) Սեղմիր Ավելացնել կոճակ;
5) Եվ վերջապես կտտացրեք այն OK կոճակ Տեսեք,
4. Դրանից հետո կտեսնեք, որ մակրոի համար կոճակը ավելացված է Արագ մուտք Գործիքադարակը.
Արագ մուտքի գործիքագոտում մակրոի համար կոճակ ավելացնելուց հետո այժմ կարող եք գործարկել VBA կոդը ՝ բաշխման ցուցակի անդամներին հաշվելու համար:
1. Outlook 2010 և 2013 թվականներում կարող եք պարզապես ընտրել բաշխման ցուցակ, ապա կտտացնել Q- ի մակրոի կոճակինuick Access Գործիքադարակը.
ՆշումOutlook 2007-ում դուք պետք է բացեք բաշխման ցուցակ և այնուհետև կտտացրեք մակրոի վրա կոճակին Արագ մուտք Գործիքադարակը.
2. Այնուհետև կհայտնվի հուշման տուփ, որը կպատմի ձեզ, թե քանի անդամ կա այս բաշխման ցուցակում: Դրանից հետո կտտացրեք OK.
Գրասենյակի արտադրողականության լավագույն գործիքները
Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար
🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...
📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար) / Ժամանակացույց ուղարկել նամակներ / Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով / Ավտոմատ փոխանցում (Ընդլայնված կանոններ) / Ավտոմատ ավելացնել ողջույնները / Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...
📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները / Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց / Deleteնջել կրկնօրինակ նամակները / Ընդլայնված որոնում / Համախմբել Թղթապանակները ...
📁 Հավելվածներ Pro: Խմբաքանակի պահպանում / Խմբաքանակի անջատում / Խմբաքանակային կոմպրես / Auto Save- ը / Ավտոմատ անջատում / Ավտոմատ սեղմում ...
🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ / Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով / Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...
???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով / Հակաֆիշինգի էլ. նամակներ / 🕘Ցուցադրել ուղարկողի ժամային գոտին ...
👩🏼🤝👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ / Կոնտակտային խումբը բաժանեք առանձին խմբերի / Հեռացնել ծննդյան հիշեցումները ...
Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար: