Таны хэтийн төлөвт ижил агуулгатай олон имэйлийг хэрхэн багцаар хэрхэн хариулах вэ

Outlook шийдлүүд Есдүгээр сарын 29, 2025

Олон хэрэглэгчид Outlook дээрх ижил агуулгатай олон сонгосон имэйлийг багцаар хариу өгөх боломжийг олгодог шийдлийг хүсч байна. Хэдийгээр Outlook нь ийм функцийг хангадаггүй ч гэсэн та үүнийг VBA кодоор дамжуулан олж авах боломжтой.

Олон тооны хэрэглэгчид Outlook нь олон имэйлд ижил хариулт илгээхэд дэмжлэг үзүүлэх функцгүй байна гэж гомдоллож байгааг би сонссон. Тэд олон имэйлийг сонгохдоо "Reply" ба "All Reply" гэсэн үйлдлүүд хоёулаа саарал болж идэвхгүй болно. Энэ асуудлыг авч үзээд цааш нь бид энэ онцлог шинжийг хэрэгжүүлэх аргыг хуваалцах болно.

Ижил агуулгатай олон имэйлийг багцаар хариулах

Эхлээд Outlook програмаа эхлүүлнэ үү.
Дараа нь та олон имэйлд хариу бичихдээ ашиглах хүсэлтэй байгаа загварын хариуг үүсгэх хэрэгтэй.

Эхлээд шинэ имэйл үүсгээрэй.
Дараа нь хариу бичихийг хүссэн зүйл дээрээ үндэслэн энэ имэйлийг бичээрэй.
Дараа нь "Файл" дээр дарж "Хадгалах" сонголтыг сонгоно уу.
Дараа нь шинэ “Хадгалах” харилцах цонхонд нэрээ оруулаад “Хадгалах төрлөөр” нүдэнд “Outlook Загвар” -ыг сонгоно уу.
Эцэст нь “OK” товчийг дарна уу.

Дараа нь та өөрчлөлтийг хадгалахгүйгээр имэйлээ хааж болно.
Дараа нь та "Alt + F11" товчлууруудыг дарах хэрэгтэй.
Үүний дараа Outlook VBA засварлагч цонх гарч ирнэ.
Одоо та "ThisOutlookSession" төслийг олж нээгээд дараах VBA кодыг хуулах хэрэгтэй.

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

Эцэст нь та одоо байгаа цонхыг хааж, энэ макро оролдож болно.

Нэгдүгээрт, мэйлийн жагсаалтаас олон имэйлийг сонгоно уу.
Дараа нь, тэдгээрийг баруун товшино уу.
Дараа нь контекст цэсэнд "Same Reply" сонголтыг сонгоод дарна уу.
Дараа нь хариу бичихэд ашигласан загварыг зааж өгөх шаардлагатай болно.
Нэрээ оруулаад "OK" дээр дарсны дараа эдгээр сонгосон имэйлд ижил хариу илгээнэ.

Хэтийн төлөв нь авлигад өртөмтгий байдаг

Outlook-ийн байнгын хэрэглэгчийн хувьд би олон янзын алдаа гаргадаг байсан. Тиймээс би Outlook өгөгдлөө хамгаалахын тулд янз бүрийн арга хэмжээ авсан. Гэсэн хэдий ч Outlook нь эвдэрч болзошгүй, сүйрэхийг урьдчилан таамаглахад хэцүү тул би үргэлж бэлтгэлтэй байх ёстой. Жишээлбэл, өгөгдлөө аль болох богино хугацаанд аврахын тулд би сэргээн засах гайхалтай хэрэгслийг хялбархан хадгалсан. DataNumen Outlook Repair. Энэ нь боломжтой Outlook засах ямар ч шуугиангүйгээр файл.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql авлига програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com