Outlook: Sut i argraffu e-bost heb ddelweddau

Yn gyffredinol yn argraffu e-bost yn Outlook, bydd y delweddau'n cael eu hargraffu hefyd. Ond weithiau, rydych chi eisiau argraffu'r testunau heb y delweddau, fodd bynnag, yn Outlook, nid oes unrhyw nodwedd adeiledig a all gefnogi'r swydd hon. Mae'r tiwtorial hwn yn darparu cod VBA a fydd yn argraffu'r e-bost heb ddelwedd trwy Word ar unwaith. Neu pan nad oes gan eich cyfrifiadur argraffydd, bydd y cod VBA yn allforio'r e-bost fel PDF heb ddelweddau yn gyntaf, ac yna gallwch chi argraffu'r PDF ar ôl i'r argraffydd fod ar gael.

VBA i argraffu e-bost heb ddelweddau

VBA i argraffu e-bost heb ddelweddau

1. Dewiswch e-bost yr ydych am argraffu'r testun yn unig, yna pwyswch Alt + F11 allweddi i alluogi Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau i greu modiwl gwag newydd, yna copïwch a gludwch y cod isod i'r modiwl.

VBA: allforio e-bost heb ddelweddau

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

3. Cliciwch offer > cyfeiriadau i alluogi cyfeiriadau – Prosiect 1 ymgom, tic Llyfrgell Gwrthrychau Microsoft Word 16.0 blwch gwirio. Cliciwch OK.

4-1. Cadwch y cyrchwr o fewn y cod, a gwasgwch F5 allwedd neu cliciwch Run botwm i redeg y cod, yna bydd yr e-bost heb ddelweddau yn cael ei argraffu ar unwaith trwy Word. Ond os nad oes gan eich cyfrifiadur argraffydd, dilynwch Gam 4.

4-2. Pan nad oes gan eich cyfrifiadur argraffydd, ar ôl pwyso F5 allwedd neu glicio Run botwm i redeg y cod, mae deialog yn ymddangos ar gyfer dewis ffolder i osod y ffeil PDF, ac enwi'r ffeil PDF. Cliciwch Save.

Nawr mae'r e-bost wedi'i allforio fel PDF heb ddelweddau. Agorwch y ffeil PDF, a chliciwch ar y dde i ddewis print i argraffu'r e-bost.

Tip: Os ydych chi eisiau swmp-gadw e-byst dethol fel PDF (neu ffeiliau Word, CSV, Excel, Txt, HTML) gyda delweddau, penawdau, cyrff, Ccs, y Arbed Swmp nodwedd o Kutools ar gyfer Rhagolwg Gall eich helpu, sydd ond angen 3 cham.

1. Dewiswch negeseuon e-bost.

2. Cliciwch Kutools > Arbed Swmp.

3. Dewiswch leoliad a gwiriwch y fformat(iau) ffeil rydych chi ei eisiau, Cliciwch Iawn.

Sicrhewch dreial am ddim 30 diwrnod o Kutools ar gyfer Outlook nawr.

Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

• Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
• Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
• Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
• Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
• E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.

Read More ... Lawrlwytho nawr...