Note: The other languages of the website are Google-translated. Back to English

Outlook: samodejni opomnik ob pozabi prilog v sporočilih

Morda vas boli glavo, če pozabite dodati priloge, vendar prejemnike opomnite, naj preverijo priloge v telesu e-poštnega sporočila. Tu bomo predstavili dva trika, kako se samodejno opomniti, ko pošljete e-poštno sporočilo, v katerem morda manjkajo priloge v programu Microsoft Outlook.

Samodejno opomni ob pozabi na priloge v programu Outlook 2013/2016

Samodejno opomni, ko pozabite na priloge v programu Outlook 2007 in 2010

odstranite vse podvojene stike iz ene ali več map stikov v Outlooku

Včasih lahko večkrat dodamo iste stike, kako odstraniti podvojene stike iz ene ali več map stikov? Kutools for Outlook's Duplicate Contacts Funkcija lahko hitro odstrani ali združi podvojene stike na podlagi e-pošte, polnega imena ali drugih meril iz ene ali več map stikov.    Kliknite za 45-dnevno brezplačno preskusno različico!
doc odstrani podvojene stike 1
 
Kutools for Outlook: z desetinami priročnih dodatkov za Outlook, ki jih lahko brezplačno preizkusite brez omejitev v 45 dneh.
Kartica Office - omogočite urejanje in brskanje z zavihki v storitvi Office ter olajšajte delo ...
Kutools for Outlook - V Microsoft Outlook prinaša 100 zmogljivih naprednih funkcij
  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po pravilih; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaže sporočilo, ko poskušate odgovoriti na vse, če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v pogovoru po pošti; Odgovori na več e-poštnih sporočil hkrati; Samodejno dodaj pozdrav ko odgovor; Samodejno dodaj datum in čas v zadevo ...
  • Orodja za pritrditev: Samodejno loči, Stisni vse, Preimenuj vse, Samodejno shrani vse ... Hitro poročilo, Preštej izbrano pošto, Odstranitev podvojenih e-poštnih sporočil in stikov ...
  • Več kot 100 naprednih funkcij bo rešiti večino svojih težav v Outlooku 2021 - 2010 ali Office 365. 60-dnevna brezplačna preskusna različica vseh funkcij.

puščica modri desni mehurčekSamodejni opomnik ob pozabi na priloge v programu Outlook 2013/2016

Microsoft Outlook 2013 podpira funkcijo samodejnega opozorila, ko pošljete e-poštno sporočilo, v katerem morda manjkajo priloge.

Korak 1: Kliknite na file > možnosti.

2. korak: V pogovornem oknu Možnosti Outlooka kliknite mail v levi vrstici.

Korak 3: Pojdite na pošiljanje sporočil in neprestano preverjajte možnost Opozori me, ko pošljem sporočilo, v katerem morda manjka priloga.

Korak 4: Kliknite na OK za izhod iz tega pogovornega okna.

Nato vas bo Microsoft Outlook 2013 ali 2016 samodejno opozoril, če boste morda pozabili priloge.

Na primer, vnesete besedilo »prosimo, preverite priloge""oglejte si priloge"Itd. V telesu sporočila, vendar ne vstavljajte prilog v Priponka polje. Ko kliknete Pošlji , se bo pojavilo opozorilno pogovorno okno z navedbo, da ste morda pozabili priložiti datoteko. Oglejte si naslednji posnetek zaslona:


puščica modri desni mehurčekSamodejni opomnik ob pozabi na priloge v programu Outlook 2007 in 2010

Microsoft Outlook 2007 in 2010 ne podpirata samodejnega opozorila, če lahko pozabite na priloge. Makro VBA vam lahko pomaga uresničiti to.

Korak 1: Pritisnite tipko druga + F11 tipke, da odprete okno Microsoft Visual for Applications.

2. korak: Projekt 1 porabite v levi vrstici in dvokliknite Ta OutlookSession da ga odprete.

3. korak: V okno ThisOutlookSession prilepite naslednjo kodo.

VBA: Opozorilo, če ne vstavite priloge

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim retMB As Variant
Dim strBody As String
Dim iIndex As Long

On Error GoTo handleError

iIndex = InStr(Item.Body, "attach")

If iIndex > 0 And Item.Attachments.Count = 0 Then

retMB = MsgBox("You may have forgotten to attach a file." & vbCrLf & vbCrLf & "Do you still want to continue?", vbQuestion + vbYesNo + vbMsgBoxSetForeground)
If retMB = vbNo Then Cancel = True

End If

handleError:

If Err.Number <> 0 Then
MsgBox "Outlook Attachment Alert Error: " & Err.Description, vbExclamation, "Outlook Attachment Alertr Error"
End If

End Sub

Korak 4: Kliknite na Shrani gumb na orodni vrstici.

Če odslej dodajate besedilo »priponka"V telesu sporočila, vendar ne pripenjajte datotek, se bo prikazal opozorilni opomnik, da ste pozabili priložiti datoteko, ko kliknete Pošlji . Oglejte si posnetek zaslona:


Kutools for 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 jeziček 1180x121
 
