2 hitra načina za kopiranje vseh slik iz Excelovega delovnega lista v Outlookovo e-pošto

Včasih boste morda morali kopirati vse vdelane slike v Excelovem delovnem listu v Outlookovo e-pošto. V tem času lahko preberete ta članek. Tukaj vam bomo predstavili 2 hitri metodi.

Preprosto je kopirati sliko iz Excelovega delovnega lista v Outlookovo e-pošto. Lahko preprosto izberete in pritisnete »Ctrl + C«, da kopirate to sliko. Če pa je treba kopirati veliko slik, je kopiranje ene za drugo nedvomno neumen in dolgočasen način. Zato vam bomo tukaj predstavili 2 veliko bolj učinkovita načina. Zdaj preberite, če jih želite podrobneje spoznati.

1. način: Ročno izberite in kopirajte vse slike v Excelov delovni list

1. Za začetek odprite določen Excelov delovni list.
2. Nato pritisnite tipko "F5".
3. V pojavnem pogovornem oknu »Pojdi na« kliknite gumb »Posebno«.
4. Nato v novem pogovornem oknu »Pojdi na posebno« izberite »Predmeti« in kliknite »V redu«.
5. Naenkrat so bile izbrane vse vdelane slike.
6. Zdaj pritisnite »Ctrl + C«, da kopirate vse izbrane slike.
7. Po tem zaženite Outlook in ustvarite novo e-pošto.
8. Kasneje postavite kazalec v telo sporočila in pritisnite »Ctrl + V«.
9. Vse kopirane slike bodo takoj prilepljene v telo e-poštnega sporočila, kot je prikazano na naslednji sliki.

2. način: Kopirajte vse slike iz delovnega lista v e-pošto z VBA

1. Za začetek v Excelu pritisnite »Alt + F11«, da zaženete urejevalnik VBA v Excelu.
2. Nato vstavite spodnjo kodo VBA v modul ali 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. Nato v trenutnem makru pritisnite tipko “F5”.
4. Takoj bo prikazano novo e-poštno sporočilo.
5. Tukaj lahko prejmete opozorilo, v katerem morate klikniti »Dovoli«.
6. Sčasoma bodo vse slike v določenem Excelovem delovnem listu v telesu e-pošte, kot je prikazano na naslednjem posnetku zaslona.

Bodite pozorni na vsa tveganja okoli Outlooka

Outlook je dovzeten za korupcijo, saj je okoli njega preveč groženj, kot so virusi, napake sistema, napake strojne opreme in težave z napajanjem itd. Zato morate biti pozorni na vse te nevarne dejavnike. Prvič, nikoli ne zaupajte e-poštnim sporočilom neznanih pošiljateljev. Poleg tega je bolje, da redno varnostno kopirate Outlookovo datoteko. Nenazadnje, da bi popraviti PST datoteko pravočasno, bi morali pripraviti vrhunsko orodje za popravilo, npr DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z pokvarjen sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com