Зарим хүмүүс шинэ имэйл ирэхэд Outlook хуучин имэйлийн сэдвийг автоматаар шалгаж, шинэ имэйлтэй ижил сэдэвтэй бол хуучин имэйлийн нэрийг өөрчлөх эсвэл устгах боломжтой гэж зарим хүмүүс найдаж байна. Энэ нь Outlook VBA -ийг ашиглахыг шаарддаг. Энэ нийтлэл нь түүнд хүрэхэд тань туслах болно.
Та ижил сэдэвтэй олон имэйл хүлээн авсан байх ёстой. Имэйлийн жагсаалтаас тэдгээрийг ялгаж салгах нь танд төвөг учруулж байна уу? Эсвэл эдгээр хуучин имэйлүүд танд огт хэрэггүй гэж та бодож байна уу? Хэрэв тийм бол, та шинэ имэйл ирэх үед Outlook -ийг одоо байгаа бүх имэйлийг автоматаар сканнердах, шалгахыг зөвшөөрөх хэрэгтэй. Шинэ сэдэвтэй ижил имэйл байгаа бол Outlook нь нэрийг нь өөрчлөх эсвэл устгах эсэхийг асууж болно. Ямар ч эргэлзээгүйгээр Outlook нь хэрэглэгчдэд ийм боломж олгодоггүй. Тиймээс та VBA -д хандах хэрэгтэй. Энд бид нарийвчилсан код, үйлдлүүдийг танд үзүүлэх болно.
Хуучин имэйлийг автоматаар нэрлэх эсвэл устгах
- Эхлээд та Outlook-г эхлүүлж, "Хөгжүүлэгч" таб руу орж болно.
- Дараа нь та "Visual Basic" товчийг хайж олох боломжтой болно.
- Үүнийг дарсны дараа та VBA редакторын цонх руу орох болно. Үүнд та "ThisOutlookSession" төслийг нээх хэрэгтэй болно.
- Дараа нь та дараахь VBA кодыг хуулж оруулах хэрэгтэй.
Public WithEvents olItems As Outlook.Items
Sub Application_Startup()
'Specify the Emails in Inbox folder
Set olItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub olItems_ItemAdd(ByVal Item As Object)
Dim i As Long
Dim objVariant As Variant
Dim strMsg As String
Dim nRes As Integer
For i = 1 To olItems.Count
Set objVariant = olItems.Item(i)
If TypeOf objVariant Is MailItem Then
If objVariant.Subject = Item.Subject And objVariant.ReceivedTime < Item.ReceivedTime Then
nDateDiff = DateDiff("d", objVariant.ReceivedTime, Now)
'Add "(Old)" suffix to the email subjects
objVariant.Subject = objVariant.Subject & "(Old)"
objVariant.Save
'If the old emails have been recieved for 60 days, ask you whether to delete
If nDateDiff > 60 Then
strMsg = "There are some older emails whcih have the same subjects with the new email and have been recieved for 2 months. Do you want to delete them?"
nRes = MsgBox(strMsg, vbExclamation + vbYesNo, "Find Older Emails")
If nRes = vbYes Then
objVariant.Delete
End If
End If
End If
End If
Next
End Sub
- Үүний дараа та энэ кодыг дижитал гарын үсэг зурах шаардлагатай болно. "Багаж хэрэгсэл"> "Дижитал гарын үсэг" дээр дарна уу. Дараа нь гарч ирэх харилцах цонхонд та одоо байгаа нэг гэрчилгээг сонгож болно. Хэрэв бэлэн гэрчилгээ байхгүй бол та "VBA төслийн дижитал гэрчилгээ" -ийг ашиглан шинээр гэрчилгээ үүсгэж болно.
- Үүний дараа та одоогийн цонхноос гарч макро тохиргоог өөрчилж, зөвхөн дижитал гарын үсэг бүхий макрог зөвшөөрөх боломжтой.
- Эцэст нь та шинэ макрог идэвхжүүлэхийн тулд Outlook-г дахин эхлүүлж болно. Одооноос эхлэн Ирсэн имэйлд шинэ имэйл ирэхэд Outlook одоо байгаа бүх имэйлийг автоматаар шалгах болно.
- Хэрэв хуучин имэйлүүд шинэ сэдэвтэй ижил сэдэвтэй бол Outlook имэйлийн сэдэвт "(Хуучин)" дагаврыг автоматаар нэмнэ.
- Хэрэв хуучин имэйлүүд Ирсэн имэйл хайрцагт 2 сар гаруй хадгалагдсан бол та доорх зураг шиг устгахыг хүсч байгаа эсэхийг асуух болно. Та өөрийн хэрэгцээнд үндэслэн "Тийм" эсвэл "Үгүй" гэж сонгож болно.
Том хэмжээтэй байгаагаас шалтгаалан Outlook файлын авлига
Зарим хүмүүс Outlook дээр хуучин зүйлсийг тогтмол устгах зуршилгүй байдаг. Тиймээс тэдний Outlook файл том хэмжээтэй байх бөгөөд энэ нь огт зөвлөдөггүй. Учир нь хэт том Outlook файл нь жижиг хэмжээтэй файлаас хамаагүй эмзэг байдаг. Файл эвдэрсэн тохиолдолд Scanpst.exe засварлах хэрэгсэл нь ихэнх тохиолдолд арчаагүй болно. Таны өвөрмөц арга зам бол гайхалтай бөгөөд сайн батлагдсан арга байж болох юм. гэмтсэн Outlook PST засварын хэрэгсэл, гэх мэт DataNumen Outlook Repair.
Зохиогчийн танилцуулга:
Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. авлигачийг засах SQL Server mdf мэдээллийн сан програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com