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

Kako samodejno narediti kopijo vseh e-poštnih sporočil, ki jih pošljete v Outlooku?

Ko pošiljate e-poštno sporočilo in imate stalnega skrivnega prejemnika, vendar ne želite, da drugi prejemniki vidijo njegov naslov, uporabite funkcijo skp. Ko pa moramo narediti kopijo, moramo ročno pokazati polje skp in zanjo izbrati stik. Da bi se izognili tem ročnim operacijam, vam bo naslednji članek pokazal, kako spremenite Outlook tako, da se samodejno pripelje skp e-poštni naslov na vsa poslana e-poštna sporočila.


Privzeta samodejna skp v izgledu z uporabo VBA

Za konfiguriranje samodejnega pravila Bcc v Outlooku lahko uporabite spodnjo kodo VBA. Naredite naslednje:

1. Pritisnite druga + F11 tipke hkrati, da odprete okno Microsoft Visual Basic for Applications.

2. Dvokliknite Ta OutlookSessionv podoknu Project in nato v odpiralno okno prilepite spodnjo kodo VBA. Oglejte si spodnji posnetek zaslona:

Koda VBA: Samodejna skp pri pošiljanju vseh e-poštnih sporočil

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
    Dim strMsg As String
    Dim res As Integer
    Dim strBcc As String
    On Error Resume Next
    
    ' #### USER OPTIONS ####
    ' address for Bcc -- must be SMTP address or resolvable
    ' to a name in the address book
    strBcc = "SomeEmailAddress@domain.com"
    
    Set objRecip = Item.Recipients.Add(strBcc)
    objRecip.Type = olBCC
    If Not objRecip.Resolve Then
        strMsg = "Could not resolve the Bcc recipient. " & _
                 "Do you want still to send the message?"
        res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
                 "Could Not Resolve Bcc Recipient")
        If res = vbNo Then
            Cancel = True
        End If
    End If
    
    Set objRecip = Nothing
End Sub

Opomba: Prosimo, zamenjajte "NekajEmailAddress@domain.com" v zgornji kodi z e-poštnim naslovom, na katerega boste poslali skp.

3. Shranite kodo VBA in zaprite okno Microsoft Visual Basic for Applications.

Od zdaj naprej vam ni treba vnašati naslova v polje Skp. Ko pošljete e-poštno sporočilo iz svojega obeta, se samodejno pripelje do želenega prejemnika, ko izvaja kodo VBA.


Samodejna skp v Outlooku z uporabo Kutools za Outlook

Zgornja koda VBA je za začetnike nekaj težkega in težavnega, tukaj je enostavno in hitro orodje - Kutools za Outlook za lažje samodejno kopiranje vseh e-poštnih sporočil ali določenih e-poštnih sporočil, ki jih pošljete v Outlooku.

Kutools za Outlook: Dodajte več kot 100 priročnih orodij za Outlook, ki jih lahko brezplačno preizkusite v 60 dneh. Preberi več      Brezplačna preizkusna različica zdaj

Po namestitvi Kutools za Outlook storite naslednje:

1. Kliknite Kutools > Samodejno CC / BCC > Upravitelj pravil, glej posnetek zaslona:

2. v Samodejni upravitelj CC / BCC pogovorno okno, kliknite Novo gumb.

3. V čarovniku za pravila določite pogoje, po katerih boste filtrirali e-pošto. V mojem primeru obkljukam s specifičnimi besedami v telesu in kliknite podčrtano besedilo določene besede da ga uredite.

4. V pogovornem oknu Besedilo vsebuje kliknite Novo gumb za dodajanje novih besed.

5. V pogovorno okno Iskanje besedila vnesite besedo v Novo besedilo za iskanje kliknite polje Dodaj gumb in nato kliknite OK gumb.
nasveti: Če želite hkrati dodati več besed, morate v besedo vnesti eno besedo Novo besedilo za iskanje in kliknite Dodaj , nato ponovite to operacijo, da dodate druge besede eno za drugo, in na koncu kliknite OK gumb.

6. Zdaj se vrne v pogovorno okno Besedilo vsebuje. Če je potrebno, lahko nadaljujete s klikom na Novo , če želite dodati druge besede, kot jih potrebujete, in nato kliknite gumb V redu, da shranite te besede.
Namigi: Če v istem polju za iskanje besedila hkrati dodate več besed, je razmerje med temi besedama "IN"Če dodate več besed s klikom na Novo gumb zaporedoma je razmerje med tema besedama "OR".

