Mulți utilizatori solicită o soluție care să le permită să răspundă în lot la mai multe e-mailuri selectate cu același conținut în Outlook. Deși Outlook nu oferă o astfel de caracteristică, o puteți realiza prin intermediul unui cod VBA.
Am auzit un număr mare de utilizatori plângându-se că Outlook nu are nicio funcție care să îi sprijine să trimită același răspuns la mai multe e-mailuri dintr-o singură mișcare. Când selectează mai multe e-mailuri, atât acțiunile „Răspunde” cât și „Răspunde tuturor” vor deveni gri – vor fi dezactivate. Privind această problemă, în continuare, vom împărtăși o metodă pentru a realiza această caracteristică.
Răspuns în lot e-mailuri multiple cu același conținut
- În primul rând, porniți programul Outlook.
- Apoi, trebuie să creați un șablon de răspuns pe care doriți să îl utilizați pentru a răspunde la mai multe e-mailuri.
- În primul rând, creați un e-mail nou.
- Apoi, compuneți acest e-mail în funcție de ceea ce doriți să răspundeți.
- Apoi, faceți clic pe „Fișier” și alegeți opțiunea „Salvare ca”.
- Mai târziu, în noua casetă de dialog „Salvare ca”, introduceți un nume și selectați „Șablon Outlook” în caseta „Salvare ca tip”.
- În cele din urmă, apăsați butonul „OK”.
- Apoi, puteți închide e-mailul fără a salva modificările.
- Ulterior, ar trebui să apăsați butoanele tastei „Alt + F11”.
- După aceea, se va afișa fereastra editorului Outlook VBA.
- Acum, ar trebui să găsiți și să deschideți proiectul „ThisOutlookSession” și să copiați următorul cod VBA în el.
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
- În cele din urmă, puteți închide fereastra curentă și puteți încerca această macrocomandă.
- În primul rând, selectați mai multe e-mailuri din lista de e-mail.
- Apoi, faceți clic dreapta pe ele.
- Apoi, alegeți și apăsați opțiunea „Același răspuns” din meniul contextual.
- Apoi, vi se va solicita să specificați șablonul utilizat pentru răspuns.
- După introducerea numelui și apăsarea „OK”, același răspuns va fi trimis către aceste e-mailuri selectate.
Outlook este predispus la corupție
În calitate de utilizator obișnuit al Outlook, am fost supus unei varietăți de erori. Prin urmare, am luat diferite măsuri pentru a-mi proteja datele Outlook. Cu toate acestea, din cauza faptului că Outlook este susceptibil de a fi deteriorat și că accidentul este dificil de prevăzut, trebuie să fiu pregătit tot timpul. De exemplu, pentru a-mi salva datele cât mai curând posibil, am ținut la îndemână un instrument remarcabil de recuperare - DataNumen Outlook Repair. Este capabil să remediați Outlook dosar fără nicio agitație.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv corupție sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com