Олон Outlook хуанлиг нэг хуудсанд нэгтгэх, хэвлэх 2 хурдан арга

Магадгүй таны Outlook-д олон хуанли байгаа бөгөөд тус бүр нь маш олон зүйлийг агуулна. Хэрэв та эдгээр хуанлиг бүгдийг нэг хуудсан дээр хэвлэхийг хүсвэл энэ нийтлэлийг уншиж 2 хялбар аргыг сурах боломжтой.

Outlook нь давхардсан горимд хэд хэдэн хуанли үзэх боломжийг олгодог бөгөөд ингэснээр та хэд хэдэн хуанлийн бүх зүйлийг нэг хуудсанд харах боломжтой болно. Гэсэн хэдий ч та энэ харагдац дээр хэд хэдэн хуанли хэвлэх боломжгүй. Энэ асуудлыг авч үзэхэд бид танд нэг хуудсанд олон календарь хэвлэх боломжийг олгодог 2 аргыг танилцуулах болно.

Арга 1: Давхардсан хуанлийн дэлгэцийн агшинг хэвлэх

1. Эхлээд "Ctrl + 2" товчлуурын хослолыг ашиглан Хуанлийн цэс рүү орно уу.
2. Дараа нь навигацийн самбараас хэвлэхийг хүссэн хуанлигаа шалгана уу.
3. Дараа нь хуанлийн толгой дээрх зүүн сумнууд дээр дарж тэдгээрийг давхарлана.
4. Одоо та хуанлийн бүх зүйлийг дараах зураг шиг ижил харагдацаар харуулсан болохыг харж болно.
5. Дараа нь "Нүүр хуудас" таб дээрх "Шинэ зүйлс"> "И-мэйл мессеж" дээр дарна уу.
6. Мессежийн шинэ цонхонд курсорыг үндсэн хэсэгт оруулна уу.
7. Дараа нь "Оруулах" таб руу шилжиж, "Дэлгэцийн зураг" дээр дарна уу.
8. Дараа нь "Боломжтой Windows" дотроос эхний сонголтыг сонгоно уу.
9. Үүний дараа давхардсан календарьуудыг их биед оруулав.
10. Эцэст нь энэ имэйлийг хэвлэхийн тулд "Файл" > "Хэвлэх" > "Хэвлэх" дээр дарна уу.

Арга 2: Нэгтгэсэн хуанлиг VBA-ээр нэг хуудсанд хэвлэх

1. Эхлээд "Alt + F11" товчийг дарж Outlook VBA засварлагч руу нэвтэрнэ үү.
2. Дараа нь дараахь кодыг модульд оруулна уу.

Dim objTempCalendar As Outlook.Folder

Sub CombineMultipleCalendars()
    Dim lCalendarCount As Long
    Dim i As Long
 
    On Error Resume Next
    Set objTempCalendar = Application.Session.GetDefaultFolder(olFolderCalendar).Folders("Temp")
    If objTempCalendar Is Nothing Then
       Set objTempCalendar = Application.Session.GetDefaultFolder(olFolderCalendar).Folders.Add("Temp")
    End If

    lCalendarCount = InputBox("How many calendars you want to print?", , "3")
 
    i = 1
    While i <= lCalendarCount
          Call CopyCalendarItems
          i = i + 1
    Wend
End Sub

Sub CopyCalendarItems()
    Dim objSourceCalendar As Outlook.Folder
    Dim objCalendarItem As Outlook.AppointmentItem
    Dim objCopiedItem As Outlook.AppointmentItem
    Dim objMoviedItem As Outlook.AppointmentItem
 
    Set objSourceCalendar = Outlook.Application.Session.PickFolder
 
    If Not (objSourceCalendar Is Nothing) Then
       If objSourceCalendar.DefaultItemType = olAppointmentItem Then
          For Each objCalendarItem In objSourceCalendar.Items
              Set objCopiedItem = objCalendarItem.Copy
              Set objMoviedItem = objCopiedItem.Move(objTempCalendar)
              objMoviedItem.Save
          Next
       End If
    End If
End Sub

3. Дараа нь "CombineMultipleCalendars" дэд програмын "F5" товчийг дарж макро ажиллуулна уу.
4. Үүний дараа нэгэн зэрэг хэвлэхийг хүссэн хуанлиныхаа тоог оруулна уу.
5. Дараа нь таны оруулсан дугаарын дагуу гарч ирэх харилцах цонхонд тодорхой тооны хуанли сонгох шаардлагатай болно.
6. Макро хийж дууссаны дараа та Хуанлийн навигацийн хэсэг рүү буцаж очиж болно.
7. Одоо та тэндээс сонгосон хуанлийн бүх зүйлийг агуулсан шинэ "Темп" календарийг харах болно.
8. Эцсийн эцэст та энэ хуанлигаа ердийнхөөрөө хэвлэж болно.

Outlook-ийн асуудлыг хурдан засах

Та Outlook-тэй холбоотой асуудалтай тулгарч байсан уу? Тэгвэл та юу хийх вэ? Ерөнхийдөө, эхний ээлжинд ихэнх хэрэглэгчид Scanpst хэмээх суурилуулсан засварлах хэрэгсэлд хандах болно. Гэсэн хэдий ч үнэн хэрэгтээ энэ нь PST-ийн эвдрэл гэх мэт ноцтой асуудлуудыг засаж чадахгүй. Ер нь, энэ үед та илүү туршлагатай гадаад хэрэгслийн тусламж авах хэрэгтэй болдог, жишээлбэл DataNumen Outlook RepairБайна. Ингэж чаддаг Outlook засах хормын дотор асуудал.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com