Tips: Andre språk er Google-oversatt. Du kan besøke English versjon av denne lenken.
Logg inn
x
or
x
x
Registrere
x

or

Hvordan åpner du alle innkommende e-poster fra en bestemt person automatisk i Outlook?

I vårt daglige arbeid er det kanskje mange e-postmeldinger som kommer i Outlook, i dette tilfellet kan du ignorere noen viktige e-poster fra en bestemt person. For å unngå å savne noen viktige e-poster fra noen, kan du gjøre e-postene åpne automatisk når du kommer inn i Outlook. I denne artikkelen vil jeg introdusere en VBA-kode for å åpne alle e-postmeldinger som fra en bestemt avsender.

Åpne alle innkommende e-postmeldinger danner en bestemt person automatisk med VBA-kode


Åpne alle innkommende e-postmeldinger danner en bestemt person automatisk med VBA-kode

For å åpne e-postene automatisk fra en bestemt person, kan følgende VBA-kode hjelpe deg, gjør det slik:

1. Hold nede ALT + F11 nøkler for å åpne Microsoft Visual Basic for Applications vinduet.

2. på Microsoft Visual Basic for Applications vindu, dobbeltklikk ThisOutlookSession fra Project1 (VbaProject.OTM) ruten for å åpne modusen, og deretter kopiere og lime inn følgende kode i den tomme modulen.

VBA-kode: Åpne alle e-postmeldinger automatisk fra en bestemt person:

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 åpne e-poster ved avsender 1

Merknader: I ovennevnte kode kan du endre adressene til senderne til din egen.

3. Deretter lagre og lukk dette kodevinduet. Start Outlook på nytt for å få koden i kraft, fra nå av når e-postene kommer fra personene du oppgav, vil alle åpne automatisk. Se skjermbilde:

doc åpne e-poster ved avsender 2



Kutools for Outlook

Mer enn 100 Avanserte funksjoner for Outlook 2010, 2013, 2016, 2019 og 365

skjermbildet kutools for Outlook liten for banner 201812

Flere funksjoner | Gratis nedlasting | Bare $ 39.00 for hundrevis av funksjoner

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.