2 Барлық кестелердің көлемін өзгерту үшін Outlook электрондық поштаңыздағы мазмұнға немесе терезеге сәйкес келеді

Хабарлар денесінде көптеген кестелер бар электрондық пошта хабарын құрған кезде, егер сіз барлық кестелердің мазмұнын немесе ағымдағы терезеге сай етіп өлшемін өзгерткіңіз келсе, осы мақалада бөлісілген әдістерді пайдалана аласыз.

Электрондық пошта мазмұнын туралау және ретке келтіру үшін электрондық поштада бірнеше кесте жасағаннан кейін, сіз барлық кестелердің мазмұнын немесе ағымдағы хабарлама терезесін сыйғызатын етіп өзгертесіз деп үміттене аласыз. Бұл жағдайда, егер тек екі-үш кесте болса, онда олардың өлшемін өзгерту үшін келесі «1-әдіске» кіріктірілген «АвтоФит» кестесінің мүмкіндігін пайдалануға болады. Бірақ, егер бірнеше кесте болса, сіз VBA кодын қолданып, «Пакеттік өлшемді өзгертуді» жеңілдететін 2-әдісті қолданған жөн.

1-әдіс: «AutoFit» мүмкіндігі арқылы кестелердің өлшемдерін бір-бірлеп өзгерту

1. Біріншіден, ашық электрондық поштада курсорды кестенің үстіне қойыңыз.
2. Содан кейін оны таңдау үшін кестенің жоғарғы сол жақ бұрышындағы крест белгішесін басыңыз.
3. Әрі қарай, «Кесте құралдары» таспасындағы «Макет» қойындысына кіріңіз.
4. Мұнда «АвтоФит» опциясын тауып таңдаңыз.
5. Енді сіздің қажеттіліктеріңізге сәйкес «АвтоФит Мазмұны» немесе «АвтоФит Терезесі» таңдаңыз. Келесі скриншотта мысалдың нәтижесі көрсетілген - “АвтоФит терезесі”.
6. Таңдалған кесте бірден терезеге сәйкес келеді.
7. Осыдан кейін сіз басқа кестелердің өлшемін өзгерту үшін осы әдісті қолдана аласыз.

2-әдіс: Outlook VBA көмегімен пакеттік өлшемді өзгерту

1. Басында электрондық поштаны ашық қалдырыңыз.
2. Кейін Outlook VBA редакторын «Alt + F11» арқылы іске қосыңыз.
3. Одан кейін келесі VBA кодын модульге немесе жобаға салыңыз.

Sub ResizeAllTables_FitContentsOrWindow()
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objTables As Word.Tables
    Dim i As Integer
    Dim objTable As Word.Table
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
    Set objMailDocument = objMail.GetInspector.WordEditor
    Set objTables = objMailDocument.Tables
 
    If objTables.Count > 0 Then
       For i = 1 To objTables.Count
           Set objTable = objTables.Item(i)
 
           'Fit the window
           objTable.AutoFitBehavior wdAutoFitWindow
 
           'Fit the contents, use the following line instead
           'objTable.AutoFitBehavior wdAutoFitContent
       Next
    End If
End Sub

4. Осы макросты іске қосу үшін «F5» батырмасын тікелей басыңыз.
5. Макрос аяқталғаннан кейін электрондық поштаға оралыңыз. Барлық кестелердің өлшемдері хабарлама терезесіне автоматты түрде ену үшін өзгертілгенін көресіз.

Outlook ақауларын ептілікпен өңдеңіз

Outlook бағдарламасында пайдаланушылар әртүрлі мәселелерге тап болуы мүмкін екені белгілі, мысалы, жиі кездесетін қате туралы хабарламалар, кенеттен тұрып қалу және кенеттен автоматты түрде қайта іске қосу, деректер файлының апатты түрде бұзылуы және т.б. Тиісті шешімдер мәселелердің түріне байланысты өзгеруі мүмкін. Мысалы, ұсақ қателерді түзету үшін сіз жай ғана кіріс жәшігін қалпына келтіру құралын пайдалана аласыз. Бірақ, PST файлдарымен проблемалар сияқты күрделі мәселелер туындаған жағдайда, сіз сенімді және жақсы дәлелденген сыртқы қалпына келтіру құралына жүгінуіңіз керек, мысалы DataNumen Outlook Repair дейін PST түзету файл.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. sql түзету және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com