Komentarji (34)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
zdravo, gr8 pomoč, hvala. vendar obstaja težava, ko makro spremembe datuma ne deluje, kakršna koli pomoč za življenjsko dobo. ;-)
Ta komentar je moderator na spletnem mestu minimiziral
Resnično, deluje. hvala
Ta komentar je moderator na spletnem mestu minimiziral
Poskusil sem makro in nič se ne zgodi - veste zakaj?
Ta komentar je moderator na spletnem mestu minimiziral
V Outlooku 2010 imam omogočene makre, vendar koda ne deluje. Vse datoteke s prilogo v telesu se še vedno pošiljajo brez prilog.
Ta komentar je moderator na spletnem mestu minimiziral
Ta makro mi deluje, žal pa ima podpis, ki ga zahteva podjetje, obvestilo o zaupnosti, ki vsebuje 3-kratno pritrditev dela! Tako dobim pojavno opozorilo z vsakim e-poštnim sporočilom, ki ga podpišem. Kako lahko uredim makro, da nas opozori samo, če je beseda priloži v e-poštnem sporočilu 4-krat ali večkrat?
Ta komentar je moderator na spletnem mestu minimiziral
V vrstici, ki navaja "Če iIndex > 0 In Item.Attachments.count = 0 Potem" spremenite prvo 0 v 3, tako da se glasi: "Če iIndex > 3 In Item.Attachments.count = 0 Potem" Ta vrstica preverja kolikokrat ste izgovorili besedo, navedeno v prejšnji vrstici, zato mislim, da bo to odpravilo vašo težavo.
Ta komentar je moderator na spletnem mestu minimiziral
Za nekatere od vas, ki ugotavljate, da se ni nič zgodilo ... Nisem mogel takoj zagnati dela, a ko sem naslednji dan zagnal računalnik, je deloval v redu. Mogoče je potreben ponovni zagon?
Ta komentar je moderator na spletnem mestu minimiziral
Ali je mogoče iskati več kot eno besedo? Fe preverjanje za "priloženo" in "priloženo" Hvala
Ta komentar je moderator na spletnem mestu minimiziral
v tem delu kode... iIndex = InStr(Item.Body, "attach") lahko dodate več spremenljivk ali "nizov". Primer: iIndex = InStr(Item.Body, "attach", "attachment", "attaching") ... in tako naprej. Pazite pa, da ste vsakega ločili z vejico
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za orodje. Uporabljam ga v Outlooku 2019. Deluje. Po novem zagonu Outlooka ne deluje več.
Prav tako želim dodati več ključnih besed in razmišljam o tem, da bi jih dodal tako, kot ste to storili vi.
Ampak na žalost ne deluje. Kakšno ugibanje?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, kodo vba morate kopirati vsakič, ko zaženete Outlook. Če želite imeti brezhibno izkušnjo, lahko uporabite Opozorilo po e-pošti značilnost Kutools for Outlook:
On Kutools kliknite spustno puščico poleg Opozorilo po e-poštitako, da izberete Opomni me, ko pošljem sporočilo, ki mu manjkajo priloge. Nato ustvarite svoje pravilo (glejte spodnji posnetek zaslona) in omogočite funkcijo.
https://www.extendoffice.com/images/stories/comments/ljy-picture/remind-before-sendinng.png

