Vai jūs bieži vēlaties atbildēt visiem, ieskaitot sevi kā saņēmēju? Tas būs netīrs, ja vienmēr manuāli pievienosiet savu e-pasta adresi. Šis raksts iemācīs, kā to padarīt automātisku.
Iespējams, jūsu programmā Outlook ir konfigurēti vairāki e-pasta konti. Tāpēc, iespējams, ērtības labad turpmākai pārbaudei, atbildot uz pastu visiem adresātiem, iespējams, vēlēsities kā saņēmēju iekļaut arī citu e-pasta adresi. Pieņemot, ka jums bieži ir šī prasība, tas būs garlaicīgs, ja vienmēr manuāli pievienosiet savu e-pasta kontu. Atbildot uz šo problēmu, šeit jūs iepazīstināsim ar vienu risinājumu, kā arī ātru metodi, izmantojot Outlook VBA.
Risinājums: izveidojiet Outlook kārtulu
- Pašā sākumā palaidiet programmu Outlook un sadaļā “Pasts” sadaļā “Sākums” sadaļā “Pārvietot” noklikšķiniet uz pogas “Noteikumi”. Un nolaižamajā sarakstā izvēlieties “Pārvaldīt noteikumus un brīdinājumus”.
- Pēc tam uznirstošajā logā nospiediet pogu “Jauns noteikums”.
- Pēc tam atlasiet “Lietot kārtulu manis sūtītajiem noteikumiem” un nospiediet “Tālāk”.
- Pēc tam jums jāizvēlas “ar konkrētiem vārdiem priekšmetā”, jānospiež saite “konkrēti vārdi” un pēc tam jāpievieno “RE”.

- Pēc tā pievienošanas un noklikšķināšanas uz Tālāk jums jānorāda darbība. Izvēlieties “Nosūtīt ziņojumu cilvēkiem vai publiskai grupai”, nospiediet saiti “Cilvēki vai publiskā grupa” un laukā “Kam” ierakstiet savu e-pasta adresi.
- Visbeidzot, jūs varat noklikšķināt uz “Tālāk” un pabeigt kārtulas iestatīšanu kā parasti.
Tomēr šis risinājums automātiski nepievieno jūsu e-pasta adresi kā vienu saņēmēju atbildes e-pastā. Tas izveidos vēl vienu jaunu e-pastu un pievienos jūs laukā “CC” un izsūtīs to. Turklāt tā nespēj identificēt saņēmēju skaitu un atpazīt, vai tas ir atbildes e-pasts. Lai novērstu šīs problēmas vājās vietas, šeit ir faktiskā metode, izmantojot Outlook VBA.
Izmantojiet VBA, lai automātiski iekļautu sevi, atbildot uz visiem
- Lai sāktu, palaidiet programmu Outlook un nospiediet taustiņu kombināciju “Alt + F11”.
- Pēc tam uznirstošajā logā “Visual Basic” atveriet projektu “ThisOutlookSession” un tajā nokopējiet un ielīmējiet šādus 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
- Pēc tam jums vajadzētu parakstīt šo kodu un mainīt makro iestatījumus, lai atļautu tikai digitāli parakstītus makro.
- Visbeidzot, jūs varat izmēģināt. Atbildot uz visiem adresātiem un noklikšķinot uz pogas Sūtīt, jūs saņemsit Outlook uzvedni, piemēram, šo ekrānuzņēmumu. Ja nospiedīsit “Jā”, programma Outlook automātiski pievienos jūsu e-pasta adresi.
Rūpējieties par Outlook PST failiem
Outlook PST faila ievainojamības dēļ jums vajadzētu pievērst uzmanību visiem iespējamiem ar to saistītajiem riskiem. Piemēram, jums vajadzētu saglabāt failu mazā izmērā, jo šis lielizmēra PST fails ir daudz vairāk pakļauts korupcijai. Jums vajadzētu arī iegūt zvaigžņu rokās korumpēts PST failu labošanas rīks, kas jums palīdzēs, kad jūs cietīsit neparedzētiem PST failu bojājumiem.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp remonts korumpēts SQL Server db un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar


