Shumë përdorues kërkojnë një zgjidhje që i lejon ata të përgjigjen në grupe të shumëfishta emaile të zgjedhura me të njëjtën përmbajtje në Outlook. Megjithëse Outlook nuk ofron një veçori të tillë, ju mund ta arrini atë përmes një pjese të kodit VBA.
Kam dëgjuar një numër të madh përdoruesish që ankohen se Outlook nuk ka një funksion që i mbështet ata për të dërguar të njëjtën përgjigje në email të shumtë në të njëjtën kohë. Kur ata zgjedhin email-e të shumta, të dyja veprimet "Përgjigju" dhe "Përgjigju të gjithëve" do të bëhen gri - çaktivizohen. Duke parë këtë çështje, në vijim, ne do të ndajmë një metodë për të realizuar këtë veçori.

Përgjigja e grupit të emaileve të shumëfishta me të njëjtën përmbajtje
- Në radhë të parë, nisni programin tuaj Outlook.
- Më pas, duhet të krijoni një përgjigje model të cilën dëshironi ta përdorni për t'iu përgjigjur emaileve të shumta.
- Së pari, krijoni një email të ri.
- Më pas, shkruajeni këtë email bazuar në atë që dëshironi të përgjigjeni.
- Më pas, klikoni "File" dhe zgjidhni opsionin "Ruaj si".
- Më vonë, në kutinë e re të dialogut "Ruaj si", futni një emër dhe zgjidhni "Modelin e Outlook" në kutinë "Ruaj si lloj".
- Së fundi, shtypni butonin "OK".
- Më pas, mund ta mbyllni emailin pa ruajtur ndryshimet.
- Më pas, duhet të shtypni butonat "Alt + F11".
- Pas kësaj, do të shfaqet dritarja e redaktuesit të Outlook VBA.
- Tani, duhet të gjeni dhe hapni projektin "ThisOutlookSession" dhe të kopjoni kodin e mëposhtëm VBA në të.
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
- Më në fund, mund të mbyllni dritaren aktuale dhe të provoni këtë makro.
- Së pari, zgjidhni email të shumta në listën e postës.
- Pastaj, kliko me të djathtën mbi to.
- Tjetra, zgjidhni dhe shtypni opsionin "Same Reply" në menunë e kontekstit.
- Më pas, do t'ju kërkohet të specifikoni shabllonin e përdorur për përgjigje.
- Pas futjes së emrit dhe shtypjes "OK", e njëjta përgjigje do t'u dërgohet këtyre emaileve të zgjedhura.
Outlook është i prirur ndaj korrupsionit
Si përdorues i rregullt i Outlook, unë kam qenë subjekt i një sërë gabimesh. Prandaj, kam marrë masa të ndryshme për të mbrojtur të dhënat e mia të Outlook. Megjithatë, për shkak të faktit se Outlook është i ndjeshëm ndaj dëmtimit dhe përplasja është e vështirë të parashikohet, unë duhet të jem i përgatitur gjatë gjithë kohës. Për shembull, në mënyrë që të shpëtoj të dhënat e mia sa më shpejt të jetë e mundur, unë kam mbajtur në dispozicion një mjet të jashtëzakonshëm rikuperimi - DataNumen Outlook Repair. Është në gjendje të rregulloni Outlook dosje pa asnjë zhurmë.
Hyrje e autorit:
Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë korrupsioni sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com



