Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com obrir tots els correus electrònics entrants d'una persona específica automàticament a Outlook?

En el nostre treball diari, potser hi hagi molts correus electrònics que arribin al nostre Outlook, en aquest cas, podeu ignorar alguns correus electrònics importants d'una persona específica. Per evitar que falti alguns correus electrònics importants d'algú, podeu fer que els correus electrònics s'obrin automàticament en arribar al vostre Outlook. En aquest article, presentaré un codi VBA per obrir tots els correus electrònics que d'un remitent específic.

Obriu tots els correus electrònics entrants formant una persona específica automàticament amb codi VBA


Obriu tots els correus electrònics entrants formant una persona específica automàticament amb codi VBA

Per obrir automàticament els correus electrònics d'una persona específica, el següent codi VBA us pot ajudar, fes el següent:

1. Mantingueu premut el botó ALT + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. Al Microsoft Visual Basic per a aplicacions finestra, feu doble clic ThisOutlookSession des Project1 (VbaProject.OTM) panell per obrir el mode i, a continuació, copieu i enganxeu el següent codi al mòdul en blanc.

Codi VBA: obre automàticament tots els correus electrònics d'una persona específica:

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 obre correus electrònics del remitent 1

Nota: En el codi anterior, podeu canviar les adreces dels remitents pel vostre compte.

3. A continuació, deseu i tanqueu aquesta finestra del codi. Reinicieu l'Outlook per fer que el codi tingui efecte, d'ara endavant, quan arribin els correus electrònics que arribin de les persones que heu especificat, tots es mostraran automàticament. Mostra la captura de pantalla:

doc obre correus electrònics del remitent 2



Kutools per Outlook

Més de 100 Advanced Functions for Outlook 2010, 2013, 2016, 2019 i 365

captura de pantalla kutools per a les minúscules perspectives per a l&#39;anunci 201812

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.