Хэрэв та имэйлийн жагсаалт дахь имэйл бүрийн хавсралтын тоог хурдан авахыг хүсвэл энэ нийтлэл дэх VBA кодыг ашиглаж болно. Энэ нь ирж буй имэйл бүрийн хавсралтыг автоматаар тоолж, тоог шинэ баганад харуулах болно.
Зарим хэрэглэгчид имэйлийн хавсралтыг байнга тоолох шаардлагатай болдог. Энэ тохиолдолд яагаад хавсралтын тоог харуулах онцгой багана үүсгэж, идэвхжүүлж болохгүй гэж? Дараах зүйлд бид Outlook-д имэйлийн хавсралтыг автоматаар тоолж, тоог ийм шинэ баганад хэрхэн харуулахыг заах болно.
Имэйлийн жагсаалтад хавсралтын тоог харуулах
- Эхлээд Outlook програмаа ажиллуулна уу.
- Дараа нь Outlook-ийн үндсэн цонхонд "Alt + F11" товчлууруудыг дар.
- Дараа нь Outlook VBA засварлагчийн шинэ цонхонд ашиглагдаагүй модулийг нээх хэрэгтэй.
- Дараа нь дараахь VBA кодыг хуулж аваад энэ модуль дээр буулгана уу.
Sub AutoCountAttachments(objMail As Outlook.MailItem)
Dim objAttachments As Outlook.Attachments
Dim objProperties As Outlook.UserProperties
Dim objProperty As Outlook.UserProperty
Dim strPropertyName As String
Set objAttachments = objMail.Attachments
strPropertyName = "Attachment Count"
Set objProperties = objMail.UserProperties
'Check if there is already a column in this name
Set objProperty = objProperties.Find(strPropertyName, True)
If objProperty Is Nothing Then
'If not, add this column
Set objProperty = objProperties.Add(strPropertyName, olText, True)
End If
'Set the column value equal to the count of attachments
objProperty.value = objAttachments.Count
objMail.Save
End Sub
- Үүний дараа та одоогийн "Програмд зориулсан Microsoft Visual Basic" цонхноос гарч болно.
- Дараа нь та ирж буй имэйл бүрт энэ скриптийг ажиллуулах шинэ дүрмийг бий болгох хэрэгтэй.
- Эхлээд "Файл" цэс рүү очоод "Мэдээлэл" табын доор байрлах "Дүрэм ба сэрэмжлүүлгийг удирдах" товчийг дарна уу.
- Дараа нь шинэ харилцах цонхонд "Шинэ дүрэм" товчийг дарна уу.
- Дараагийн "Дүрмийн шидтэн" дэлгэцээс "Миний хүлээн авсан мессежүүдэд дүрэм хэрэглэх" гэснийг сонгоод "Дараах" гэснийг товшино уу.
- Дараа нь "Нөхцөл сонгох" гэснийг үл тоомсорлож, "Дараах" дээр дарна уу.
- Дараа нь "скрипт ажиллуулах" үйлдлийг сонгоод дараах дэлгэцийн агшин шиг өмнө нь нэмсэн макро сонгоно уу.
- Үүний дараа "Дараах" товчийг дарж эцсийн "Дүрмийн тохиргоог дуусгах" дэлгэц рүү очно уу.
- Дараа нь та энэ дүрмийн шинэ нэрийг зааж, "Ирсэн имэйл"-д байгаа мессежүүд дээр энэ дүрмийг ажиллуулах" болон "Энэ дүрмийг асаах" сонголтыг идэвхжүүлэх хэрэгтэй.
- Эцэст нь "Дуусгах" товчийг дарна уу.
- Үүний дараа та VBA кодоор үүсгэсэн "Хавсралтуудын тоо" баганыг нэмэх хэрэгтэй. Дараах алхмуудыг хийхэд л хангалттай.
- Эхлээд имэйлийн жагсаалтын дэлгэцийн "Харах" таб руу очно уу.
- Дараа нь "Тохиргоог харах" товчийг дарна уу.
- Шинээр гарч ирэх харилцах цонхонд "Багана" товчийг дарна уу.
- Дараа нь "Баганыг харуулах" цонхноос "Ирсэн имэйл дэх хэрэглэгчийн тодорхойлсон баганууд" доор байрлах "Хавсралтуудын тоо" баганыг олоод "Нэмэх" товчийг дарна уу.
- Эцэст нь өөрчлөлтийг хадгалахын тулд "OK" товчийг дарна уу.
- Эцэст нь та имэйлийн жагсаалтаас "Хавсралт тоолох" баганыг харах боломжтой бөгөөд энэ нь имэйл бүрийн хавсралтын тоог харуулах бөгөөд доорх зурагт үзүүлэв.
PST мэдээллийн алдагдлыг бухимдуулахаас зайлсхий
PST өгөгдлийн алдагдлыг хэн ч хүлээн зөвшөөрөхгүй гэж үздэг. Таны хувьд ч мөн адил байх ёстой. Тиймээс, та PST файлынхаа өгөгдлийн нөөцлөлт хийх, нэр хүндтэй засварын хэрэгслийг ашиглах зэрэг урьдчилан сэргийлэх арга хэмжээ авах хэрэгтэй. DataNumen Outlook RepairБайна. Ингэж чаддаг Outlook програмыг засах хөлсөө гаргахгүйгээр гаргадаг.
Зохиогчийн танилцуулга:
Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com