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 Office - Galluogi Golygu a Phori Tabiau yn Microsoft Office, Gwneud Gwaith yn Awel

Read More ...Dadlwythwch ...

Kutools ar gyfer Outlook - Hwb Outlook gyda 100 + Nodweddion Uwch ar gyfer Effeithlonrwydd Superior

Awtomeiddio e-bostio gyda Auto CC / BCC, Auto Ymlaen gan reolau; anfon Ymateb Auto (Allan o'r Swyddfa) heb fod angen gweinydd cyfnewid...
Cael nodiadau atgoffa fel Rhybudd BCC wrth ymateb i bawb tra'ch bod ar restr BCC, a Atgoffwch Wrth Ymlyniadau ar Goll am atodiadau anghofiedig...
Gwella effeithlonrwydd e-bost gyda Ateb (Pawb) Gydag Atodiadau, Ychwanegu Cyfarchiad neu Dyddiad ac Amser yn Awtomatig i'r Llofnod neu'r Pwnc, Ateb E-byst Lluosog...
Symleiddio e-bostio gyda E-byst Dwyn i gof, Offer Ymlyniad (Cywasgu Pawb, Auto Save All...), Tynnwch y Dyblygion, a Adroddiad Cyflym...

Rhowch hwb i'ch Outlook 2021 - 2010 neu Outlook 365 gyda'r nodweddion uwch hyn. Mwynhewch dreial cynhwysfawr am ddim 60 diwrnod a dyrchafwch eich profiad e-bost!

Read More ...Dadlwythwch ...

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