Outlook VBA арқылы түпнұсқа электрондық пошта арқылы және алдын-ала анықталған мәтінмен қалай автоматты түрде жауап беруге болады

Outlook шешімдері Қыркүйек 29, 2025

Егер сіз автоматты жауап беру үшін Outlook ережесін қолдансаңыз, онда автоматты жауап мәтіннің ішіне түпнұсқа хабарламаны қоса алмайтынын анықтайсыз. Бұл мақалада Outlook VBA арқылы автоматты жауаптың түпнұсқасына электрондық поштаны және алдын-ала анықталған мәтінді кірістіре алатын қарапайым әдіс ұсынылады.

Outlook бағдарламасында Exchange шоттары пайдаланушыларға автоматты жауаптарды келесі скриншот сияқты «Файл» мәзіріндегі «Ақпарат» қойындысындағы «Автоматты жауаптар» батырмасы арқылы орнатуға мүмкіндік береді:

Егер сіз Интернет-пошта есептік жазбасын қолдансаңыз, IMAP немесе POP3 қарамастан, «Автоматты жауаптар» батырмасы жоқ. Автоматты жауап беруді қосудың жалғыз жолы - келесі сурет түрінде көрсетілген автоматты жауап ережесін құру:

Дегенмен, Outlook ережесі бойынша автоматты түрде жауап берудің бұл түрі бастапқы хабарламаны автоматты түрде қамти алмайды. Шын мәнінде, көпшілік бастапқы электрондық поштаны автоматты жауаптың хабарлама мәтініне тіркегісі келеді. Мұндай жағдайларда автоматты жауап беру ережесі мұны нақты жүзеге асыра алмайды. Сондықтан біз Outlook VBA кодтарын пайдалануымыз керек. Егер сізді қызықтырса, егжей-тегжейлі қадамдар мен VBA кодтарын алу үшін оқуды жалғастырыңыз.

Түпнұсқа электрондық пошта және алдын-ала анықталған мәтінмен автоматты түрде жауап беру

Алдымен сіз «Әзірлеуші» қойындысына өтіп, «Visual Basic» батырмасын басуыңыз керек.
Содан кейін жаңа «Microsoft Visual Basic for Applications» терезесінде сол жақтағы «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