Amanda
Ta komentar je moderator na spletnem mestu minimiziral
Najprej hvala. To sem vključil v našo pisarno, ki deluje od leta 2010. Vendar pa smo ugotovili, da če je nekdo na začetku poslal e-pošto s priloženo besedo in po več odgovorih bi makro še vedno štel začetni "priloži". Velika težava z dolgimi e-poštnimi pogovori, ki bi bili vedno pozvani, da vstavite prilogo zaradi izvirne e-pošte. Misli?
Ta komentar je moderator na spletnem mestu minimiziral
[quote]Najprej hvala. To sem vključil v našo pisarno, ki deluje od leta 2010. Vendar pa smo ugotovili, da če je nekdo na začetku poslal e-pošto s priloženo besedo in po več odgovorih bi makro še vedno štel začetni "priloži". Velika težava z dolgimi e-poštnimi pogovori, ki bi bili vedno pozvani, da vstavite prilogo zaradi izvirne e-pošte. Misli?Avtor DAN[/quote] Mislil sem, da bi delil rešitev, ki smo jo za to našli v moji pisarni. Tako bodo slike, dodane v e-poštno sporočilo, ali slike, ki jih je mogoče najti v podpisu nekoga, ne bodo štele kot priloga. Potrebuje le štetje vaše najnovejše e-pošte, ne celotnega telesa. Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim retMB As Variant Dim strBody, strEnd, strTrunc, strAttach, strFtype, strIndex Kot String Dim iIndex, i, trueCount As Long On Error GoTo handleError i = In1( Item.Body, "From:") Če je strEnd 0 Potem strTrunc = Left(Item.Body, strEnd) Drugače: strTrunc = Item.Body End Če 'Debug.Print strTrunc If Item.Attachments.Count 0 Potem iIndex = Item.Attachments .Count trueCount = Item.Attachments.Count 'Debug.Print iIndex 'Debug.Print trueCount Do While i
Ta komentar je moderator na spletnem mestu minimiziral
Vem, da je ta tema stara nekaj mesecev, zato upam, da še vedno spremljate. Iz neznanega razloga ne morem videti vašega komentarja v celoti. Pri "Do While i" se prekinja. Ali obstaja način, da ga ponovno objavite ali pošljete po e-pošti? Hvala vnaprej!
Ta komentar je moderator na spletnem mestu minimiziral
Velika pomoč! :lol: zelo pomaga! najlepša hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Tukaj je vse, žal je videti, da je bilo nekaj od tega odrezano v prejšnjem sporočilu... Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim retMB As Variant Dim strBody, strEnd, strTrunc, strAttach, strFtype, strIndex As Niz Dim iIndex, i, trueCount As Long On Error GoTo handleError i = 1 strEnd = InStr(Item.Body, "From:") Če je strEnd 0 Potem strTrunc = Left(Item.Body, strEnd) Drugače: strTrunc = Item.Body End If 'Debug.Print strTrunc If Item.Attachments.Count 0 Then iIndex = Item.Attachments.Count trueCount = Item.Attachments.Count 'Debug.Print iIndex 'Debug.Print trueCount Do While i
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Dan! Videti je, da je tvoja druga objava odrezana na istem mestu. Nisem prepričan, če je na forumu omejitev znakov ... morda poskusite razdeliti kodo med objave?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, uporabljal sem to in deluje odlično, vendar sem opazil, da če mi nekdo odgovori in potem odgovorim, preišče celotno sled e-poštnih sporočil in ne le tisto, ki je bila poslana. Ali obstaja način, da se to spremeni? Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Ima kdo to za delo? To kodo sem dodal v skladu z zgornjimi navodili, omogočil makre, vendar nič. Koda ne naredi ničesar.
Ta komentar je moderator na spletnem mestu minimiziral
Ali ima kdo to, da deluje v Outlooku 2010? Sledil sem zgornjim navodilom in nič ne pomaga
Ta komentar je moderator na spletnem mestu minimiziral
Kako nastaviti opozorilo, ko je sporočilo poslano brez priloge v lotus notes 8.5.3?
Ta komentar je moderator na spletnem mestu minimiziral
Uporabil sem to kodo in ko jo preizkusim s svojim e-poštnim naslovom v vrstici za, dobim sporočilo o napaki, a če sem tja dal koga drugega, gre dobro. Kakšne ideje o tem, kaj bi se lahko zgodilo?
Ta komentar je moderator na spletnem mestu minimiziral
Ali je funkcija samodejne priloge zasnovana tako, da deluje, ko pošiljate e-pošto s tipkama Ctrl+Enter?
Ta komentar je moderator na spletnem mestu minimiziral
Ali je funkcija samodejnega dodajanja zasnovana tako, da deluje, ko se e-pošta pošlje s tipkama Ctrl+Enter?
Ta komentar je moderator na spletnem mestu minimiziral
Ta koda mi ne bi delovala. Moral sem uporabiti tega:
Private Sub Application_ItemSend (ByVal Element kot predmet, Prekliči kot Boolean)

Če je InStr(1, Item.Body, "attach", vbTextCompare) > 0, potem

Če je Item.Attachments.Count = 0 Potem

answer = MsgBox("Ni priloge, vseeno pošlji?", vbYesNo)

Če je odgovor = vbNe, potem Prekliči = Res

Konec Če

Konec Če

End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Če ima kdo težave z uporabo te kode, se slike v vašem podpisu štejejo kot priloge.


V podpisu imam eno sliko, zato spremenim vrstico:

Če je iIndex > 0 In Item.Attachments.Count = 0 Potem

za:

Če je iIndex > 0 In Item.Attachments.Count = 0 Ali Item.Attachments.Count = 1 Potem

Uspelo mi je.
Ta komentar je moderator na spletnem mestu minimiziral
Hvala, ker ste to opozorili, tudi jaz sem imel to težavo. Ugotovil sem, da je vaš popravek sprožil opozorilo, ne glede na to, ali je bila uporabljena beseda »priloži«. Namesto tega sem uporabil:

Če je iIndex > 0 In Item.Attachments.Count = 1 Potem

To je sprožilo opozorilo samo takrat, ko je bilo namenjeno, in ne vsakič, ko je bilo poslano e-pošto.
Ta komentar je moderator na spletnem mestu minimiziral
Hvala Anthony, uspelo je.
Ta komentar je moderator na spletnem mestu minimiziral
HVALA VAM!
To mi odlično deluje z "Če iIndex > 0 In Item.Attachments.Count = 0" kljub dejstvu, da imam sliko v svojem podpisu. Uporabljam Microsoft Office Professional Plus 2010
Ta komentar je moderator na spletnem mestu minimiziral
Ne bo deloval zame ne glede na vrednost štetja. Tukaj sem poskusil vse in iz nekega razloga nikoli ne dobim pojavnega okna.
Tu še ni objavljenih komentarjev
Obremenitev Več

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL