Иногда вам может потребоваться скопировать все встроенные изображения на листе Excel в электронное письмо Outlook. В это время вы можете прочитать эту статью. Здесь мы представим вам 2 быстрых метода.
Изображение с листа Excel легко скопировать в электронное письмо Outlook. Вы можете просто выделить и нажать «Ctrl + C», чтобы скопировать это изображение. Тем не менее, если копируемых изображений много, копирование по одному, несомненно, является глупым и утомительным способом. Следовательно, здесь мы представим вам 2 гораздо более эффективных способа. Теперь читайте дальше, чтобы получить их в деталях.
Способ 1: выбрать и скопировать все изображения на листе Excel вручную
- Для начала откройте нужный лист Excel.
- Затем нажмите кнопку «F5».
- Во всплывающем диалоговом окне «Перейти» нажмите кнопку «Специальная».
- Далее в новом диалоговом окне «Перейти к специальному» выберите «Объекты» и нажмите «ОК».
- Сразу все встроенные изображения были выбраны.
- Теперь нажмите «Ctrl + C», чтобы скопировать все выделенные изображения.
- После этого запустите Outlook и создайте новое электронное письмо.
- Позже поместите курсор в тело сообщения и нажмите «Ctrl + V».
- Сразу же все скопированные изображения будут вставлены в тело письма, как показано на следующем рисунке.
Способ 2: скопировать все изображения с рабочего листа в электронную почту с помощью VBA
- Для начала в Excel нажмите «Alt + F11», чтобы открыть редактор VBA.
- Затем поместите приведенный ниже код VBA в модуль или проект.
Sub CopyImagesToMail()
Dim objWorksheet As Excel.Worksheet
Dim objOutlookApp As Object
Dim objMail As Object
Dim objMailDocument As Object
Dim objShape As Excel.Shape
'Get the specific worksheet
Set objWorksheet = ThisWorkbook.Worksheets(1)
'Create a new email
Set objOutlookApp = CreateObject("Outlook.application")
Set objMail = objOutlookApp.CreateItem(objOutlookAppobjMailItem)
objMail.Display
Set objMailDocument = objMail.GetInspector.WordEditor
'Copy images to the email
For Each objShape In objWorksheet.Shapes
objShape.Copy
objMailDocument.Range(0, 0).Paste
Next
End Sub
- Далее нажмите клавишу «F5» в текущем макросе.
- Сразу же появится новое электронное письмо.
- Здесь может появиться предупреждение, в котором следует нажать «Разрешить».
- В конце концов, все изображения на конкретном листе Excel будут в теле письма, как показано на следующем снимке экрана.
Следите за всеми рисками, связанными с Outlook
Outlook подвержен повреждению из-за того, что вокруг него слишком много угроз, таких как вирусы, системные сбои, сбои оборудования, проблемы с питанием и т. д. Следовательно, вам необходимо следить за всеми этими опасными факторами. Прежде всего, вы никогда не должны с готовностью доверять электронным письмам от неизвестных отправителей. Кроме того, вам лучше периодически создавать резервные копии файла Outlook. И последнее, но не менее важное: для того, чтобы исправить PST файл вовремя, вы должны подготовить передовой инструмент для ремонта, как DataNumen Outlook Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com