場合によっては、Excelワークシートに埋め込まれているすべての画像をOutlookの電子メールにコピーする必要があります。 現時点では、この記事を読むことができます。 ここでは、2つの簡単な方法を紹介します。
ExcelワークシートからOutlookの電子メールに画像をコピーするのは簡単です。 「Ctrl + C」を選択して押すだけで、この画像をコピーできます。 それでも、コピーする画像がたくさんある場合、2つずつコピーするのは間違いなく愚かで退屈な方法です。 したがって、ここでは、XNUMXつのはるかに効果的な方法を紹介します。 それらを詳細に理解するために読んでください。
方法1：Excelワークシートのすべての画像を手動で選択してコピーする
- まず、該当するExcelワークシートを開いてください。
- 次に、「F5」キーボタンを押します。
- ポップアップの[移動]ダイアログボックスで、[特別]ボタンをクリックします。
- 次に、新しい[特別に移動]ダイアログボックスで、[オブジェクト]を選択し、[OK]をクリックします。
- 一度に、すべての埋め込み画像が選択されました。
- 次に、「Ctrl + C」を押して、選択したすべての画像をコピーします。
- その後、Outlookを起動し、新しい電子メールを作成します。
- 後で、メッセージ本文にカーソルを置き、「Ctrl + V」を押します。
- すぐに、次の図のように、コピーされたすべての画像が電子メールの本文に貼り付けられます。
方法2：すべての画像をワークシートからVBAを使用して電子メールにコピーする
- まず、Excelで「Alt + F11」を押してExcel 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.
著者紹介：
Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 破損したSQL と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com