Daudzi lietotāji lūdz risinājumu, kas viņiem ļauj partijā atbildēt uz vairākiem atlasītajiem e-pastiem ar tādu pašu saturu programmā Outlook. Lai gan programma Outlook nenodrošina šādu funkciju, jūs to joprojām varat sasniegt, izmantojot VBA koda daļu.
Esmu dzirdējis lielu skaitu lietotāju, kuri sūdzas, ka programmai Outlook nav funkciju, kas viņus varētu nosūtīt vienu atbildi uz vairākiem e-pastiem vienā piegājienā. Kad viņi atlasīs vairākus e-pasta ziņojumus, gan “Atbildēt”, gan “Atbildēt visiem” darbības kļūs pelēcīgas - tiks atspējotas. Apskatot šo jautājumu, tālāk mēs dalīsimies ar metodi šīs funkcijas realizēšanai.
Partijas atbilde uz vairākiem e-pastiem ar tādu pašu saturu
- Pirmkārt, startējiet savu Outlook programmu.
- Pēc tam jums jāizveido atbildes veidne, kuru vēlaties izmantot, lai atbildētu uz vairākiem e-pasta ziņojumiem.
- Vispirms izveidojiet jaunu e-pastu.
- Pēc tam izveidojiet šo e-pasta ziņojumu, pamatojoties uz to, uz kuru vēlaties atbildēt.
- Pēc tam noklikšķiniet uz “Fails” un izvēlieties opciju “Saglabāt kā”.
- Vēlāk jaunajā dialoglodziņā “Saglabāt kā” ievadiet vārdu un lodziņā “Saglabāt kā tipu” atlasiet “Outlook veidne”.
- Visbeidzot, nospiediet pogu “OK”.
- Pēc tam jūs varat aizvērt e-pastu, nesaglabājot izmaiņas.
- Pēc tam jums jānospiež taustiņu pogas “Alt + F11”.
- Pēc tam tiks parādīts Outlook VBA redaktora logs.
- Tagad jums vajadzētu atrast un atvērt “ThisOutlookSession” projektu un iekopēt tajā šādu VBA kodu.
Sub Application_ItemContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Selection As Selection)
Dim objCommandBarButton As Office.CommandBarButton
If (Selection.count > 1) And (Selection.Item(1).Class = olMail) Then
Set objCommandBarButton = CommandBar.Controls.Add(msoControlButton)
'Add a "Same Reply" option to the context menu
With objCommandBarButton
.Style = msoButtonIconAndCaption
.Caption = "Same Reply"
.FaceId = 355
.OnAction = "Project1.ThisOutlookSession.SendSameReply"
End With
End If
End Sub
Sub SendSameReply()
Dim strTemplate As String
Dim objTemplateReply As Outlook.MailItem
Dim strHTMLBody As String
Dim objSelection As Outlook.Selection
Dim i As Long
Dim objReply As Outlook.MailItem
'Input the name of the previously saved template
strTemplate = InputBox("Enter the name of template message:", , "Template Reply")
Set objTemplateReply = Application.CreateItemFromTemplate("C:\Users\Test\Documents\UserTemplates\" & strTemplate & ".oft")
strHTMLBody = objTemplateReply.HTMLBody
Set objSelection = Application.ActiveExplorer.Selection
For i = objSelection.count To 1 Step -1
Set objReply = objSelection(i).Reply
With objReply
.HTMLBody = strHTMLBody & objReply.HTMLBody
.Send
End With
Next
End Sub
- Visbeidzot, jūs varat aizvērt pašreizējo logu un izmēģināt šo makro.
- Pirmkārt, e-pasta sarakstā atlasiet vairākus e-pastus.
- Pēc tam ar peles labo pogu noklikšķiniet uz tiem.
- Pēc tam konteksta izvēlnē izvēlieties un nospiediet opciju “Tā pati atbilde”.
- Pēc tam jums būs jānorāda atbildei izmantotā veidne.
- Pēc vārda ievadīšanas un nospiešanas “OK” tā pati atbilde tiks nosūtīta uz šiem atlasītajiem e-pastiem.
Outlook ir tendence uz korupciju
Kā parasts programmas Outlook lietotājs man ir bijušas dažādas kļūdas. Tāpēc esmu veicis dažādus pasākumus, lai aizsargātu savus Outlook datus. Tomēr, ņemot vērā to, ka programma Outlook ir uzņēmīga pret bojājumiem un ir grūti paredzēt avāriju, man visu laiku jāsagatavojas. Piemēram, lai pēc iespējas ātrāk izglābtu savus datus, esmu paturējis ērtu atkopšanas rīku - DataNumen Outlook Repair. Tas ir spējīgs labot Outlook failu bez satraukuma.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql korupcija un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar