2 brza načina za umetanje snimke zaslona Excel radnog lista u tijelo Outlook e-pošte

Ponekad, umjesto kopiranja Excel radnog lista u tijelo e-pošte, možda ćete htjeti umetnuti snimku zaslona radnog lista. Stoga će ovaj članak pokazati 2 metode kako ga dobiti.

Mnogi korisnici željeli bi izvesti snimku zaslona određenog Excel radnog lista, a zatim umetnuti snimku zaslona u tijelo poruke e-pošte programa Outlook. Samo na snimci zaslona vrijednosti ćelija ne mogu se mijenjati. A screenshot se može vidjeti čak i ako primatelji nemaju instaliran MS Excel na svojim računalima.

Ovo se može ostvariti na 2 načina. Prvi je putem ugrađene značajke – “Umetni” > “Snimka zaslona”, koja je detaljno predstavljena u sljedećoj metodi 1. A druga koristi malo skriptiranja, kao što je prikazano u metodi 2. Sada pročitajte na dobiti ih u detalje.

Metoda 1: Umetanje snimke zaslona Excel prozora

1. Najprije otvorite Excel radni list koji želite umetnuti u e-poštu.
2. Zatim pokrenite Outlook i izradite novu e-poštu.
3. Zatim se u prozoru s porukom prebacite na karticu "Umetni".
4. Nakon toga kliknite gumb "Snimka zaslona".
5. Na popisu "Dostupni Windows" odaberite snimku zaslona Excel radnog lista.
6. Odjednom će biti umetnuta snimka zaslona Excel radnog lista.
7. Sada možete izrezati snimku zaslona po želji.

Metoda 2: Kopirajte snimku zaslona Excel radnog lista s VBA

1. Na samom početku otvorite Excel datoteku.
2. Zatim pritisnite “Alt + F11” da pokrenete Excel VBA editor.
3. Zatim dodajte referencu na „MS Outlook Object Library“ i „MS Word Object Library“ prema „Kako dodati referencu biblioteke objekata u VBA".
4. Nakon toga kopirajte sljedeći VBA kod u projekt ili modul.

Sub ExportInsert_ScreenshotOfSheet_Mail()
    Dim objSheet As Excel.Worksheet
    Dim objUsedRange As Excel.Range
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.document
 
    'Change "Sheets(1)" to the specific worksheet number
    Set objSheet = ActiveWorkbook.Sheets(1)
    Set objUsedRange = objSheet.UsedRange
    'Copy the screenshot of the sheet
    objUsedRange.CopyPicture xlScreen, xlPicture

    Set objOutlookApp = CreateObject("Outlook.Application")
    Set objMail = objOutlookApp.CreateItem(olMailItem)
    objMail.Display
    Set objMailDocument = objMail.GetInspector.WordEditor
    'Paste the copied screenshot
    objMailDocument.Range(0, 0).Paste
End Sub

5. Kasnije pritisnite “F5” za pokretanje ove makronaredbe.
6. Odmah će se prikazati nova poruka e-pošte.
7. U malom dijaloškom okviru kliknite gumb "Dopusti".
8. Na kraju, snimka zaslona Excel radnog lista bit će umetnuta u tijelo pošte.

Prilikom suočavanja s oštećenjem Outlook datoteke

Ako slučajno preuzmete bilo koji privitak zaražen virusom, vrlo je vjerojatno da će vaša Outlook datoteka biti napadnuta i time ugrožena. U takvoj situaciji prvo morate pokrenuti antivirusni softver da biste ubili viruse. Nakon toga morate uložiti u robustan uslužni program treće strane za popravak, kao što je DataNumen Outlook Repair, koji može popraviti PST turpijati bez oznoja.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti mdf i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com