Sok felhasználó olyan megoldást kér, amely lehetővé teszi számukra, hogy több kiválasztott, azonos tartalmú e-mailre köteggel válaszoljanak az Outlookban. Bár az Outlook nem biztosít ilyen funkciót, egy VBA-kóddal mégis elérheti.
Sok felhasználót hallottam arról panaszkodni, hogy az Outlook nem rendelkezik olyan funkcióval, amely támogatja őket, hogy egyszerre több e-mailre is ugyanazt a választ küldjék. Ha több e-mailt választanak ki, a „Válasz” és a „Válasz mindenkinek” műveletek is szürkén jelennek meg – letiltásra kerülnek. Ezt a problémát tekintve a továbbiakban megosztunk egy módszert ennek a funkciónak a megvalósítására.
Több, azonos tartalmú e-mailre kötegelt válasz
- Először is indítsd el az Outlook programot.
- Ezután létre kell hoznia egy válaszsablont, amelyet több e-mail megválaszolásához szeretne használni.
- Először is hozzon létre egy új e-mailt.
- Ezután írja meg ezt az e-mailt az alapján, amit válaszolni szeretne.
- Ezután kattintson a „Fájl” gombra, és válassza a „Mentés másként” lehetőséget.
- Később az új „Mentés másként” párbeszédpanelen adjon meg egy nevet, és válassza a „Mentés típusa” mezőben az „Outlook-sablon” lehetőséget.
- Végül nyomja meg az „OK” gombot.
- Ezután bezárhatja az e-mailt a változtatások mentése nélkül.
- Ezt követően meg kell nyomnia az „Alt + F11” billentyűket.
- Ezt követően megjelenik az Outlook VBA szerkesztő ablaka.
- Most keresse meg és nyissa meg a „ThisOutlookSession” projektet, és másolja be a következő VBA-kódot.
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
- Végül bezárhatja az aktuális ablakot, és kipróbálhatja ezt a makrót.
- Először válasszon ki több e-mailt a levelezőlistában.
- Ezután kattintson rájuk jobb gombbal.
- Ezután válassza ki és nyomja meg az „Ugyanaz a válasz” lehetőséget a helyi menüben.
- Ezután meg kell adnia a válaszhoz használt sablont.
- A név beírása és az „OK” gomb megnyomása után ugyanazt a választ küldjük ki ezekre a kiválasztott e-mailekre.
Az Outlook hajlamos a korrupcióra
Az Outlook rendszeres felhasználójaként számos hibának volt kitéve. Ezért különféle intézkedéseket tettem Outlook-adataim védelme érdekében. Mivel azonban az Outlook érzékeny a sérülésekre, és az összeomlást nehéz megjósolni, folyamatosan készülnöm kell. Például, hogy a lehető leghamarabb megmentsem adataimat, kéznél tartottam egy figyelemre méltó helyreállító eszközt – DataNumen Outlook Repair. Képes javítsa ki az Outlookot fájl minden felhajtás nélkül.
Szerző Bevezetés:
Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sql korrupció és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com