2 ātrie veidi, kā kopēt visus attēlus no Excel darblapas uz Outlook e-pastu

Dažreiz jums var būt nepieciešams kopēt visus iegultos attēlus Excel darblapā uz Outlook e-pastu. Pašlaik jūs varat izlasīt šo rakstu. Šeit mēs iepazīstināsim jūs ar 2 ātrām metodēm.

Attēlu no Excel darblapas ir viegli kopēt uz Outlook e-pastu. Jūs varat vienkārši atlasīt un nospiest “Ctrl + C”, lai kopētu šo attēlu. Tomēr, ja ir jākopē daudz attēlu, kopēšana pa vienam neapšaubāmi ir stulbs un garlaicīgs veids. Tādējādi šeit mēs jūs iepazīstināsim ar 2 daudz efektīvākiem veidiem. Tagad lasiet tālāk, lai tos iegūtu detalizēti.

1. metode: atlasiet un kopējiet visus attēlus Excel darblapā manuāli

1. Lai sāktu, atveriet konkrēto Excel darblapu.
2. Pēc tam nospiediet taustiņa “F5” taustiņu.
3. Uznirstošajā dialoglodziņā “Iet uz” noklikšķiniet uz pogas “Īpašais”.
4. Pēc tam jaunajā dialoglodziņā “Iet uz īpašo” atlasiet “Objekti” un noklikšķiniet uz “Labi”.
5. Vienlaikus ir atlasīti visi iegultie attēli.
6. Tagad nospiediet “Ctrl + C”, lai kopētu visus atlasītos attēlus.
7. Pēc tam palaidiet programmu Outlook un izveidojiet jaunu e-pastu.
8. Vēlāk ievietojiet kursoru ziņojuma pamattekstā un nospiediet “Ctrl + V”.
9. Nekavējoties visi kopētie attēli tiks ielīmēti e-pasta pamattekstā, piemēram, šāds attēls.

2. metode: kopējiet visus attēlus no darblapas uz e-pastu, izmantojot VBA

1. Lai sāktu, programmā Excel nospiediet taustiņu kombināciju “Alt + F11”, lai aktivizētu Excel VBA redaktoru.
2. Pēc tam ievietojiet VBA kodu zemāk modulī vai projektā.

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. Pēc tam pašreizējā makro nospiediet taustiņu “F5”.
4. Uzreiz tiks parādīts jauns e-pasts.
5. Šeit jūs varat saņemt brīdinājumu, kurā jums jānoklikšķina uz “Atļaut”.
6. Galu galā visi attēli konkrētajā Excel darblapā būs e-pasta pamattekstā, kā parādīts nākamajā ekrānuzņēmumā.

Pievērsiet uzmanību visiem riskiem ap Outlook

Outlook ir uzņēmīga pret korupciju, jo ap to ir pārāk daudz draudu, piemēram, vīruss, sistēmas kļūme, aparatūras kļūmes un strāvas problēmas utt. Tādēļ jums ir jāuzmanās no visiem šiem bīstamajiem faktoriem. Pirmkārt, jums nekad nevajadzētu viegli uzticēties nezināmu sūtītāju e-pastiem. Turklāt labāk turpiniet periodiski dublēt savu Outlook failu. Visbeidzot, bet ne mazāk svarīgi, lai to izdarītu noteikt PST failu savlaicīgi, jums vajadzētu sagatavot modernāko labošanas rīku, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp korumpēts sql un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar