Salt la conținutul principal

Cum să deschideți automat toate e-mailurile primite de la o anumită persoană în Outlook? 

În activitatea noastră zilnică, poate există multe e-mailuri care sosesc în Outlook, în acest caz, puteți ignora unele e-mailuri importante de la o anumită persoană. Pentru a evita lipsa unor e-mailuri importante de la cineva, puteți face e-mailurile deschise automat când ajungeți în Outlook. În acest articol, voi introduce un cod VBA pentru deschiderea tuturor e-mailurilor de la un anumit expeditor.

Deschideți toate e-mailurile primite formează automat o anumită persoană cu codul VBA


Deschideți toate e-mailurile primite formează automat o anumită persoană cu codul VBA

Pentru a deschide automat e-mailurile de la o anumită persoană, următorul cod VBA vă poate ajuta, vă rugăm să procedați astfel:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți dublu clic Această sesiune Outlook de la Project1 (VbaProject.OTM) pentru a deschide modul, apoi copiați și lipiți următorul cod în modulul gol.

Cod VBA: deschide automat toate e-mailurile de la o anumită persoană:

Public WithEvents GInboxFolder As Outlook.Folder
Public WithEvents GInboxItems As Outlook.Items
Private Sub Application_Startup()
    Set GInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set GInboxItems = GInboxFolder.Items
End Sub
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xSenders As String
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xSenders = ";"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

doc e-mailuri deschise de expeditorul 1

notițe: În codul de mai sus, puteți schimba adresele expeditorilor la a dvs.

3. Apoi, salvați și închideți această fereastră de cod. Reporniți Outlook pentru a face codul să intre în vigoare, de acum înainte, când e-mailurile sosite de la persoanele pe care le-ați specificat, toate vor fi deschise automat. Vedeți captura de ecran:

doc e-mailuri deschise de expeditorul 2


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

📧 Automatizare e-mail: În afara biroului (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: Amintește-ți cu ușurință e-mailurile  /  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 ProSalvaț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   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  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 ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
did not work on my case i restarted i added 4 email address.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations