Note: The other languages of the website are Google-translated. Back to English
Accedi  \/ 
x
or
x
Registrati  \/ 
x

or

Come aprire automaticamente tutte le e-mail in arrivo da una persona specifica in Outlook? 

Nel nostro lavoro quotidiano, forse ci sono molte email in arrivo nel nostro Outlook, in questo caso potresti ignorare alcune email importanti da una persona specifica. Per evitare di perdere alcune e-mail importanti da qualcuno, puoi fare in modo che le e-mail si aprano automaticamente quando arrivi in ​​Outlook. In questo articolo, introdurrò un codice VBA per l'apertura di tutte le email provenienti da un mittente specifico.

Apri automaticamente tutte le email in arrivo da una persona specifica con il codice VBA


Apri automaticamente tutte le email in arrivo da una persona specifica con il codice VBA

Per aprire automaticamente le e-mail di una persona specifica, il seguente codice VBA può aiutarti, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook dal Progetto1 (VbaProject.OTM) riquadro per aprire la modalità, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: apri automaticamente tutte le e-mail di una persona specifica:

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 = "yy@addin99.com;applemiemie@163.com"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

doc apre le email dal mittente 1

Note:: Nel codice sopra, puoi cambiare gli indirizzi dei mittenti con i tuoi.

3. Quindi, salva e chiudi questa finestra del codice. Riavvia Outlook per rendere effettivo il codice, d'ora in poi, quando le email in arrivo dalle persone che hai specificato, si apriranno tutte automaticamente. Vedi screenshot:

doc apre le email dal mittente 2


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto ... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    aashish · 1 years ago
    did not work on my case i restarted i added 4 email address.