7. Nato se vrne v čarovnik za pravila, po potrebi določite druge pogoje in kliknite Naslednji gumb.

8. V drugem čarovniku za pravila določite izjeme ali ne preverjajte nobenih izjem, kot jih potrebujete, in kliknite Naslednji gumb.

9. V tretji čarovnik za pravila vnesite ime za novo pravilo skp Ime pravila v polje vnesite opise pravila Opombe k pravilu kliknite polje prejemnik gumb, da dodate prejemnike kopije ali skp, označite možnosti za zagon v Nastavite možnosti pravil in kliknite OK gumb.

10. V samodejnem upravitelju CC / BCC preverite, ali je novo pravilo Cc / Bcc označeno, in z gumbom V redu zaprete pogovorno okno.

11. V glavnem vmesniku programa Outlook kliknite Kutools> CC / BCC> Enable Auto CC / BCC, da omogočite pravilo.

In kliknite na OK v pojavnem pogovornem oknu za potrditev.

Doslej je bilo ustvarjeno pravilo skp. Ko pošiljate e-pošto, bo isto sporočilo istočasno pošiljalo prejemniku skp.

Opombe:
(1) S to funkcijo lahko nastavite vedno CC pravila.
(2) S tem orodjem lahko ustvarite več pravil, kot jih potrebujete.
(3) Če želite zapreti pravila, lahko kliknete Omogoči samodejno CC / BCC, in vsa pravila ne bodo delovala. Prav tako lahko počistite ime pravil v Samodejni upravitelj CC / BCC pogovorno okno, da onemogočite določena pravila.


Povezani članek:

Kako se samodejno cc vedno v Outlooku?


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 jeziček 1180x121
 
