Cum se ascunde numărul de fax în lista de nume selectate din Outlook?
În Outlook, este posibil să fi descoperit că în lista „Selectare nume” sau agendă, coloana Adresă de e-mail conține nu numai adresele de e-mail, ci și intrările de fax care vă pot enerva. În acest articol, vă prezint câteva modalități de a ascunde numărul de fax pentru dvs.
Ascundeți numărul de fax din lista Selectare nume cu VBA
Ascundeți numărul de fax din lista Selectare nume cu VBA
Dacă doriți să ascundeți numărul de fax existent în lista Selectare nume, procedați astfel:
1. presa Alt + F11 taste pentru activare Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Module pentru a insera un nou modul gol, copiați și lipiți codul de mai jos în script.
VBA: Ascundeți numărul de fax existent în Selectare nume
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. presa F5 pentru a rula codul, acum numerele de fax au fost ascunse.
Dacă doriți să ascundeți numărul de fax în contactele noi, procedați astfel:
1. presa Alt + F11 taste pentru activare Microsoft Visual Basic pentru aplicații fereastră.
2. Dublu click Această sesiune Outlook din Proiect-1 , apoi copiați și lipiți codul de mai jos în script.
VBA: Ascundeți numărul de fax în noile contacte adăugate
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. Salvați codul și reporniți Outlook pentru a efectua codul.
De acum înainte, toate numerele de fax ale persoanelor de contact create vor fi ascunse în fereastra Selectare nume: Contacte.
 |
 |
 |
AI Mail Assistant în Outlook: răspunsuri mai inteligente, comunicare mai clară (magie cu un singur clic!) GRATUITA
Eficientizați-vă sarcinile zilnice Outlook cu AI Mail Assistant de la Kutools for Outlook. Acest instrument puternic învață din e-mailurile tale anterioare pentru a oferi răspunsuri inteligente și precise, pentru a optimiza conținutul e-mailurilor și pentru a te ajuta să redactezi și să rafinezi mesajele fără efort.
Această funcție acceptă:
- Răspunsuri inteligente: obțineți răspunsuri create din conversațiile dvs. anterioare – personalizate, precise și gata de plecare.
- Conținut îmbunătățit: rafinați automat textul e-mailului pentru claritate și impact.
- Compunere fără efort: furnizați doar cuvinte cheie și lăsați AI să se ocupe de restul, cu mai multe stiluri de scriere.
- Extensii inteligente: extindeți-vă gândurile cu sugestii care țin cont de context.
- Rezumat: obțineți instantaneu prezentari generale concise ale e-mailurilor lungi.
- Acoperire globală: traduceți-vă cu ușurință e-mailurile în orice limbă.
Această funcție acceptă:
- Răspunsuri inteligente la e-mail
- Conținut optimizat
- Schițe bazate pe cuvinte cheie
- Extensie inteligentă de conținut
- Rezumat prin e-mail
- Traducere în mai multe limbi
Cel mai bun din toate, această caracteristică este complet gratuit pentru totdeauna! nu astepta-descărcați AI Mail Assistant acum și bucurați-vă!
Cele mai bune instrumente de productivitate de birou
Ultime știri: Kutools pentru lansări Outlook Versiune gratuită!
Experimentați noul Kutools pentru Outlook Versiune GRATUITĂ cu peste 70 de funcții incredibile, pe care o poți folosi PENTRU TOTDEAUNA! Faceți clic pentru a descărca acum!
📧 Automatizare e-mail: Răspuns automat (disponibil pentru POP și IMAP) / Programați trimiterea de e-mailuri / CC/BCC automat după reguli la trimiterea e-mailului / Redirecționare automată (Reguli avansate) / Adăugare automată felicitare / Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...
📨 Managementul e-mail: Rechemare e-mailuri / Blocați e-mailurile înșelătorii de către subiecți și alții / Ștergeți e-mailurile duplicate / Cautare Avansata / Consolidați foldere ...
📁 Atașamente Pro: Salvați în serie / Detașare lot / Compresă în loturi / Salvare automata / Detașare automată / Comprimare automată ...
🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool / Amintește-ți când vin e-mailuri importante / Minimizați Outlook în loc să închideți ...
???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite / E-mailuri anti-phishing / 🕘Afișați fusul orar al expeditorului ...
👩🏼🤝👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate / Împărțiți un grup de contact în grupuri individuale / Eliminați mementouri de ziua de naștere ...
