2 ātrie veidi, kā ievietot Excel darblapas ekrānuzņēmumu Outlook e-pasta pamattekstā

Dažreiz tā vietā, lai kopētu Excel darblapu e-pasta pamattekstā, ieteicams ievietot darblapas ekrānuzņēmumu. Tādējādi šajā rakstā tiks parādītas 2 metodes, kā to iegūt.

Daudzi lietotāji vēlas eksportēt konkrētas Excel darblapas ekrānuzņēmumu un pēc tam ievietot ekrānuzņēmumu Outlook e-pasta ziņojuma pamattekstā. Tikai ekrānuzņēmumā šūnu vērtības nevar mainīt. Ekrānuzņēmumu var apskatīt pat tad, ja adresāti datoros neinstalē MS Excel.

To var realizēt ar 2 līdzekļiem. Pirmais ir ar iebūvēto funkciju - “Ievietot”> “Ekrānuzņēmums”, kas ir detalizēti ieviests nākamajā 1. metodē. Un otrais izmanto mazliet skriptu, kā parādīts 2. metodē. Tagad lasiet tālāk saņemt tos sīkāk.

1. metode: ievietojiet Excel loga ekrānuzņēmumu

1. Vispirms atveriet Excel darblapu, kuru vēlaties ievietot e-pastā.
2. Pēc tam palaidiet programmu Outlook un izveidojiet jaunu e-pastu.
3. Pēc tam ziņojuma logā pārslēdzieties uz cilni “Ievietot”.
4. Pēc tam noklikšķiniet uz pogas “Ekrānuzņēmums”.
5. Sarakstā “Pieejamā Windows” atlasiet Excel darblapas ekrānuzņēmumu.
6. Uzreiz tiks ievietots Excel darblapas ekrānuzņēmums.
7. Tagad ekrānuzņēmumu var apgriezt pēc vēlēšanās.

2. metode: kopējiet Excel darblapas ekrānuzņēmumu ar VBA

1. Sākumā atveriet Excel failu.
2. Pēc tam nospiediet “Alt + F11”, lai aktivizētu Excel VBA redaktoru.
3. Pēc tam pievienojiet atsauci uz “MS Outlook objektu bibliotēku” un “MS Word objektu bibliotēku” atbilstoši “Kā pievienot objektu bibliotēkas atsauci VBA valodā".
4. Pēc tam kopējiet šo VBA kodu projektā vai 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. Vēlāk nospiediet “F5”, lai palaistu šo makro.
6. Tūlīt parādīsies jauns e-pasts.
7. Mazajā dialoglodziņā noklikšķiniet uz pogas “Atļaut”.
8. Visbeidzot, Excel darblapas ekrānuzņēmums tiks ievietots pasta pamattekstā.

Saskaroties ar Outlook faila bojājumiem

Ja nejauši lejupielādējat ar vīrusiem inficētus pielikumus, ļoti iespējams, ka tiks uzbrukts jūsu Outlook failam un tādējādi tas tiks apdraudēts. Šādā situācijā, lai iznīcinātu vīrusus, vispirms ir jāpalaiž pretvīrusu programmatūra. Pēc tam jums jāiegulda spēcīgā trešo personu labošanas utilītā, piemēram, DataNumen Outlook Repair, kas var remonts PST vīle nesalaužot sviedrus.

Autora ievads:

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