Як пакетно змінити розмір усіх зображень у вашій електронній пошті Outlook

Outlook не буде автоматично встановлювати вставлені картинки із текстами в тілі електронної пошти. Таким чином, якщо ви вважаєте, що деякі вбудовані картинки занадто великі або маленькі, ви можете побажати їх змінити. Ця стаття навчить вас методу їх великого розміру.

У програмі Outlook, коли ви вставляєте зображення в тіло електронного листа, якщо воно занадто велике, вам доведеться його масштабувати, доки воно не відповідатиме тілу. За цієї обставини, якщо в цьому електронному листі є кілька зображень, змінити розмір по одному вручну, безумовно, не є гарною ідеєю. Тепер, далі, ми поділимося з вами набагато швидшим методом, за допомогою якого можна пакетно змінювати розмір усіх зображень в електронній пошті Outlook.

Пакетна зміна розміру всіх зображень в електронному листі

1. На самому початку вам потрібно запустити програму Outlook.
2. Потім у головному вікні програми Outlook слід натиснути кнопки “Alt + F11”.
3. Одразу ви увійдете у вікно “Microsoft Visual Basic for Applications”.
4. Тепер вам потрібно отримати доступ до модуля, який не використовується, або просто вставити новий.
5. Далі слід скопіювати та вставити наступний код VBA в цей модуль.

Sub BatchResizeAllPicturesInEmail()
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim nPercentSize As Integer
    Dim objInlineShape As Word.InlineShape
    Dim objShape As Word.Shape
 
    'Get the source email
    Select Case Application.ActiveWindow.Class
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
                objMail.Display
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
    End Select
 
    Set objMailDocument = objMail.GetInspector.WordEditor
 
    'Enter the percent whcih you want to resize picture to
    nPercentSize = InputBox("Specify the percent of full size", "Resize Picture", 50)
 
    'Resize all the pictures in this email
    For Each objInlineShape In objMailDocument.InlineShapes
        objInlineShape.ScaleHeight = nPercentSize
        objInlineShape.ScaleWidth = nPercentSize
    Next

    For Each objShape In objMailDocument.Shapes
        objShape.ScaleHeight PercentSize / 100, msoCTrue
        objShape.ScaleWidth PercentSize / 100, msoCTrue
    Next
End Sub

6. Пізніше ви можете натиснути піктограму «X» у верхньому правому куті, щоб вийти з цього вікна.
7. Згодом вам краще додати цей новий проект VBA на панель швидкого доступу у вікні повідомлень для подальшої зручності. Ви можете досягти цього в "Параметри Outlook".
8. Зрештою, ви можете зробити постріл:

• По-перше, створіть і складіть електронне повідомлення, як зазвичай.
• Потім вставте кілька фотографій у цей електронний лист.
• Далі натисніть кнопку макросу на панелі швидкого доступу.
• Одразу потрібно буде ввести відсоток від повного розміру, до якого потрібно змінити розмір малюнків.
• Після натискання кнопки «ОК» розмір усіх зображень буде змінено.

Взяти в руки кваліфікований інструмент ремонту

Оскільки Outlook схильний до корупції, розумно зберігати надійний та потужний інструмент зовнішнього ремонту, наприклад DataNumen Outlook Repair. Зазвичай, як тільки зустрічаються з пошкодженнями Outlook, спочатку можна повернутися до інструмент для ремонту вхідних -. Але якщо це теж не вдасться, утиліта зовнішнього виправлення стане в нагоді і зможе вчасно врятувати ваші дані.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновити sql та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com