Skip to main content

Outlook: Conas ríomhphost a phriontáil gan íomhánna

Go ginearálta priontáil ríomhphost in Outlook, déanfar na híomhánna a phriontáil freisin. Ach uaireanta, is mian leat ach na téacsanna a phriontáil gan na híomhánna, áfach, in Outlook, níl aon ghné ionsuite ann a thacaíonn leis an bpost seo. Soláthraíonn an teagasc seo cód VBA a phriontáil an ríomhphost saor ó íomhá trí Word láithreach. Nó nuair nach bhfuil printéir ag do ríomhaire, déanfaidh an cód VBA an ríomhphost a onnmhairiú mar PDF gan íomhánna ar dtús, agus ansin is féidir leat an PDF a phriontáil tar éis don printéir a bheith ar fáil.

VBA chun ríomhphost a phriontáil gan íomhánna

Cluaisín Oifige - Cumasaigh Eagarthóireacht agus Brabhsáil Tábáilte i Microsoft Office, Ag Cur le hObair
Kutools le haghaidh Outlook - Treisiú Outlook le 100+ Gnéithe Casta le haghaidh Éifeachtúlacht Superior
Treisigh do Outlook 2021 - 2010 nó Outlook 365 leis na hardghnéithe seo. Bain sult as triail chuimsitheach 60-lá saor in aisce agus ardaigh do thaithí ríomhphoist!

VBA chun ríomhphost a phriontáil gan íomhánna

 

1. Roghnaigh ríomhphost ar mhaith leat an téacs a phriontáil amháin, ansin brúigh Eile + F11 eochracha le cumasú Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. cliceáil Ionsáigh > Modúil chun modúl bán nua a chruthú, ansin cóipeáil agus greamaigh an cód thíos don mhodúl.

VBA: onnmhairiú r-phost gan íomhánna

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 bain míreanna féilire dúblacha 1

3. cliceáil uirlisí > tagairtí a chumasú tagairtí – Tionscadal 1 dialóg, tic Leabharlann Réada Microsoft Word 16.0 bosca seiceála. Cliceáil OK.

 doc bain míreanna féilire dúblacha 1

doc bain míreanna féilire dúblacha 1

4-1. Coinnigh an cúrsóir laistigh den chód, agus brúigh F5 eochair nó cliceáil Rith cnaipe chun an cód a rith, ansin déanfar an ríomhphost gan íomhánna a phriontáil láithreach trí Word. Ach mura bhfuil printéir ag do ríomhaire, lean Céim 4 le do thoil.

4-2. Nuair nach bhfuil printéir ar do ríomhaire, tar éis an cnaipe F5 eochair nó cliceáil Rith cnaipe chun an cód a rith, tagann dialóg amach chun fillteán a roghnú chun an comhad PDF a chur, agus ainmnigh an comhad PDF. Cliceáil Sábháil.

 doc bain míreanna féilire dúblacha 1

Anois tá an ríomhphost easpórtáilte mar PDF gan íomhánna. Oscail an comhad PDF, agus cliceáil ar dheis chun é a roghnú Print chun an ríomhphost a phriontáil.

doc bain míreanna féilire dúblacha 1

doc bain míreanna féilire dúblacha 1

Leid: Más mian leat ríomhphoist roghnaithe a shábháil mar PDF (nó comhaid Word, CSV, Excel, txt, HTML) le híomhánna, ceanntásca, comhlachtaí, Ccs, an Sábháil Bulc gné de Kutools le haghaidh Outlook féidir cabhrú leat, a bhfuil gá acu ach 3 céimeanna.

1. Roghnaigh ríomhphoist.

2. cliceáil Kutools > Sábháil Bulc.

doc bain míreanna féilire dúblacha 1

3. Roghnaigh suíomh agus seiceáil an fhormáid comhaid atá uait, Cliceáil OK.

doc bain míreanna féilire dúblacha 1

doc bain míreanna féilire dúblacha 1

Faigh triail saor in aisce 30-lá de Kutools le haghaidh Outlook anois.


Uirlisí Táirgiúlachta Oifige is Fearr

Kutools le haghaidh Outlook - Níos mó ná 100 Gnéithe cumhachtacha chun do Outlook a shárú

🤖 Cúntóir Ríomhphoist AI: Ríomhphoist pro toirt le draíocht AI - aon-cliceáil chun freagraí genius, ton foirfe, máistreacht ilteangach. Trasfhoirmigh ríomhphost gan stró! ...

📧 Uathoibriú Ríomhphoist: As Oifig (Ar fáil do POP agus IMAP)  /  Sceideal Seol Ríomhphoist  /  Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh  /  Auto Ar Aghaidh (Ardrialacha)   /  Beannacht Auto Cuir leis   /  Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...

📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm go héasca  /  Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile  /  Scrios Ríomhphoist Dúblacha  /  Cuardach Casta  /  Comhdhlúthaigh Fillteáin ...

📁 Ceangaltáin ProSábháil Baisc  /  Baisc Dícheangail  /  Comhbhrú Baisc  /  Auto Sábháil   /  Auto Dícheangail  /  Comhbhrúite Auto ...

🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool   /  Treisiú Do Tháirgiúlacht Outlook le Radhairc Tabbed  /  Íoslaghdaigh Outlook In ionad Deiridh ...

???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach  /   Ríomhphoist Frith-Iascaireachta  /  🕘 Taispeáin Crios Ama an tSeoltóra ...

👩🏼‍🤝‍👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe  /  Roinn Grúpa Teagmhála ar Ghrúpaí Aonair  /  Bain Meabhrúcháin Breithlá ...

Thar Gnéithe 100 Fan le do Thaiscéalaíocht! Cliceáil Anseo le Tuilleadh Amach.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations