Agar siz bir nechta tanlangan elektron xatlardagi barcha biriktirmalarni ommaviy ravishda chop etishni istasangiz, ushbu maqolada keltirilgan usuldan foydalanishingiz mumkin. Tez vaqt ichida erishish uchun VBA kodining bir qismidan foydalanmoqda.
Ko'rib turganingizdek, bitta qo'shimchani tanlaganingizda, "Qo'shimchalar" lentasida to'g'ridan-to'g'ri "Tez chop etish" funksiyasi mavjud. Biroq, bitta biriktirmani tanlaganingizda, “Tez chop etish” tugmasi o'chirib qo'yiladi, ko'plab tanlangan elektron xatlardagi barcha biriktirmalarni chop etish haqida gapirmasa ham bo'ladi. Shuning uchun, agar siz bir vaqtning o'zida bir nechta xatlardagi barcha biriktirmalarni ommaviy chop etishni xohlasangiz, uchinchi tomon vositalari yoki VBA kabi boshqa usullarni izlashingiz kerak. Ushbu ehtiyojga e'tibor qaratgan holda, biz sizga VBA kodining bir qismini taqdim etamiz, bu sizga bir marta bosish orqali uni olishga yordam beradi.
Bir nechta elektron pochtadagi barcha biriktirmalarni ommaviy chop etish
- Eng boshida Outlook ilovasini ishga tushiring.
- Keyin asosiy oynada VBA muharririga kirish uchun "Alt + F11" tugmachalarini bosing.
- Keyingi "Microsoft Visual Basic for Applications" oynasida bo'sh modulni oching.
- Keyin quyidagi VBA kodlarini shunday modulga ko'chiring.
Sub BatchPrintAllAttachmentsinMultipleEmails()
Dim objFileSystem As Object
Dim strTempFolder As String
Dim objSelection As Outlook.Selection
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim objAttachments As Outlook.attachments
Dim objAttachment As Outlook.Attachment
Dim objShell As Object
Dim objTempFolder As Object
Dim objTempFolderItem As Object
Dim strFilePath As String
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp for Attachments " & Format(Now, "YYYY-MM-DD_hh-mm-ss")
'Create a new temp folder
MkDir (strTempFolder)
Set objSelection = Outlook.Application.ActiveExplorer.Selection
For Each objItem In objSelection
If TypeOf objItem Is MailItem Then
Set objMail = objItem
Set objAttachments = objMail.attachments
'Save all the attachments in the temp folder
For Each objAttachment In objAttachments
strFilePath = strTempFolder & "\" & objAttachment.FileName
objAttachment.SaveAsFile (strFilePath)
'Print all the files in the temp folder
Set objShell = CreateObject("Shell.Application")
Set objTempFolder = objShell.NameSpace(0)
Set objTempFolderItem = objTempFolder.ParseName(strFilePath)
objTempFolderItem.InvokeVerbEx ("print")
Next objAttachment
End If
Next
End Sub
- Keyinchalik, tez kirish asboblar paneliga yangi makrosni qo'shishingiz mumkin.
- Shundan so'ng, siz Outlook makro xavfsizlik darajasini past darajaga o'rnatishingiz kerak.
- Oxir-oqibat, siz sinab ko'rishingiz mumkin.
- Birinchidan, pochta ro'yxatida siz qo'shimchalarini chop qilmoqchi bo'lgan bir nechta elektron pochta xabarlarini tanlang.
- Keyin Tez kirish asboblar panelidagi yangi makros tugmasini bosing.
- Keyin tanlangan elektron xatlardagi barcha qo'shimchalar chop etiladi.
Makroslarda yashiringan viruslardan ehtiyot bo'ling
Agar siz Outlook so'l xavfsizlik darajasini past darajaga sozlagan bo'lsangiz, zararli makrolarda potentsial viruslarni bloklash uchun ko'p harakat qilishingiz kerak bo'ladi. Buning sababi, viruslar sizning Outlook ma'lumotlaringizni bir vaqtning o'zida yo'q qilishi mumkin. Outlook ma'lumotlaringiz buzilgan bo'lsa, siz qo'lingizdan kelganicha harakat qilasiz Outlook-ni tiklash kabi kuchli vositaga takrorlash kabi barcha vositalar bilan ma'lumotlar DataNumen Outlook Repair.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan sql va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com