Ar dažnai norite atsakyti visiems, įskaitant save kaip gavėją? Būtų nepatogu, jei visada rankiniu būdu pridėsite savo el. pašto adresą. Šiame straipsnyje sužinosite, kaip tai padaryti automatiškai.
Galbūt „Outlook“ sukonfigūravote kelias el. pašto paskyras. Todėl galbūt dėl patogumo ateityje, kai atsakote į laišką visiems gavėjams, galbūt norėsite kaip gavėją įtraukti ir kitą el. pašto adresą. Darant prielaidą, kad dažnai taikote šį reikalavimą, bus nuobodu, jei visada pridėsite savo el. pašto paskyrą rankiniu būdu. Atsakydami į šią problemą, čia pristatysime vieną problemos sprendimo būdą ir greitą metodą naudojant „Outlook VBA“.
Sprendimas: sukurkite „Outlook“ taisyklę
- Pačioje pradžioje paleiskite „Outlook“ programą ir spustelėkite mygtuką „Taisyklė“, esantį grupėje „Perkelti“, esančioje po pašto skirtuku „Paštas“. Išskleidžiamajame sąraše pasirinkite „Tvarkyti taisykles ir įspėjimus“.
- Tada iššokančiajame lange paspauskite mygtuką „Nauja taisyklė“.
- Tada pasirinkite „Taikyti taisyklę mano siunčiamiems pranešimams“ ir paspauskite „Kitas“.
- Po to turėtumėte pasirinkti „su konkrečiais žodžiais temoje“, paspausti nuorodą „konkretūs žodžiai“ ir pridėti „RE“.
- Pridėję jį ir spustelėję „Kitas“, turėtumėte nurodyti veiksmą. Pasirinkite „Siųsti pranešimą žmonėms arba viešai grupei“, paspauskite nuorodą „Žmonės arba vieša grupė“ ir įveskite savo el. pašto adresą lauke „Kam“.
- Galiausiai galite spustelėti „Kitas“ ir baigti taisyklės sąranką kaip įprasta.
Tačiau šis sprendimas automatiškai neprideda jūsų el. pašto adreso kaip vieno gavėjo atsakymo el. laiške. Jis sukurs dar vieną naują el. laišką, įtrauks jus į lauką „CC“ ir išsiųs. Be to, ji negali nustatyti gavėjų skaičiaus ir atpažinti, ar tai yra atsakymo į visus el. laiškas. Norėdami pašalinti šio sprendimo trūkumus, pateikiame tikrąjį „Outlook VBA“ metodą.
Naudokite VBA, kad automatiškai įtrauktumėte save atsakydami į visus
- Norėdami pradėti, paleiskite „Outlook“ ir paspauskite klavišų kombinaciją „Alt“ + F11.
- Tada iššokančiajame lange „Visual Basic“ atidarykite „ThisOutlookSession“ projektą ir nukopijuokite bei įklijuokite į jį šiuos VBA kodus.
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 to turėtumėte pasirašyti šį kodą ir pakeisti makrokomandos nustatymus, kad būtų galima naudoti tik skaitmeniniu būdu pasirašytas makrokomandas.
- Pagaliau galite pabandyti. Kai atsakysite visiems gavėjams ir spustelėsite mygtuką „Siųsti“, gausite „Outlook“ raginimą, kaip ir toliau pateiktoje ekrano kopijoje. Jei paspausite „Taip“, „Outlook“ automatiškai pridės jūsų el. pašto adresą.
Rūpinkitės savo Outlook PST failais
Dėl „Outlook PST“ failo pažeidžiamumo turėtumėte saugotis visų galimų su juo susijusių pavojų. Pavyzdžiui, failą turėtumėte laikyti mažo dydžio, nes per didelis PST failas yra daug labiau linkęs sugadinti. Be to, jūs turėtumėte paimti žvaigždę sugadintas PST failų taisymo įrankis, kuris jums padės, kai patirsite nenumatytą PST failo žalą.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas remontas SQL Server db ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com