Кейде сізге бірнеше электрондық пошта тіркемелерінің тізімдерін шығарып, басып шығару қажет болады. Бұл мақалада біз сізге оны алудың 2 әдісін үйретеміз.
Егер сізге сілтемелер үшін бірнеше тіркемелері бар бірнеше электрондық хаттар келсе, онда сіз осы тіркеме аттарын басып шығарғыңыз келуі мүмкін. Мұндай жағдайда оны қалай жаппай алуға болады? Бұдан кейін біз сізге бірнеше тізімнің Outlook электрондық пошта хабарламаларының тізімдерін жылдам басып шығарудың екі әдісін үйретеміз.
1-әдіс: Тіркеме тізімін бай мәтін форматында басып шығару және көшіру
- Ең басында Outlook электрондық поштасын ашыңыз.
- Содан кейін, Хабар терезесінде «Әрекеттер» түймесін басып, «Хабарламаны өңдеу» тармағын таңдаңыз.
- Содан кейін «Мәтінді пішімдеу» қойындысына өтіңіз, оның үстінен «Бай мәтін» пішімін таңдаңыз.
- Бірден, сіз электрондық пошта тіркемелері денеге жылжытылғанын көре аласыз.
- Осыдан кейін «Хабарлама» қойындысындағы «Жауап беру» тобындағы «Жауап беру» батырмасын басыңыз.
- Келесі поштада тіркемелер тізімі төмендегі скриншот сияқты негізгі бөлімде болған.
- Енді сіз тіркемелер тізімін жаңа электрондық поштаға көшіре аласыз.
- Кейінірек, осы әдісті жаңа электрондық поштаға басқа электрондық хаттардың тіркеме тізімдерін көшіру үшін қолданыңыз.
- Соңында, сіз бұл жаңа поштаны әдеттегідей басып шығара аласыз.
2-әдіс: Қосымша тізімдерін Outlook VBA арқылы басып шығару
- Алдымен Outlook VBA редакторын ашу үшін «Alt + F11» пернелер тіркесімін басыңыз.
- Содан кейін келесі VBA кодын модульге көшіріңіз.
Sub PrintAttachmentListsOfManyEmails()
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim objAttachment As Outlook.Attachment
Dim objTempMail As Outlook.MailItem
'Get the selected emails
Set objSelection = Outlook.Application.ActiveExplorer.Selection
If Not (objSelection Is Nothing) Then
'Input the attachment lists into a temp mail
Set objTempMail = Outlook.Application.CreateItem(olMailItem)
For i = 1 To objSelection.Count
If objSelection(i).Class = olMail Then
Set objMail = objSelection(i)
If objMail.Attachments.Count > 0 Then
objTempMail.Body = objTempMail.Body & vbCr & "-------------------------------------------------------------------------------------------------------------" & vbCr & vbCr & i & ". " & objMail.Subject & vbCr & vbCr & "Attachment List:" & vbCr
For n = 1 To objMail.Attachments.Count
Set objAttachment = objMail.Attachments(n)
objTempMail.Body = objTempMail.Body & vbCr & "<<" & objAttachment.FileName & " Size: " & Round(objAttachment.Size / 1024, 1) & " KB>>"
Next
End If
End If
Next
'Print the temp mail
objTempMail.PrintOut
End If
End Sub
- Осыдан кейін, бұл макросты жылдам қол жеткізу құралдар тақтасына мақалаға сілтеме жасай отырып қосыңыз - «Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.
- Ақыр соңында, осы макросты көріңіз.
- Алдымен бірнеше электрондық поштаны таңдаңыз.
- Содан кейін жылдам қол жеткізу құралдар тақтасындағы макро батырманы басыңыз.
- Бірден осы электрондық хаттардың тіркеме тізімдері басылып шыққан болуы керек.
Outlook бағдарламасын жөндеу құралына барыңыз
Outlook файлының зақымдалуына тап болған кезде, қолыңызда жақында Outlook деректерінің сақтық көшірмесі болғандығы туралы ең жақсы жаңалық болуы керек. Бұл сізге күрделі Outlook файлын жөндеуден арылуға мүмкіндік береді. Бірақ, кейде сақтық көшірмені қалпына келтіру мүмкін емес. Сол кезде сізге жұлдызды және кәсіби түзету құралына жүгіну қажет болады DataNumen Outlook Repair. Ол жөндей алады сыбайлас PST бірнеше минут ішінде
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf жөндеу және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com





