Сонгосон цахим шуудангийн хавсралтын тоог тоолох шаардлага танд тулгарч байсан уу? Хэрэв та тэдгээрийг гараар тоолвол уйтгартай байх болно. Энд бид Outlook VBA ашиглан тоолох ажлыг илүү хялбар, хурдан хийхэд тань туслах болно.
Зарим шалтгааны улмаас та Outlook имэйл дэх хавсралтын тоог тоолох шаардлагатай болж магадгүй юм. Хэрэв та зүгээр л нэг имэйл дэх хавсралтын тоог авахыг хүсвэл энэ нь нэлээд хялбар байх болно. Гэхдээ хэрэв та хэд хэдэн имэйл дэх хавсралтыг тоолохыг хүсвэл гараар тоолоход маш төвөгтэй байх болно. Ерөнхийдөө хамгийн түгээмэл аргуудын нэг бол бүх хавсралтыг компьютер дээрх локал хавтсанд хадгалах явдал юм. Дараа нь тэдгээрийг сонгоход Windows Explorer нь төлөвийн мөрөнд сонгосон зүйлсийн тоог танд хэлэх болно.
Гэсэн хэдий ч энэ арга нь нэлээд төвөгтэй хэвээр байгааг үгүйсгэх аргагүй юм. Үнэн хэрэгтээ Outlook VBA-ийн тусламжтайгаар та сонгосон Outlook имэйлийн хавсралтын нийт тоог хурдан авах боломжтой. Нарийвчилсан VBA кодууд болон алхмуудыг сурахын тулд уншина уу.
Сонгосон имэйл дэх хавсралтын нийт тоог хурдан аваарай
- Эхлээд Outlook програмыг ажиллуулаад "Хөгжүүлэгч" таб руу очно уу.
- Дараа нь та "Visual Basic" товчийг дарж болно. Энэ нь таныг "Microsoft Visual Basic for Applications" цонх руу авчрах болно.
- Дараа нь та ашиглагдаагүй шинэ модулийг нээх хэрэгтэй. "Оруулах" > "Модуль" -г сонгоно уу.
- Үүний дараа та дараах VBA кодуудыг хуулж, буулгах хэрэгтэй.
Sub CountAttachmentsinSelectedEmails()
Dim olSel As Selection
Dim oMail As Object
Dim AttCount As Long
Dim strMsg As String
Set olSel = Outlook.Application.ActiveExplorer.Selection
For Each oMail In olSel
'To confirm if the selected items are all emails
If oMail.Class <> olMail Then
strMsg = "Please select mail items only!"
nRes = MsgBox(strMsg, vbOKOnly + vbExclamation)
Exit Sub
End If
'Get the total number of the attachments in selected emails
AttCount = oMail.Attachments.Count + AttCount
Next
strMsg = "There are " & AttCount & " attachments in the " & olSel.Count & " selected emails."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Attachments")
End Sub
- Үүний дараа та "Visual Basic" цонхноос гараад Outlook-ийн үндсэн цонх руу буцаж болно. Дараа нь та Түргэн нэвтрэх хэрэгслийн самбараас доош сумыг олоод дарж доош унадаг жагсаалтаас "Нэмэлт командууд" -ыг сонгоно уу.
- Дараа нь доорх зурагт үзүүлсэн алхмуудыг дагана уу.
- Эцэст нь та хичээгээд үзээрэй.
- Хэд хэдэн имэйлийг сонгосны дараа та Хурдан нэвтрэх хэрэгслийн самбар дээрх шинэ товчийг дарж болно. Дараа нь та сонгосон имэйл дэх хавсралтын тоог харуулсан мессежийг хүлээн авах болно. Энэ нь дараах зураг шиг харагдаж байна.
- Гэхдээ хэрэв та имэйлийн оронд уулзах хүсэлт эсвэл хариулттай ижил зүйлийг сонговол доорх зураг шиг анхааруулга авах болно.
Үе үе тохиолдох асуудалд хариу үйлдэл үзүүлэх
Хэрэв та Outlook-г хэдэн арван жилийн турш ашигласан бол Outlook-д хариу өгөхгүй байх, Outlook хөлдөх, алдааны мессеж байнга гарах зэрэг олон асуудалтай тулгарсан байх ёстой. Outlook PST имэйлийн эвдрэл гэх мэт. Та тэдгээрийг шийдвэрлэх ямар нэгэн заль мэхийг аль хэдийн эзэмшсэн үү? Ерөнхийдөө та Outlook-г аюулгүй горимоор эхлүүлж, шинэ Outlook профайл үүсгэж, оффисыг засварлаж, гуравдагч талын нэмэлтүүдийг идэвхгүй болгож болно. Үүнээс гадна, та ойролцоох хүчирхэг засварлах хэрэгслийг хадгалах хэрэгтэй, тухайлбал DataNumen Outlook Repair. Энэ нь нөөцлөлт болон ирсэн имэйлийг засах хэрэгсэл хоёулаа амжилтгүй болсон үед хэрэг болно.
Зохиогчийн танилцуулга:
Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. эвдэрсэн SQL өгөгдлийг засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com