Excel İş Vərəqinin Skrinşotunu Outlook E-poçtunuza daxil etməyin 2 sürətli yolu

Bəzən Excel iş vərəqini e-poçtun gövdəsinə köçürmək əvəzinə, iş vərəqinin ekran görüntüsünü daxil etmək istəyə bilərsiniz. Beləliklə, bu məqalə onu əldə etməyin 2 üsulunu göstərəcəkdir.

Bir çox istifadəçi xüsusi Excel iş vərəqinin ekran görüntüsünü ixrac etmək və sonra ekran görüntüsünü Outlook e-poçtunun mesaj mətninə daxil etmək istəyir. Yalnız ekran görüntüsündə xana dəyərləri dəyişdirilə bilməz. Alıcılar MS Excel proqramını kompüterlərində quraşdırmasalar belə, ekran görüntüsünə baxmaq olar.

Bunu 2 vasitə ilə həyata keçirmək olar. Birincisi daxili funksiya ilə - "Daxil et" > "Skrinşot" aşağıdakı Metod 1-də ətraflı şəkildə təqdim olunur. İkincisi isə Metod 2-də göstərildiyi kimi bir qədər skriptdən istifadə edir. İndi oxuyun. onları ətraflı şəkildə əldə edin.

Metod 1: Excel pəncərəsinin ekran görüntüsünü daxil edin

1. Əvvəlcə e-poçta daxil etmək istədiyiniz Excel iş vərəqini açın.
2. Sonra Outlook-u işə salın və yeni e-poçt yaradın.
3. Sonra, Mesaj pəncərəsində "Daxil et" sekmesine keçin.
4. Sonra, "Screenshot" düyməsini basın.
5. "Mövcud Windows" siyahısında Excel iş vərəqinin ekran görüntüsünü seçin.
6. Dərhal Excel iş vərəqinin ekran görüntüsü daxil ediləcək.
7. İndi ekran görüntüsünü istədiyiniz kimi kəsə bilərsiniz.

Metod 2: Excel İş vərəqinin ekran görüntüsünü VBA ilə kopyalayın

1. Ən başlanğıcda Excel faylını açın.
2. Sonra, Excel VBA redaktorunu işə salmaq üçün "Alt + F11" düyməsini basın.
3. Daha sonra, "MS Outlook Obyekt Kitabxanası" və "MS Word Obyekt Kitabxanası"na istinad əlavə edin.VBA-da Obyekt Kitabxanasına İstinad necə əlavə olunur".
4. Bundan sonra, aşağıdakı VBA kodunu layihə və ya modula köçürün.

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. Daha sonra bu makronu işə salmaq üçün “F5” düyməsini sıxın.
6. Dərhal yeni e-poçt görünəcək.
7. Kiçik dialoq qutusunda "İcazə verin" düyməsini basın.
8. Nəhayət, Excel iş vərəqinin ekran görüntüsü poçt qutusuna daxil ediləcək.

Outlook faylının zədələnməsi ilə qarşılaşdıqda

Təsadüfən hər hansı virusa yoluxmuş qoşmaları yükləsəniz, Outlook faylınızın hücuma məruz qalma ehtimalı yüksəkdir və bununla da təhlükə yaranır. Belə bir vəziyyətdə, virusları öldürmək üçün ilk növbədə antivirus proqramını işə salmalısınız. Bundan sonra, siz güclü üçüncü tərəf təmir proqramına investisiya etməlisiniz, məsələn DataNumen Outlook Repair, ola bilər təmir PST tər tökmədən fayl.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc mdf bərpa edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com