2 gyors módszer az összes kép másolására egy Excel-munkalapról egy Outlook e-mailbe

Néha előfordulhat, hogy egy Excel-munkalapon lévő összes beágyazott képet át kell másolnia egy Outlook e-mailbe. Jelenleg ezt a cikket olvashatja. Itt 2 gyors módszert mutatunk be.

Egyszerűen másolhat képet egy Excel-munkalapról egy Outlook e-mailbe. A kép másolásához egyszerűen válassza ki és nyomja meg a „Ctrl + C” gombot. Mégis, ha sok képet kell másolni, az egyenkénti másolás kétségtelenül ostoba és unalmas módszer. Ezért itt 2 sokkal hatékonyabb módszert mutatunk be. Most olvassa el, hogy részletesen megismerje őket.

1. módszer: Válassza ki és másolja ki az összes képet manuálisan az Excel munkalapon

1. Kezdésként nyissa meg az adott Excel-munkalapot.
2. Ezután nyomja meg az „F5” gombot.
3. A felugró „Ugrás” párbeszédpanelen kattintson a „Speciális” gombra.
4. Ezután az új „Go to Special” párbeszédpanelen válassza az „Objektumok” lehetőséget, és kattintson az „OK” gombra.
5. Egyszerre az összes beágyazott kép ki lett jelölve.
6. Most nyomja meg a „Ctrl + C” gombot az összes kiválasztott kép másolásához.
7. Ezután indítsa el az Outlookot, és hozzon létre egy új e-mailt.
8. Később vigye a kurzort az üzenet törzsébe, és nyomja meg a „Ctrl + V” billentyűket.
9. Azonnal az összes kimásolt képet beilleszti az e-mail törzsébe, az alábbi ábra szerint.

2. módszer: Másolja át az összes képet a munkalapról e-mailbe VBA segítségével

1. Kezdésként az Excelben nyomja meg az „Alt + F11” billentyűkombinációt az Excel VBA szerkesztőjének elindításához.
2. Ezután helyezze be az alábbi VBA-kódot egy modulba vagy projektbe.

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. Ezután nyomja meg az „F5” billentyűt az aktuális makróban.
4. Egyszerre egy új e-mail jelenik meg.
5. Itt figyelmeztetést kaphat, amelyben kattintson az „Engedélyezés” gombra.
6. Végül az adott Excel munkalapon lévő összes kép az e-mail törzsében lesz, amint az a következő képernyőképen látható.

Ügyeljen az Outlook körüli összes kockázatra

Az Outlook érzékeny a korrupcióra, mivel túl sok fenyegetés van körülötte, például vírusok, rendszerhiba, hardverhibák, tápellátási problémák stb. Ezért fontos, hogy figyeljen mindezekre a veszélyes tényezőkre. Először is, soha ne bízzon könnyen az ismeretlen feladóktól származó e-mailekben. Emellett jobb, ha rendszeresen készít biztonsági másolatot az Outlook fájljáról. Végül, de nem utolsósorban annak érdekében javítsd ki a PST-t idejében fájlt kell készítenie, elő kell készítenie egy élvonalbeli javítóeszközt, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve korrupt sql és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com