Outlook-da bir xil tarkibga ega bo'lgan bir nechta elektron pochta xabarlariga qanday javob berish kerak

Ko'pgina foydalanuvchilar Outlook-da bir xil tarkibga ega bo'lgan bir nechta tanlangan elektron pochta xabarlariga to'liq javob berish imkonini beruvchi yechimni so'rashadi. Outlook bunday xususiyatni ta'minlamasa-da, siz hali ham VBA kodi orqali bunga erishishingiz mumkin.

Men ko'plab foydalanuvchilar Outlookda bir vaqtning o'zida bir nechta elektron pochta xabarlariga bir xil javob yuborishni qo'llab-quvvatlovchi funksiya yo'qligidan shikoyat qilishlarini eshitdim. Ular bir nechta elektron pochta xabarlarini tanlaganlarida, "Javob berish" va "Hammasiga javob berish" amallari kulrang rangga aylanadi - o'chiriladi. Ushbu masalani ko'rib chiqsak, bundan keyin biz ushbu xususiyatni amalga oshirish usulini baham ko'ramiz.

Bir xil tarkibga ega bir nechta elektron pochta xabarlariga to'plamli javob

1. Avvalo, Outlook dasturingizni ishga tushiring.
2. Keyin, bir nechta elektron pochta xabarlariga javob berish uchun foydalanmoqchi bo'lgan javob shablonini yaratishingiz kerak.

• Birinchidan, yangi elektron pochta yarating.
• Keyin, javob bermoqchi bo'lgan narsangiz asosida ushbu xatni yozing.
• Keyin "Fayl" tugmasini bosing va "Boshqa saqlash" opsiyasini tanlang.
• Keyinchalik, yangi "Boshqa saqlash" dialog oynasida nom kiriting va "Tiri sifatida saqlash" oynasida "Outlook shabloni" ni tanlang.
• Nihoyat, "OK" tugmasini bosing.

3. Keyinchalik, o'zgarishlarni saqlamasdan elektron pochtani yopishingiz mumkin.
4. Keyinchalik, "Alt + F11" tugmachalarini bosishingiz kerak.
5. Shundan so'ng, Outlook VBA muharriri oynasi ko'rsatiladi.
6. Endi siz "ThisOutlookSession" loyihasini topishingiz va ochishingiz va unga quyidagi VBA kodini nusxalashingiz kerak.

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

7. Nihoyat, joriy oynani yopishingiz va ushbu makrosni sinab ko'rishingiz mumkin.

• Birinchidan, pochta ro'yxatida bir nechta elektron pochta xabarlarini tanlang.
• Keyin ularni o'ng tugmasini bosing.
• Keyin kontekst menyusida "Bir xil javob" ni tanlang va bosing.
• Keyin javob uchun ishlatiladigan shablonni ko'rsatish talab qilinadi.
• Ismni kiritib, "OK" tugmasini bosgandan so'ng, xuddi shu javob tanlangan elektron pochta xabarlariga yuboriladi.

Outlook korruptsiyaga moyil

Outlookning oddiy foydalanuvchisi sifatida men turli xil xatolarga duch keldim. Shuning uchun men Outlook ma'lumotlarimni himoya qilish uchun turli choralarni ko'rdim. Biroq, Outlook zarar ko'rishi va ishdan chiqishini oldindan aytish qiyin bo'lganligi sababli, men doimo tayyor turishim kerak. Misol uchun, ma'lumotlarimni imkon qadar tezroq qutqarish uchun men ajoyib qutqarish vositasini qo'lda tutdim - DataNumen Outlook Repair. Qodir Outlook-ni tuzatish hech qanday shovqinsiz fayl.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql buzilishi va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com