Avtomatik cavab vermək üçün Outlook qaydasından istifadə edirsinizsə, avtomatik cavabın mətnə orijinal mesajı daxil edə bilməyəcəyini görəcəksiniz. Bu məqalə Outlook VBA vasitəsilə avtomatik cavabın mətninə orijinal e-poçtu və əvvəlcədən təyin edilmiş mətni daxil edə bilən asan bir üsul təqdim edəcək.
Outlook-da Exchange hesabları istifadəçilərə aşağıdakı ekran görüntüsü kimi “Fayl” menyusunda “Məlumat” sekmesi altındakı “Avtomatik Cavablar” düyməsi vasitəsilə birbaşa avtomatik cavablar təyin etməyə icazə verir:
Lakin İnternet E-poçt hesabından istifadə edirsinizsə, IMAP və ya POP3-dən asılı olmayaraq, “Avtomatik Cavablar” düyməsi mövcud deyil. Avtomatik cavabı aktiv etməyin yeganə yolu aşağıdakı şəkildə göstərilən avtomatik cavab qaydası yaratmaqdır:
Lakin, Outlook qaydası ilə bu cür avtomatik cavab avtomatik olaraq orijinal mesajı daxil edə bilməz. Əslində, insanların əksəriyyəti orijinal e-poçtu avtomatik cavabın mesaj gövdəsinə əlavə etmək istəyir. Belə hallarda, avtomatik cavab qaydası bunu mütləq həyata keçirə bilməz. Buna görə də Outlook VBA kodlarından istifadə etməliyik. Əgər maraqlanırsınızsa, ətraflı addımlar və VBA kodları üçün oxumağa davam edin.
Orijinal e-poçt və əvvəlcədən təyin edilmiş mətnlə avtomatik cavab verin
- Əvvəlcə “Developer” sekmesine keçib “Visual Basic” düyməsini sıxmalısınız.
- Sonra yeni “Proqramlar üçün Microsoft Visual Basic” pəncərəsində sol tərəfdəki “ThisOutlookSession” layihəsinə iki dəfə klik etməlisiniz.
- Bundan sonra “ThisOutlookSession” layihəsi açılacaq. İndi aşağıdakı VBA kodlarını kopyalayıb ona yapışdırmalısınız.
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
- Sonra bu kodu həmişəki kimi imzalamalı və yalnız rəqəmsal imzalanmış makrolara icazə vermək üçün makro parametrlərini dəyişməyə davam etməlisiniz.
- Nəhayət, yuxarıdakı addımları tamamladıqdan sonra Outlook avtomatik olaraq bədəndəki orijinal mesaj məlumatı ilə cavab göndərəcək. Aşağıdakı şəkildəki kimi görünəcək:
Qeyd: Qaydadan istifadə edən avtomatik cavabdan və ya VBA kodlarından istifadə edən avtomatik cavabdan asılı olmayaraq, onların hər ikisi yalnız Outlook işləyərkən effektlər yarada bilər.
Outlook Data Xətalarını ünvanlayın
Şübhəsiz ki, Outlook səhvlərə qarşı immun ola bilməz. Beləliklə, Outlook müntəzəm istifadəçiləri üçün onlara müraciət etmək üçün bəzi tövsiyələr əldə etmək vacibdir. Aydındır ki, öhdəsindən gəlməyin ən yaxşı yolu Outlook məlumatlarının zədələnməsi müntəzəm ehtiyat nüsxəsini çıxarır. Effektiv ehtiyat nüsxəsini əldə etdiyiniz müddətcə, Outlook qəzaya uğrasa belə, rahat olacaqsınız. Əlbəttə ki, sığortadan kənar, güclü təmir alətini də əlinizdə saxlamağınız daha yaxşıdır.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc SQL mdf faylının zədələnməsini təmir edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com