Outlook VBA-ээр дамжуулан анхны имэйл болон урьдчилан тодорхойлсон текстээр хэрхэн автоматаар хариу бичих вэ

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

Хэрэв та автоматаар хариу бичихийн тулд Outlook дүрмийг ашиглаж байгаа бол автомат хариу нь эх мессежийг биедээ оруулах боломжгүй болохыг олж мэдэх болно. Энэ нийтлэл нь Outlook VBA-ээр дамжуулан автоматаар хариу бичих хэсэгт эх имэйл болон урьдчилан тодорхойлсон текстийг оруулах хялбар аргыг нэвтрүүлэх болно.

Outlook дээр Exchange дансууд нь хэрэглэгчдэд дараахь дэлгэцийн агшин шиг "Файл" цэсэн дэх "Мэдээлэл" табын доор байрлах "Автомат хариулт" товчийг ашиглан шууд автоматаар хариу тохируулах боломжийг олгодог.

Гэхдээ хэрэв та IMAP эсвэл POP3 хамаагүй интернетийн имэйл данс ашиглаж байгаа бол "Автомат хариулт" товч байхгүй байна. Автомат хариултыг идэвхжүүлэх цорын ганц арга бол дараахь зураг хэлбэрээр харуулсан автомат хариултын дүрмийг үүсгэх явдал юм.

Гэсэн хэдий ч Outlook дүрмийн энэ төрлийн автомат хариу нь анхны мессежийг автоматаар оруулж чадахгүй. Үнэндээ ихэнх хүмүүс анхны имэйлийг автомат хариуны мессежийн биед хавсаргахыг хүсдэг. Ийм тохиолдолд автомат хариуны дүрэм үүнийг тодорхой ойлгож чадахгүй. Тиймээс бид Outlook VBA кодуудыг ашиглах хэрэгтэй. Хэрэв та сонирхож байвал дэлгэрэнгүй алхамууд болон VBA кодуудыг авахын тулд үргэлжлүүлэн уншина уу.

Анхны имэйл болон урьдчилан тодорхойлсон текстээр автоматаар хариу бичих

Эхлээд та "Хөгжүүлэгч" таб руу очоод "Visual Basic" товчийг дарна уу.
Дараа нь шинэ "Програмд зориулсан Microsoft Visual Basic" цонхонд та зүүн талд байгаа "ThisOutlookSession" төсөл дээр давхар товшино уу.
Үүний дараа “ThisOutlookSession” төсөл нээгдэх болно. Одоо та дараахь VBA кодыг хуулж оруулах хэрэгтэй.

Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim olReply As MailItem
 
    If Item.Class = olMail Then
       Set olReply = Item.Reply
    Else
       Exit Sub
    End If
 
    With olReply
         'Type Your Own Auto Reply
         'Change "John Smith" to Your Own Name
         .Body = "This is a test auto reply." & vbCrLf & vbCrLf & "-------Original Message-------" & vbCrLf & "From: " & Item.Sender & "[mailto: " & Item.SenderEmailAddress & "]" & vbCrLf & "Sent: " & Item.ReceivedTime & vbCrLf & "To: YourName" & vbCrLf & "Subject: " & Item.Subject & vbCrLf & Item.Body
         .Send
    End With
End Sub

Дараа нь та энэ кодод ердийн байдлаар гарын үсэг зурж, дижитал гарын үсэг бүхий макро зөвшөөрөхийн тулд макро тохиргоогоо үргэлжлүүлэн өөрчлөх хэрэгтэй.
Эцэст нь дээр дурдсан алхмуудыг хийсний дараа Outlook нь эх мессежийн мэдээлэл бүхий хариуг автоматаар илгээх болно. Энэ нь доорх зураг шиг харагдаж байна:

Тайлбар: Дүрмийг ашиглан автоматаар хариулах эсвэл VBA код ашиглан автоматаар хариу бичихээс үл хамааран хоёулаа зөвхөн Outlook ажиллаж байх үед л үр дүнгээ өгч чадна.

Outlook өгөгдлийн алдааг шийдвэрлэх

Ямар ч эргэлзээгүйгээр Outlook нь алдаанаас ангид байж чадахгүй. Тиймээс Outlook-ийн байнгын хэрэглэгчид тэдгээрийг шийдвэрлэх зарим заль мэхийг олж авах нь зайлшгүй чухал юм. Мэдээжийн хэрэг, үүнийг даван туулах хамгийн сайн арга юм Outlook өгөгдлийн эвдрэл тогтмол нөөцлөлт хийж байна. Та үр дүнтэй нөөцлөлтийг эзэмшсэн л бол Outlook эвдэрсэн ч гэсэн тайван байх болно. Мэдээжийн хэрэг, даатгалаас гадна та хүчирхэг засварын хэрэгслийг ашиглах хэрэгтэй.

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

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