Outlook elektron pochtasini chop etishda o'rnatilgan rasmlarni qanday chiqarib tashlash mumkin

Ba'zan siz shunchaki elektron pochta matnini chop etishni xohlashingiz mumkin, o'rnatilgan rasmlarni o'z ichiga olmaydi. Chop etishdan oldin tasvirlarni olib tashlash o'rniga, ushbu maqolada keltirilgan usulni qo'llashingiz mumkin. U chop etishda rasmlarni avtomatik ravishda chiqarib tashlashi mumkin.

Hammamizga ma'lumki, tasvirlarni chop etish siyohni isrof qiladi. Shuning uchun, ba'zida elektron pochtani chop etishda siz kiritilgan rasmlarni foydasiz deb o'ylashingiz mumkin. Shunday qilib, siz elektron pochtani chop etishda tasvirlarni chiqarib tashlashni xohlashingiz mumkin. Bunday holda, unga osonlik bilan erishish uchun quyidagi usuldan foydalanishingiz mumkin.

Elektron pochtani chop etishda o'rnatilgan rasmlarni istisno qiling

1. Avval Outlook dasturini ishga tushiring.
2. Keyin, maqolaga muvofiq Outlook VBA muharririga kiring - "Outlook-da VBA kodini qanday ishlatish kerak".
3. Keyinchalik, siz "MS Word obyektlar kutubxonasi" ni yoqishingiz kerak, bu haqda "VBA da obyekt kutubxonasi havolasini qanday qo'shish mumkin".
4. Shundan so'ng, foydalanilmagan modulga quyidagi VBA kodini qo'ying.

Sub ExcludeEmebeddedImagesWhenPrintingEmail()
    Dim objMail As Outlook.MailItem
    Dim strMailDocument As String
    Dim objWordApp As Word.Application
    Dim objMailDocument As Word.Document
    Dim objInlineShape As Word.InlineShape
 
    'Get the source email
    Select Case Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    'Save the email as a Word document
    strMailDocument = Environ("Temp") & "\" & objMail.Subject & ".doc"
    objMail.SaveAs strMailDocument, olDoc
 
    'Remove the embedded images from the document
    Set objWordApp = CreateObject("Word.Application")
    Set objMailDocument = objWordApp.Documents.Open(strMailDocument)
    objWordApp.Visible = True
    For Each objInlineShape In objMailDocument.InlineShapes
        objInlineShape.Delete
    Next
 
    'Print out the document
    objMailDocument.PrintOut
 
    objMailDocument.Close
    objWordApp.Quit
    Kill strMailDocument
End Sub

5. Keyinchalik, joriy "Microsoft Visual Basic for Applications" oynasini yoping.
6. Keyin tez kirish asboblar paneliga yangi makrosni qo'shing.
7. Oxir-oqibat, siz ushbu makroni hozir sinab ko'rishingiz mumkin.

• Boshlash uchun manba elektron pochtasini tanlang yoki oching.
• Keyin, Tez kirish asboblar panelidagi makros tugmasini bosing.
• Bir vaqtning o'zida elektron pochta o'rnatilgan tasvirlarsiz chop etiladi, bu quyidagi skrinshotga o'xshaydi:

Outlook ma'lumotlaringizni samarali himoya qiling

Hozirgi vaqtda ma'lumotlar har doim xavfsiz emas, chunki apparatdagi nosozliklar, dasturiy ta'minotdagi nosozliklar, virus infektsiyasi va boshqalar kabi juda ko'p potentsial xavflar mavjud. Xuddi shu narsa Outlook ma'lumotlaringizga ham tegishli. Shunday qilib, siz Outlook ma'lumotlaringizni himoya qilish uchun harakat qilishingiz kerak. Masalan, siz muntazam ravishda PST zaxira nusxalarini yaratishingiz kerak. Bundan tashqari, siz qanday foydalanishni o'rganishingiz kerak Scanpst Outlook faylini tuzatish uchun. Va nihoyat, kuchli tashqi ta'mirlash vositasini tayyorlash ham zarurat masalasidir, masalan DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf-ni tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com