Note: The other languages of the website are Google-translated. Back to English
Vpiši se  \/ 
x
or
x
Registracija  \/ 
x

or

Kako samodejno posredovati priloge samo na podlagi določenih meril v Outlooku?

Običajno je pri posredovanju e-pošte vključeno tudi izvirno telo sporočila in priloge. Toda včasih morate samo priloge poslati samo priponkam brez izvirnega sporočila na podlagi meril določeni osebi. Kako ste lahko rešili to nalogo v Outlooku?

Samo priloge, ki temeljijo na določenih merilih, samodejno posredujte osebi s kodo VBA


Samo priloge, ki temeljijo na določenih merilih, samodejno posredujte osebi s kodo VBA

Na primer, ko prejmete e-poštno sporočilo, katerega predmet vsebuje besedilo »funkcija kto«, bodo vse priloge tega e-poštnega sporočila samodejno posredovane določeni osebi brez telesa sporočila. Naslednji koraki vam lahko pomagajo, naredite naslednje:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. v Microsoft Visual Basic za aplikacije okno, dvokliknite ThisOutlookSession Iz Projekt1 (VbaProject.OTM) , da odprete način, nato pa v prazen modul kopirajte in prilepite naslednjo kodo.

Koda VBA: Samodejno posredovanje e-pošte brez telesa sporočila, vendar samo vključite priloge:

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
    Dim xForwardMail As Outlook.MailItem
    Dim xEmail As MailItem
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xEmail = Item
    If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub  'change subject text to your need
    If xEmail.Attachments.Count = 0 Then Exit Sub
    Set xForwardMail = xEmail.Forward
    With xForwardMail
        .HTMLBody = ""
        With .Recipients
            .Add "skyyang@addin88.com"    'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End Sub

Opombe: V zgornji kodi morate besedilo zadeve in naslov prejemnika spremeniti v svojega.

doc samo priloge za samodejno posredovanje 1

3. Nato shranite kodo in znova zaženite Outlook, da začne učinkovati.

4. Odslej bo Outlook vsakič, ko novo e-poštno sporočilo vsebuje določeno besedilo zadeve, prispe v vaš nabiralnik, Outlook samodejno posreduje svoje priloge brez telesa sporočila želeni osebi.

Opombe: Ta koda je na voljo samo za privzeti račun.


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot 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.
    Guest · 10 months ago
    This is great, but if someone replies to the chain of the email with an attachment it will auto-forward that attachment as well. Is there a way to avoid this? Thanks