Včasih namesto da kopirate Excelov delovni list v telo e-pošte, boste morda želeli vstaviti posnetek zaslona delovnega lista. Tako bo ta članek prikazal dve metodi za njegovo pridobitev.
Številni uporabniki bi radi izvozili posnetek zaslona določenega Excelovega delovnega lista in nato posnetek zaslona vstavili v telo sporočila Outlookovega e-poštnega sporočila. Samo na posnetku zaslona vrednosti celic ni mogoče spremeniti. Posnetek zaslona si lahko ogledate tudi, če prejemniki ne namestijo MS Excel v svoje računalnike.
To je mogoče realizirati na dva načina. Prvi je vgrajena funkcija - "Vstavi"> "Posnetek zaslona", ki je podrobno predstavljena v naslednji metodi 2. Drugi pa uporablja malo skriptiranja, kot je prikazano v 1. metodi. Zdaj preberite na jih podrobno preberite.
1. način: Vstavite posnetek zaslona programa Excel Window
- Najprej odprite Excelov delovni list, ki ga želite vstaviti v e-pošto.

- Nato zaženite Outlook in ustvarite novo e-pošto.
- Nato v oknu za sporočila preklopite na zavihek »Vstavi«.
- Nato kliknite gumb »Posnetek zaslona«.
- Na seznamu »Na voljo Windows« izberite posnetek zaslona delovnega lista Excel.
- Takoj bo vstavljen posnetek zaslona Excelovega delovnega lista.
- Zdaj lahko posnetek zaslona poljubno obrežete.
2. način: Kopirajte posnetek zaslona Excelovega delovnega lista z VBA
- Na začetku odprite datoteko Excel.
- Nato pritisnite “Alt + F11”, da sprožite urejevalnik Excel VBA.
- Nato dodajte sklic na »Knjižnica objektov MS Outlook« in »Knjižnica objektov MS Word« v skladu z »Kako dodati referenco knjižnice objektov v VBA".
- Po tem kopirajte naslednjo kodo VBA v projekt ali 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
- Kasneje pritisnite “F5”, da zaženete ta makro.
- Takoj se prikaže novo e-poštno sporočilo.
- V majhnem pogovornem oknu kliknite gumb »Dovoli«.
- Nazadnje, posnetek zaslona Excelovega delovnega lista bo vstavljen v telo pošte.
Ko se soočimo s škodo v datoteki Outlook
Če po naključju prenesete katero koli prilogo, okuženo z virusom, bo vaša Outlook datoteka zelo verjetno napadena in s tem ogrožena. V takem primeru morate najprej zagnati protivirusno programsko opremo za uničenje virusov. Potem morate vlagati v trden pripomoček za popravilo tretjih oseb, kot je DataNumen Outlook Repair, ki lahko popravilo PST datoteko, ne da bi se znojil.
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 izterjati mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com