Komentarji (53)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, zdi se, da to ne deluje v Outlooku 2013. Ali lahko ustvarite drugo kodo za to različico? Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Spoštovani Kitkat, ta koda deluje tudi v Outlooku 2013. Ko shranite kodo, naredite naslednje: 1. Pojdite na Razvojni in kliknite Makro varnost. 2. V pojavnem oknu Trust Center v pogovornem oknu izberite Omogoči vse makre (ni priporočljivo; lahko se zažene potencialno nevarna koda) možnost v razdelku Nastavitve makrov. Nato kliknite OK. 3. Zdaj zaprite aplikacijo Outlook 2013 in jo znova zaženite, koda bo delovala. :-)
Ta komentar je moderator na spletnem mestu minimiziral
iščem pomoč z vaše strani hvala
Ta komentar je moderator na spletnem mestu minimiziral
Deluje odlično, vendar ali obstaja način, da to storite z več bcc?
Ta komentar je moderator na spletnem mestu minimiziral
[quote]Deluje odlično, ampak ali obstaja način, da to storite z več prikritimi kopijami?Avtor Chris[/quote] Torej, ker pokliče metodo Item.Recipients.Add(strBcc) za dodajanje drugega prejemnika, program obravnava kateri koli niz, ki ga navedete kot en sam e-poštni naslov. Trik je preprosto, da isto metodo znova pokličete na enak način za drugo spremenljivko. Npr. strBcc = "email1@email.com" strBcc2 = "email2@email.com" Nastavi objRecip = Item.Recipients.Add(strBcc) objRecip.Type = olBCC Nastavi objRecip = Item.Recipients.Add(strBcc2) objRecip.Type = olBCC Nisem strokovnjak za vba, zato nisem prepričan, kaj dela Set objRecip sploh počne... toda zgornje deluje zame.
Ta komentar je moderator na spletnem mestu minimiziral
Preizkusil sem vaš predlog, vendar se prikaže sporočilo o napaki "operacija ni uspela. Vmesniki za sporočila so vrnili neznano napako. Če se težava ne odpravi, znova zaženite Outlook. Prejemnika ni mogoče razrešiti.", imate kakšen predlog?
Ta komentar je moderator na spletnem mestu minimiziral
pozdravljeni, naredil sem navodila za Outlook 2007 in ni delovalo :/ kakšen nasvet?
Ta komentar je moderator na spletnem mestu minimiziral
Makri se zaženejo, vendar ne naredijo ničesar v Outlooku 2010: Če postavim Stop v vrstico 13, se odpre okno VBA in mi omogoča, da izvajam makre korak za korakom... ko pa se makri končajo, ne vidim nobenih črk. Videti je, da je poslal pismo, preden je dodana BCC.
Ta komentar je moderator na spletnem mestu minimiziral
Dobro je deloval z Outlookom 2013, vendar je leta 2007 prišlo do napake pri prevajanju
Ta komentar je moderator na spletnem mestu minimiziral
VBA je deloval, kot je bilo oglaševano. Hvala vam.
Ta komentar je moderator na spletnem mestu minimiziral
Ko pošljem e-pošto, kako lahko odstranim BCC iz poslanih elementov, želim, da se skrije skrije v poslanih elementih.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, zanima me, ali ste našli rešitev za skrivanje skrite kopije iz poslane mape? Poskušal sem to narediti, vendar brez uspeha. Vsaka pomoč bo cenjena. Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, iščem tudi isto rešitev. Želim samodejno prikriti vsa svoja e-poštna sporočila na moj osebni e-poštni naslov prek kode VBA, ki deluje dobro. Ko pa grem na poslane artikle, mi je polje BCC vidno, ga želim skriti tudi pred sabo, da mi tudi ne bo vidno. Ali mi lahko kdo pomaga pri tem s kodo VBA. Hvala Trenutno uporabljam naslednjo kodo: Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim objRecip As Recipient Dim strMsg As String Dim res As Integer Dim strBcc As String On Error Resume Next ' #### USER OPTIONS # ### ' naslov za Bcc -- mora biti naslov SMTP ali ga je mogoče razrešiti ' na ime v imeniku strBcc = "privateemail@gmail.com" Nastavite objRecip = Item.Recipients.Add(strBcc) objRecip.Type = olBCC Če ni objRecip.Resolve Potem strMsg = "Prejemnika Bcc ni bilo mogoče razrešiti." & _ "Ali še vedno želite poslati sporočilo?" res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _ "Ni bilo mogoče razrešiti prejemnika skrite kopije") Če res = vbNo Potem Prekliči = Pravi konec Če Konec Če nastavite objRecip = Nič Konec Sub
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, tudi jaz iščem isto rešitev, prosim za pomoč. Želim samodejno prikriti vsa svoja e-poštna sporočila na moj osebni e-poštni naslov prek kode VBA, ki deluje dobro. Ko pa grem na poslane artikle, mi je polje BCC vidno, ga želim skriti tudi pred sabo, da mi tudi ne bo vidno. Ali mi lahko kdo pomaga pri tem s kodo VBA. Hvala Trenutno uporabljam naslednjo kodo: Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim objRecip As Recipient Dim strMsg As String Dim res As Integer Dim strBcc As String On Error Resume Next ' #### USER OPTIONS # ### ' naslov za Bcc -- mora biti naslov SMTP ali ga je mogoče razrešiti ' na ime v imeniku strBcc = "privateemail@gmail.com" Nastavite objRecip = Item.Recipients.Add(strBcc) objRecip.Type = olBCC Če ni objRecip.Resolve Potem strMsg = "Prejemnika Skp ni bilo mogoče razrešiti." & _ "Ali še vedno želite poslati sporočilo?" res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _ "Ni bilo mogoče razrešiti prejemnika skrite kopije") Če res = vbNo Potem Prekliči = Pravi konec Če Konec Če nastavite objRecip = Nič Konec Sub
Ta komentar je moderator na spletnem mestu minimiziral
hej, ta VBA deluje lepo, eno vprašanje, če smem vprašati, ali obstaja način za aktiviranje samo na račun? na primer imam 3 račune na svojem računalniku @yahoo, @hotmail, @gmail in želim, da so samo tisti, poslani iz računa @gmail, samodejno BCC, ostali pa da gre normalno, kaj je treba dodati v skript?
Ta komentar je moderator na spletnem mestu minimiziral
tudi mene to zanima. Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Če morate prikriti nazaj v nek račun, uporabite Item.SendUsingAccount namesto fiksne e-pošte, z drugimi besedami, uporabite v vrstici 10 naslednje: strBcc = Item.SendUsingAccount ta niz bo našel e-poštni naslov računa, ki je bil uporabljen za pošlji in uporabi. Uživajte!
Ta komentar je moderator na spletnem mestu minimiziral
To bi delovalo samo, če želite prikriti isti e-poštni naslov, s katerega pošiljate e-pošto. Kaj pa, če želite prikriti različne e-poštne naslove v različnih računih? Račun 1 :: 123@Gamil.com : BCC 123@abc.com Račun 1 :: 123@Hotmail.com : BCC 123@def.com Račun 1 :: 123@Yahoo.com : BCC 123@xyz.com
Ta komentar je moderator na spletnem mestu minimiziral
Uporabite lahko pogojne izjave v kombinaciji z bitom, ki ga je zagotovil Harry, da določite, koga BCC. V tem primeru bi uporabil izjavo Select Case: [citat]Select Case Item.SendUsingAccount Case "123@Gmail.com" strBcc = "123@abc.com" Primer "123@Hotmail.com" strBcc = "123@ def.com" Primer "123@Yahoo.com" strBcc = "123@xyz.com" Končni izbor[/quote]
Ta komentar je moderator na spletnem mestu minimiziral
iščem pomoč z vaše strani
Ta komentar je moderator na spletnem mestu minimiziral
Soočam se z drugo težavo V MS Office Outlooku je Microsoft Office Outlook naletel na težavo in se mora zapreti, opravičujemo se za nevšečnosti
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za navodila! Kako naj to prilagodim tako, da sem lahko prikrit v vseh e-poštnih sporočilih, razen na nekaterih posebnih e-poštnih naslovih ali skupini "@domain.com". Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
To je bila zame zelo koristna objava! Gmail uporabljam kot nekakšno varnostno kopijo za vso svojo pošto in to je omogočilo, da ljudje ne komentirajo dodane vrstice CC (edina možnost, ki jo Outlook ponuja kot privzeto).
Ta komentar je moderator na spletnem mestu minimiziral
Odlična objava - res je pomagala, edina težava je, da se prikrita kopija ne zažene, ko pošta ni ustvarjena iz Outlooka - npr. z desno tipko miške kliknete datoteko na namizju, pošljete, prejemniku pošte ali kliknete e-pošto ikona datoteke iz programa in ne skriva skrinjo - ali lahko kdo pomaga? Nekoliko sem spremenil tudi kodo, tako da vam Outlook omogoča izbiro, ali želite prikriti prejemnika ali ne. Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim objRecip As Recipient Dim strMsg As String Dim res As Integer Dim strBcc As String Dim intresponse As Integer On Error Resume Next intresponse = MsgBox("Kliknite to e-poštno sporočilo s QA za skupno rabo z Da , kliknite Ne, da ostane zasebno", _ vbYesNo + vbQuestion, _ "Zasebnost e-pošte") Če intresponse = vbYes Potem strBcc = "recipient@email.com" Nastavite objRecip = Item.Recipients.Add(strBcc) objRecip.Type = olBCC Če ni objRecip.Resolve Then strMsg = "Prejemnika Skp ni bilo mogoče razrešiti." & _ "Ali še vedno želite poslati sporočilo?" res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _ "Ni bilo mogoče razrešiti prejemnika Bcc") Če res = vbNo Potem Prekliči = True End Če Konec Če Konec Če Konec Sub
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, ne morem zagotoviti, da bi koda delovala v Office2013. Ali moram v meniju orodja >> reference aktivirati kakšne posebne knjižnice? Hvala Kevin
Ta komentar je moderator na spletnem mestu minimiziral
Hvala. Autobcc deluje kot poslastica.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni in hvala za kodo. Meni odlično deluje v Outlooku 2013. Zanimalo me je, ali obstaja način, da deluje tudi pri odgovarjanju na e-pošto drugih ljudi. Zdi se, da deluje samo, ko nekomu pošljem 'novo' pošto?
Ta komentar je moderator na spletnem mestu minimiziral
zdravo, hvala, lepo deluje, ampak moje vprašanje je, kako lahko uporabim to samodejno skrito kopijo za več e-poštnih sporočil, tukaj si prikazal samo eno skrito e-pošto, ali lahko to uporabim za več e-poštnih sporočil?? če lahko, pa kako?
Ta komentar je moderator na spletnem mestu minimiziral
Ta koda deluje, le da ugotovim, da moram po vsakem ponovnem zagonu odpreti razvijalca. Po ponovnem zagonu makro ne deluje, razen če kliknem na razvijalec, odprem makro, ga zaprem, odprem varnost, zaprem. Kaj idej?
Ta komentar je moderator na spletnem mestu minimiziral
Ta makro deluje odlično v letu 2013 do ponovnega zagona. Če po ponovnem zagonu ne naredim ničesar, ne deluje, deluje, če po vsakem ponovnem zagonu naredim naslednje: kliknem na razvijalec, Visual Basic, ga zaprem, nato kliknem na Macro Security, zaprem. Ko to storim, deluje za sejo. Ob ponovnem zagonu se spet ustavi.
Tu še ni objavljenih komentarjev
Obremenitev Več
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije