Outlook. Ինչպես տպել էլփոստը առանց պատկերների

Ընդհանրապես Outlook-ում նամակ տպելով, պատկերները նույնպես կտպվեն: Բայց երբեմն, դուք պարզապես ցանկանում եք տպել տեքստերը առանց պատկերների, այնուամենայնիվ, Outlook-ում չկա ներկառուցված գործառույթ, որը կարող է աջակցել այս աշխատանքը: Այս ձեռնարկը տրամադրում է VBA կոդ, որը անմիջապես Word-ի միջոցով կտպագրի առանց պատկերի էլ. Կամ, երբ ձեր համակարգիչը տպիչ չունի, VBA կոդը սկզբում կարտահանի նամակը որպես PDF առանց պատկերների, այնուհետև դուք կարող եք տպել PDF-ը տպիչի հասանելիությունից հետո:

VBA էլեկտրոնային փոստն առանց պատկերների տպելու համար

Office Tab - Միացրեք ներդիրներով խմբագրումը և զննարկումը Microsoft Office-ում, ինչը հեշտացնում է աշխատանքը

Կարդալ ավելին...Ներբեռնել ...

Kutools Outlook-ի համար - Բարձրացրեք Outlook-ը 100+ առաջադեմ հատկություններով բարձր արդյունավետության համար

Ավտոմատացնել էլ Auto CC / BCC, Ավտոմեքենաների փոխանցում կանոններով; ուղարկել Ավտոմատ պատասխան (Offoff Office) առանց փոխանակման սերվեր պահանջելու...
Ստացեք նման հիշեցումներ Նախազգուշացում BCC- ի համար երբ պատասխանում եք բոլորին, երբ դուք BCC ցուցակում եք, և Հիշեցրեք հավելվածները բաց թողնելիս մոռացված հավելվածների համար...
Բարելավել էլփոստի արդյունավետությունը Պատասխանել (Բոլորը) Հավելվածներով, Ավտոմատ ավելացրեք ողջույն կամ ամսաթիվ և ժամ ստորագրության կամ թեմայի մեջ, Պատասխանել բազմաթիվ էլ...
Հեշտացնել էլփոստի ուղարկումը Վերհիշել նամակները, Կցման գործիքներ (Սեղմել բոլորը, ավտոմատ պահել բոլորը...), Հեռացնել կրկնօրինակները, եւ Արագ հաշվետվություն...

Ամրապնդեք ձեր Outlook 2021 - 2010 կամ Outlook 365 այս առաջադեմ գործառույթները: Վայելեք համապարփակ 60-օրյա անվճար փորձարկումը և բարձրացրեք ձեր էլփոստի փորձը:

Կարդալ ավելին...Ներբեռնել ...

VBA էլեկտրոնային փոստն առանց պատկերների տպելու համար

1. Ընտրեք նամակ, որը ցանկանում եք տպել միայն տեքստը, այնուհետև սեղմեք ալտ + F11 հնարավորություն տալու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներ ստեղծել նոր դատարկ մոդուլ, այնուհետև պատճենեք և տեղադրեք ստորև բերված կոդը մոդուլում:

VBA: արտահանել էլփոստ առանց պատկերների

Sub PrintWithoutImages()
'UpdatebyExtendoffice20220414
  Dim xMail As Outlook.MailItem
  Dim xFileName As String, xSubject As String
  Dim xWord As Word.Application
  Dim xWordDoc As Word.Document
  Dim xInlineShape As Word.InlineShape
  Dim InvalidArr
  On Error Resume Next
  If Application.ActiveWindow.Class = olInspector Then
    Set xMail = ActiveInspector.CurrentItem
  ElseIf Application.ActiveWindow.Class = olExplorer Then
    Set xMail = ActiveExplorer.Selection.Item(1)
  End If
  
  InvalidArr = Array("/", "\", "*", ":", Chr(34), "?", "<", ">", "|")
  xSubject = xMail.Subject
  For i = 0 To UBound(InvalidArr)
    xSubject = VBA.Replace(xSubject, InvalidArr(i), "")
  Next i
  
  xFileName = Environ("Temp") & "\" & xSubject & ".doc"
Debug.Print xFileName
  xMail.SaveAs xFileName, olDoc
  Set xWord = CreateObject("Word.Application")
  xWord.Visible = False
  Set xWordDoc = xWord.Documents.Open(xFileName)
  For Each xInlineShape In xWordDoc.InlineShapes
      xInlineShape.Delete
  Next
  xWordDoc.PrintOut
  xWordDoc.Close
  xWord.Quit
  Kill xFileName
End Sub