Kako skriti številko faksa v Izberite seznam imen v Outlooku?
V Outlooku ste morda odkrili, da na seznamu ali v imeniku »Izberite imena« stolpec z e-poštnimi naslovi vsebuje ne samo e-poštne naslove, temveč tudi vnose faksa, ki vas morda motijo. V tem članku vam predstavljam nekaj načinov, kako skriti številko faksa.
Skrij številko faksa na seznamu Izberite imena z VBA
Skrij številko faksa na seznamu Izberite imena z VBA
Če želite na seznamu Select Name skriti obstoječo številko faksa, storite naslednje:
1. Pritisnite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduli če želite vstaviti nov prazen modul, kopirajte in prilepite spodnjo kodo v skript.
VBA: Skrij obstoječo številko faksa v možnosti Izberite imena
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 Sub
3. Pritisnite F5 tipko za zagon kode, zdaj so številke faksa skrite.
Če želite skriti številko faksa v novih stikih, naredite naslednje:
1. Pritisnite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno.
2. Dvojni klik Ta OutlookSession iz Projekt-1 podokno in nato v skript kopirajte in prilepite spodnjo kodo.
VBA: Skrij številko faksa v novih dodanih stikih
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. Shranite kodo in znova zaženite Outlook, da učinkuje kodo.
Odslej bodo vse številke faksov novo ustvarjenih Stikov skrite v oknu Izberite imena: Stiki.
Najboljša pisarniška orodja za produktivnost
Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka
🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...
📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP) / Načrtujte pošiljanje e-pošte / Samodejna CC/BCC po pravilih pri pošiljanju e-pošte / Samodejno naprej (napredna pravila) / Samodejno dodaj pozdrav / E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...
📨 Email upravljanje: Enostaven priklic e-pošte / Blokiraj prevarantska e-poštna sporočila glede na teme in druge / Izbriši podvojena e-poštna sporočila / napredno iskanje / Združite mape ...
📁 Priloge Pro: Shrani paket / Batch Detach / Paketno stiskanje / Samodejno shranite / Samodejno loči / Samodejno stiskanje ...
🌟 Vmesnik Magic: 😊Več lepih in kul emojijev / Povečajte Outlookovo produktivnost s pogledi z zavihki / Minimizirajte Outlook, namesto da bi ga zaprli ...
???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami / E-poštna sporočila proti lažnemu predstavljanju / 🕘Pokaži pošiljateljev časovni pas ...
👩🏼🤝👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil / Razdelite skupino stikov na posamezne skupine / Odstranite opomnike za rojstni dan ...
Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.