2 rychlé způsoby kopírování všech obrázků z listu aplikace Excel do e-mailu aplikace Outlook

Někdy možná budete muset zkopírovat všechny vložené obrázky v listu aplikace Excel do e-mailu aplikace Outlook. V tuto chvíli si můžete přečíst tento článek. Zde vám představíme 2 rychlé metody.

Je snadné zkopírovat obrázek z listu aplikace Excel do e-mailu aplikace Outlook. Jednoduše vyberte a stiskněte „Ctrl + C“ a zkopírujte tento obrázek. Přesto, pokud je třeba kopírovat mnoho obrázků, je kopírování jeden po druhém nepochybně hloupým a zdlouhavým způsobem. Proto vám zde představíme 2 mnohem efektivnější způsoby. Nyní si je přečtěte podrobně.

Metoda 1: Ruční výběr a kopírování všech obrázků v listu aplikace Excel

1. Pro začátek otevřete konkrétní list aplikace Excel.
2. Poté stiskněte tlačítko „F5“.
3. V rozbalovacím dialogovém okně „Přejít na“ klikněte na tlačítko „Speciální“.
4. Dále v novém dialogovém okně „Přejít na speciální“ vyberte „Objekty“ a klikněte na „OK“.
5. Najednou byly vybrány všechny vložené obrázky.
6. Nyní stiskněte „Ctrl + C“ a zkopírujte všechny vybrané obrázky.
7. Poté spusťte aplikaci Outlook a vytvořte nový e-mail.
8. Později vložte kurzor do těla zprávy a stiskněte „Ctrl + V“.
9. Okamžitě budou všechny zkopírované obrázky vloženy do těla e-mailu, jako na následujícím obrázku.

Metoda 2: Zkopírujte všechny obrázky z listu do e-mailu pomocí VBA

1. Pro začátek v Excelu stiskněte klávesy „Alt + F11“ pro spuštění editoru VBA v Excelu.
2. Poté vložte kód VBA níže do modulu nebo projektu.

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

3. Dále stiskněte klávesu „F5“ v aktuálním makru.
4. Najednou se zobrazí nový e-mail.
5. Zde můžete obdržet varování, ve kterém byste měli kliknout na „Povolit“.
6. Nakonec budou všechny obrázky v konkrétním listu aplikace Excel v těle e-mailu, jak je znázorněno na následujícím snímku obrazovky.

Dávejte pozor na všechna rizika v okolí Outlooku

Outlook je náchylný k poškození v tom, že je kolem něj příliš mnoho hrozeb, jako je virus, selhání systému, chyby hardwaru a problémy s napájením atd. Proto je nutné, abyste si dávali pozor na všechny tyto nebezpečné faktory. Nejprve byste nikdy neměli snadno důvěřovat e-mailům od neznámých odesílatelů. Kromě toho byste měli pravidelně zálohovat soubor aplikace Outlook. V neposlední řadě, aby opravit PST soubor v čase, měli byste připravit špičkový nástroj pro opravu, jako DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozený sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com