Kas soovite sageli vastata kõigile, sealhulgas teile kui adressaadile? See on segane, kui lisate oma e-posti aadressi alati käsitsi. See artikkel õpetab teile, kuidas seda automaatseks muuta.
Võib-olla on teie Outlookis konfigureeritud mitu meilikontot. Seetõttu võiksite edaspidise kontrolli mugavuse huvides, kui vastate kõigile adressaatidele kirjale, lisada adressaadiks ka oma teise e-posti aadressi. Eeldades, et teil on see nõue sageli, on tüütu, kui lisate oma meilikonto alati käsitsi. Vastuseks sellele probleemile tutvustame teile üht lahendust ja kiirmeetodit Outlook VBA kaudu.
Lahendus: looge Outlooki reegel
- Kõige alguses käivitage Outlooki rakendus ja klõpsake vahekaardi „Avaleht“ all jaotises „Teisalda“ nuppu „Reegel“. Seejärel valige rippmenüüst „Reeglite ja märguannete haldamine“.
- Seejärel klõpsake hüpikaknas nuppu "Uus reegel".
- Järgmisena valige "Rakenda reegel minu saadetud sõnumitele" ja klõpsake nuppu "Järgmine".
- Pärast seda peaksite valima "teema konkreetsete sõnadega", vajutama linki "konkreetsed sõnad" ja seejärel lisama "RE".

- Pärast selle lisamist ja nuppu "Järgmine" peaksite määrama toimingu. Valige "Sisestage sõnum inimestele või avalikule grupile", klõpsake linki "Inimesed või avalik grupp" ja tippige väljale "Saaja" oma e-posti aadress.
- Lõpuks võite klõpsata nupul "Järgmine" ja lõpetada reegli seadistamine nagu tavaliselt.
Kuid see lahendus ei lisa automaatselt teie enda e-posti aadressi ühe vastusmeili adressaadina. See loob uue e-kirja ja lisab teid väljale "CC" ja saadab selle välja. Samuti ei suuda see tuvastada adressaatide arvu ega tuvastada, kas see on kõigile vastusmeil. Selle lahenduse nõrkade külgede kõrvaldamiseks on siin tegelik meetod Outlook VBA kaudu.
Kasutage VBA-d, et kõigile vastamisel ennast automaatselt kaasata
- Alustamiseks avage Outlook ja vajutage klahvikombinatsiooni „Alt + F11”.
- Seejärel avage hüpikaknas "Visual Basic" projekt "ThisOutlookSession" ning kopeerige ja kleepige sinna järgmised VBA koodid.
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
- Pärast seda peaksite selle koodi allkirjastama ja muutma makro sätteid, et lubada ainult digitaalselt allkirjastatud makrosid.
- Lõpuks võite proovida. Kui vastate kõigile adressaatidele ja klõpsate nuppu "Saada", saate Outlooki viipa, nagu järgmine ekraanipilt. Kui vajutate "Jah", lisab Outlook automaatselt teie enda e-posti aadressi.
Hoolitsege oma Outlooki PST-failide eest
Outlooki PST-faili haavatavuste tõttu peaksite jälgima kõiki sellega seotud võimalikke riske. Näiteks peaksite faili hoidma väikese suurusega, kuna see liiga suur PST-fail on palju altid korruptsioonile. Samuti peaksite tähe kätte saama rikutud PST-failide parandamise tööriist, mis aitab teid ootamatute PST-failikahjustuste korral.
Autori sissejuhatus:
Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas parandada korrumpeerunud SQL Server db ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom


