Note: The other languages of the website are Google-translated. Back to English

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

Tab Swyddfa - Galluogi Golygu a Phori Tabbed yn y Swyddfa, a Gwneud Gwaith yn Haws Orau ...
Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch Pwerus i Microsoft Outlook
  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl rheolau; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangos 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 ar unwaith; Auto Ychwanegu Cyfarchiad wrth ateb; Auto Ychwanegu Dyddiad ac Amser yn destun ...
  • Offer Ymlyniad: Auto Detach, Cywasgu Pawb, Ail-enwi Pawb, Auto Save All ... Adroddiad Cyflym, Cyfrif Postiau Dethol, Tynnwch y Post a Chysylltiadau Dyblyg ...
  • Bydd mwy na 100 o nodweddion uwch datrys y rhan fwyaf o'ch problemau yn Outlook 2010-2019 a 365. Nodweddion llawn treial am ddim 60 diwrnod.

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

doc dileu eitemau calendr dyblyg 1

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

 doc dileu eitemau calendr dyblyg 1

doc dileu eitemau calendr dyblyg 1

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.

 doc dileu eitemau calendr dyblyg 1

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.

doc dileu eitemau calendr dyblyg 1

doc dileu eitemau calendr dyblyg 1

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.

doc dileu eitemau calendr dyblyg 1

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

doc dileu eitemau calendr dyblyg 1

doc dileu eitemau calendr dyblyg 1

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.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0  Cymeriadau
Lleoliadau a Awgrymir