Ali pogosto želite odgovoriti vsem, tudi sebi kot prejemniku? Nerodno bo, če vedno ročno dodate svoj e-poštni naslov. Ta članek vas bo naučil, kako to narediti samodejno.
Morda imate v Outlooku konfiguriranih več e-poštnih računov. Zato boste morda zaradi priročnosti za prihodnje preverjanje, ko odgovorite na pošto vsem prejemnikom, morda želeli vključiti tudi svoj drug e-poštni naslov kot prejemnika. Ob predpostavki, da imate to zahtevo pogosto, bo dolgočasno, če svoj e-poštni račun vedno dodate ročno. Kot odgovor na to težavo vam bomo tukaj predstavili eno rešitev in hitro metodo prek Outlooka VBA.
Rešitev: ustvarite Outlookovo pravilo
- Na samem začetku zaženite aplikacijo Outlook in v skupini »Premakni« na zavihku »Domov« v programu Pošta kliknite gumb »Pravilo«. Na spustnem seznamu izberite »Upravljanje pravil in opozoril«.
- Nato v pojavnem oknu pritisnite gumb »Novo pravilo«.
- Nato izberite »Uporabi pravilo za sporočila, ki jih pošljem« in pritisnite »Naprej«.
- Po tem bi morali izbrati »z določenimi besedami v zadevi«, klikniti povezavo »določene besede« in nato dodati »RE«.

- Ko ga dodate in kliknete »Naprej«, morate določiti dejanje. Izberite »Kopiraj sporočilo osebam ali javni skupini«, pritisnite povezavo »ljudje ali javna skupina« in vnesite svoj e-poštni naslov v polje »Za«.
- Na koncu lahko kliknete »Naprej« in dokončate nastavitev pravila kot običajno.
Vendar ta rešitev ne doda samodejno vašega e-poštnega naslova kot enega prejemnika v e-poštnem sporočilu za odgovor. Ustvaril bo novo e-pošto in vas dodal v polje »CC« ter ga poslal. Prav tako ne more identificirati števila prejemnikov in prepoznati, ali gre za e-poštno sporočilo z odgovorom vsem. Za odpravo slabosti te rešitve je tukaj dejanska metoda prek Outlooka VBA.
Uporabite VBA za samodejno vključitev sebe, ko odgovarjate vsem
- Za začetek zaženite Outlook in pritisnite tipki »Alt + F11«.
- Nato v pojavnem oknu »Visual Basic« odprite projekt »ThisOutlookSession« ter vanj kopirajte in prilepite naslednje kode VBA.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim Recip As Recipient
Dim MyAddr As String
'Replace with your own email address
MyAddr = "youremailaddress@datanumen.com"
If InStr(Item.Subject, "RE") > 0 Then
If Item.Recipients.Count > 1 Then
If MsgBox("Reply All Including Yourself?", vbYesNo + vbQuestion) = vbYes Then
Set Recip = Item.Recipients.Add(MyAddr)
'To CC, replace "olTo" with "olCC"
'To BCC, replace "olTo" with "olBCC"
Recip.Type = olTo
Recip.Resolve
End If
End If
End If
End Sub
- Po tem bi morali podpisati to kodo in spremeniti nastavitve makra, da bodo dovoljeni samo digitalno podpisani makri.
- Končno lahko poskusite. Ko odgovorite vsem prejemnikom in kliknete gumb »Pošlji«, boste prejeli Outlookov poziv, kot je naslednji posnetek zaslona. Če pritisnete »Da«, bo Outlook samodejno dodal vaš e-poštni naslov.
Poskrbite za svoje Outlookove datoteke PST
Zaradi ranljivosti datoteke Outlook PST bi morali biti pozorni na vsa možna tveganja, ki jo obdajajo. Datoteka naj bo na primer majhna, saj je prevelika datoteka PST veliko bolj nagnjena k poškodbam. Prav tako bi morali dobiti zvezdo orodje za popravilo poškodovane datoteke PST, ki vam bo priskočil na pomoč, ko boste utrpeli nepričakovano poškodbo datoteke PST.
Uvod avtorja:
Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo pokvarjeno SQL Server db in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com


