Jak skrýt faxové číslo v seznamu Vybrat jména v aplikaci Outlook?
V aplikaci Outlook jste možná zjistili, že v seznamu nebo adresáři „Vybrat jména“ obsahuje sloupec E-mailová adresa nejen e-mailové adresy, ale také faxové položky, které vás možná otravují. V tomto článku představuji několik způsobů, jak pro vás skrýt faxové číslo.
Skrýt faxové číslo v seznamu Vybrat jména pomocí VBA
Skrýt faxové číslo v seznamu Vybrat jména pomocí VBA
Chcete-li skrýt existující faxové číslo v seznamu Vybrat jméno, postupujte takto:
1. lis Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno.
2. cvaknutí Vložit > Modul Chcete-li vložit nový prázdný modul, zkopírujte a vložte pod kód do skriptu.
VBA: Skrýt existující faxové číslo ve Vybrat jména
Sub HideFaxNumbers_ExistingContacts()
'UpdatebyExtendoffice2018-5-23
Dim xStores As Outlook.Stores
Dim xStore As Outlook.Store
Dim xRootFolder As Outlook.Folder
Dim xFolder As Folder
On Error Resume Next
Set xStores = Outlook.Application.Session.Stores
For Each xStore In xStores
Set xRootFolder = xStore.GetRootFolder
For Each xFolder In xRootFolder.Folders
Call ProcessFolders(xFolder)
Next
Next
End Sub
Sub ProcessFolders(ByVal CurrentFolder As Outlook.Folder)
Dim xContactItem As Outlook.ContactItem
Dim xSubFolder As Outlook.Folder
Dim xFax As String
Dim I As Integer
On Error Resume Next
If CurrentFolder.DefaultItemType <> olContactItem Then Exit Sub
xFax = "Fax: "
For I = CurrentFolder.Items.Count To 1 Step -1
Set xContactItem = CurrentFolder.Items.Item(I)
With xContactItem
If (Len(.BusinessFaxNumber) <> 0) And InStrRev(.BusinessFaxNumber, Trim(xFax)) = 0 Then
.BusinessFaxNumber = xFax & .BusinessFaxNumber
End If
If (Len(.HomeFaxNumber) <> 0) And InStrRev(.HomeFaxNumber, Trim(xFax)) = 0 Then
.HomeFaxNumber = xFax & .HomeFaxNumber
End If
If (Len(.OtherFaxNumber) <> 0) And InStrRev(.OtherFaxNumber, Trim(xFax)) = 0 Then
.OtherFaxNumber = xFax & .OtherFaxNumber
End If
.Save
End With
Next I
If CurrentFolder.Folders.Count <> 0 Then
For I = CurrentFolder.Folders.Count To 1 Step -1
Set xSubFolder = CurrentFolder.Folders.Item(I)
Call ProcessFolders(xSubFolder)
Next I
End If
End Sub3. lis F5 klíč ke spuštění kódu, nyní byla faxová čísla skryta.
Chcete-li skrýt faxové číslo v nových kontaktech, postupujte takto:
1. lis Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno.
2. Dvojklik ThisOutlookSession od Projekt-1 panelu a poté zkopírujte a vložte pod kód do skriptu.
VBA: Skrýt faxové číslo v nově přidaných kontaktech
Public WithEvents xInspectors As Outlook.Inspectors
Public WithEvents xContactItem As Outlook.ContactItem
Private Sub Application_Startup()
'UpdatebyExtendoffice2018-5-23
Set xInspectors = Outlook.Application.Inspectors
End Sub
Private Sub xInspectors_NewInspector(ByVal Inspector As Inspector)
If TypeName(Inspector.CurrentItem) = "ContactItem" Then
Set xContactItem = Inspector.CurrentItem
End If
End Sub
Private Sub xContactItem_PropertyChange(ByVal Name As String)
Dim xArr() As Variant
Dim xFax As String
On Error Resume Next
xArr = Array("BusinessFaxNumber", "HomeFaxNumber", "OtherFaxNumber")
xFax = "Fax: "
With xContactItem
Select Case Name
Case xArr(0)
If InStrRev(.BusinessFaxNumber, Trim(xFax)) = 0 Then
.BusinessFaxNumber = xFax & .BusinessFaxNumber
End If
Case xArr(1)
If InStrRev(.HomeFaxNumber, Trim(xFax)) = 0 Then
.HomeFaxNumber = xFax & .HomeFaxNumber
End If
Case xArr(2)
If InStrRev(.OtherFaxNumber, Trim(xFax)) = 0 Then
.OtherFaxNumber = xFax & .OtherFaxNumber
End If
End Select
End With
End Sub
3. Uložte kód a restartujte aplikaci Outlook, aby se kód projevil.
Od této chvíle budou všechna faxová čísla nově vytvořených kontaktů skryta v okně Vybrat jména: Kontakty.
 |
 |
 |
AI Mail Assistant v aplikaci Outlook: Chytřejší odpovědi, jasnější komunikace (kouzlo na jedno kliknutí!) UVOLNIT
Zjednodušte své každodenní úkoly Outlooku pomocí AI Mail Assistant od Kutools pro Outlook. Tento výkonný nástroj se učí z vašich minulých e-mailů, aby nabídl inteligentní a přesné odpovědi, optimalizoval obsah vašich e-mailů a pomohl vám bez námahy navrhovat a upravovat zprávy.
Tato funkce podporuje:
- Chytré odpovědi: Získejte odpovědi vytvořené z vašich minulých konverzací – přizpůsobené, přesné a připravené k použití.
- Vylepšený obsah: Automaticky upravte text e-mailu tak, aby byl srozumitelný a účinný.
- Skládání bez námahy: Stačí zadat klíčová slova a nechat AI, aby se postarala o zbytek, s několika styly psaní.
- Inteligentní rozšíření: Rozšiřte své myšlenky pomocí kontextových návrhů.
- Shrnutí: Získejte okamžitě stručné přehledy dlouhých e-mailů.
- Globální dosah: Snadno překládejte své e-maily do jakéhokoli jazyka.
Tato funkce podporuje:
- Chytré e-mailové odpovědi
- Optimalizovaný obsah
- Koncepty založené na klíčových slovech
- Inteligentní rozšíření obsahu
- Emailová sumarizace
- Vícejazyčný překlad
Nejlepší ze všeho je, že tato funkce je zcela uvolnit navždy! Nečekej —stáhněte si AI Mail Assistant nyní a užívejte si!
Nejlepší nástroje pro produktivitu v kanceláři
Nejnovější zprávy: Spuštění Kutools pro Outlook Volná verze!
Vyzkoušejte zcela nové Kutools pro Outlook ZDARMA verze s více než 70 neuvěřitelnými funkcemi, kterou můžete používat NAVŽDY! Kliknutím stáhnete hned!
???? Automatizace e-mailu: Automatická odpověď (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Připomenout e-maily / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Připomeňte si, když přijdou důležité e-maily / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
