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

Conas gach ceangaltán a phriontáil i ríomhphost amháin / iolrach in Outlook?

Mar is eol duit, ní dhéanfaidh sé ach an t-ábhar ríomhphoist ar nós ceanntásc, comhlacht a phriontáil nuair a chliceálann tú an Comhad > Print i Microsoft Outlook, ach gan na ceangaltáin a phriontáil. Taispeánfaimid duit anseo conas gach ceangaltán a phriontáil i r-phost roghnaithe ar a suaimhneas i Microsoft Outlook.


Priontáil gach ceangaltán i dteachtaireacht ríomhphoist amháin ceann ar cheann

Soláthraíonn Microsoft Outlook dúinn Priontáil Thapa gné, a chabhróidh leat ceangaltáin a phriontáil i dteachtaireacht ríomhphoist ceann ar cheann.

1. Roghnaigh an teachtaireacht ríomhphoist a phriontálfaidh tú a ceangaltáin níos déanaí.

2. Cliceáil ceangaltán amháin sa ríomhphost seo.

3. Cliceáil ar an Priontáil Thapa cnaipe sa gníomhartha grúpa ar an Ceangaltáin Tab.

Nóta: an Uirlisí Ceangail ní chuirfear i ngníomh é go dtí go gcliceálann tú ceangaltáin i ríomhphoist.

4. Tagann dialóg Oscailte Ceangaltán Ríomhphoist amach, agus cliceáil le do thoil ar an Oscail cnaipe.

Tabhair faoi deara le do thoil go n-osclóidh an chéim seo an ceangaltán roghnaithe, agus priontálfaidh sé an ceangaltán roghnaithe seo ag an am céanna.

Chun ceangaltáin eile a phriontáil sa ríomhphost seo, déan Céim 2 go Céim 4 arís.

Sábháil / easpórtáil go tapa gach ceangaltán ó iliomad ríomhphoist in Outlook

De ghnáth is féidir linn ceangaltáin a shábháil ó r-phost amháin trí na Uirlisí Ceangail agus an Sábháil Gach Ceangaltán gné in Outlook. Ach, más rud é go sábhálfaidh tú ceangaltáin ó iliomad ríomhphoist, nó ón bhfillteán ríomhphoist iomlán in Outlook? Bain triail as Kutools for Outlook's Sábháil Gach Gné (Ceangaltáin).


ceangaltáin a shábháil i ríomhphoist iolracha kto9

Priontáil baisc gach ceangaltán in aon teachtaireacht ríomhphoist amháin

Má tá go leor ceangaltán sa teachtaireacht ríomhphoist amháin, beidh sé am-íditheach iad a phriontáil ceann ar cheann. Agus beidh an modh seo a leanas ag siúl leat trí phriontáil bhaisc gach ceangaltán i dteachtaireacht ríomhphoist roghnaithe go héasca.

1. Roghnaigh an teachtaireacht ríomhphoist a phriontálfaidh tú a ceangaltáin níos déanaí.

2. In Outlook 2010 nó leaganacha níos déanaí, cliceáil ar an Comhad > Print > Roghanna Priontála. Féach an pictiúr seo a leanas:

3. Sa bhosca dialóg Priontáil, seiceáil le do thoil an Priontáil comhaid ceangailte. Ní phriontálfar ceangaltáin chuig an printéir réamhshocraithe amháin rogha sa Roghanna priontála alt seo.

4. Cliceáil ar an Print cnaipe.

5. Sa bhosca dialóige Ceangal Ríomhphoist Oscailte, cliceáil ar an Oscail cnaipe le dul ar aghaidh. (nótaí: Taispeánfaidh an bosca dialóige seo gach ceangaltán ar leithligh.)

Anois, déanfar gach ceangaltán sa teachtaireacht ríomhphoist roghnaithe seo a phriontáil láithreach.


Baisc phriontáil gach ceangaltán agus pictiúir i ríomhphoist roghnaithe iolrach

Chun gach ceangaltán a phriontáil i ríomhphoist iomadúla chomh maith leis na pictiúir go léir sa chomhlacht teachtaireachta in Outlook, le do thoil lean na céimeanna thíos chun cód VBA a chur i bhfeidhm.

1. Sa liosta seoltaí, coinnigh le do thoil Ctrl or Shift eochracha chun ríomhphoist iolracha a roghnú a phriontálfaidh tú a gceangail.

2. Brúigh Eile + F11 eochracha le chéile chun an fhuinneog Microsoft Visual Basic for Applications a oscailt.

3. I bhfuinneog Microsoft Visual Basic for Applications, cliceáil uirlisí > tagairtí. Agus ansin seiceáil an Microsoft Scripting Runtime rogha mar a thaispeántar thíos. Nuair a bheidh sé críochnaithe, cliceáil OK.

4. Cliceáil Ionsáigh > Modúil, agus ansin greamaigh faoi bhun chód VBA isteach i bhfuinneog an mhodúil nua.

VBA: Priontáil gach ceangaltán i iliomad ríomhphoist Outlook

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/03
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        xFilePath = xTempFldPath & "\" & xAttachment.FileName
        xAttachment.SaveAsFile (xFilePath)
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

5. Brúigh F5 eochair nó cliceáil ar an Rith cnaipe chun an cód VBA seo a rith. Anois feicfidh tú go bhfuil gach ceangaltán sna ríomhphoist roghnaithe agus na pictiúir sa chorp meesage priontáilte amach.

Nóta:

  • Tabharfaidh gach íomhá suas bosca dialóige aníos chun deimhniú priontála a iarraidh ort. Cé go mbeidh cineálacha eile comhaid a phriontáil go díreach.
  • Má tá íomhánna i síniú ríomhphoist, tabharfaidh siad suas boscaí dialóige pop-up freisin.
  • Má fhaigheann tú Tá na macraí sa tionscadal seo díchumasaithe earráid, seiceáil an teagaisc seo le do thoil: Conas Macraí a Chumasú agus a Dhíchumasú in Outlook?

Priontáil baisc gach ceangaltán i ríomhphoist roghnaithe iolracha ach amháin pictiúir sa chorp

Chun ceangaltáin a phriontáil i ríomhphoist iomadúla amháin ach na pictiúir sa chomhlacht teachtaireachta in Outlook, le do thoil lean na céimeanna thíos chun cód VBA a chur i bhfeidhm.

1. Sa liosta seoltaí, coinnigh le do thoil Ctrl or Shift eochracha chun ríomhphoist iolracha a roghnú a phriontálfaidh tú a gceangail.

2. Brúigh Eile + F11 eochracha le chéile chun an fhuinneog Microsoft Visual Basic for Applications a oscailt.

3. I bhfuinneog Microsoft Visual Basic for Applications, cliceáil uirlisí > tagairtí. Agus ansin seiceáil an Microsoft Scripting Runtime rogha mar a thaispeántar thíos. Nuair a bheidh sé críochnaithe, cliceáil OK.

4. Cliceáil Ionsáigh > Modúil, agus ansin greamaigh faoi bhun chód VBA isteach i bhfuinneog an mhodúil nua.

VBA: Priontáil gach ceangaltán i iliomad ríomhphoist Outlook

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/05
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        If IsEmbeddedAttachment(xAttachment) = False Then
          xFilePath = xTempFldPath & "\" & xAttachment.FileName
          xAttachment.SaveAsFile (xFilePath)
          Debug.Print xFilePath
        End If
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

5. Brúigh F5 eochair nó cliceáil ar an Rith cnaipe chun an cód VBA seo a rith. Anois feicfidh tú go bhfuil na ceangaltáin go léir sna ríomhphoist roghnaithe priontáilte.

Nóta:

  • Tabharfaidh gach íomhá a ghabhann leis seo bosca dialóige aníos chun deimhniú priontála a iarraidh ort. Cé go mbeidh cineálacha eile comhaid a phriontáil go díreach.
  • Ní chlóbhuailfear íomhánna i gcorp na teachtaireachta.
  • Má fhaigheann tú Tá na macraí sa tionscadal seo díchumasaithe earráid, seiceáil an teagaisc seo le do thoil: Conas Macraí a Chumasú agus a Dhíchumasú in Outlook?

 


Taispeántas: priontáil ceangaltán amháin nó gach ceangaltán i ríomhphost Outlook


Leid: San Fhíseán seo, Kutools cuirtear cluaisín le Kutools le haghaidh Outlook. Má theastaíonn sé uait, cliceáil le do thoil anseo triail saor in aisce 60 lá a bheith agat gan teorainn!


Kutools for Outlook - Tugann sé 100 Gné Ard le Outlook, agus Déan an Obair i bhfad Níos Éasca!

  • Auto CC / BCC de réir rialacha agus ríomhphost á sheoladh; Auto Ar Aghaidh Ríomhphoist Il de réir saincheaptha; Freagra Auto gan freastalaí malairte, agus gnéithe níos uathoibríoch ...
  • Rabhadh BCC - taispeáin teachtaireacht nuair a dhéanann tú iarracht gach ceann a fhreagairt má tá do sheoladh ríomhphoist ar liosta BCC; Meabhraigh Nuair a bhíonn Ceangaltáin ar Iarraidh, agus gnéithe meabhrúcháin níos mó ...
  • Freagra (Gach) Leis na Ceangaltáin Uile sa chomhrá poist; Freagair go leor Ríomhphost i soicindí; Beannacht Auto Cuir leis nuair a thabharfar freagra; Cuir Dáta leis san ábhar ...
  • Uirlisí Ceangail: Bainistigh Gach Ceangaltán i ngach Ríomhphost, Auto Dícheangail, Comhbhrú Gach, Athainmnigh Uile, Sábháil Gach ... Tuarascáil Thapa, Líon Ríomhphoist Roghnaithe...
  • Ríomhphoist Cumhachtacha Junk de réir saincheaptha; Bain Ríomhphoist agus Teagmhálacha Dúblacha... Cuir ar do chumas déanamh níos cliste, níos gasta agus níos fearr in Outlook.
kutools lámhaigh dearcadh kutools tab 1180x121
kutools lámhaigh dearcadh kutools móide cluaisín 1180x121
 
Sórtáil tuairimí de réir
Comments (23)
Rátáil 5 as 5 · rátálacha 1
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sé seo an-úsáideach, ach ní chuidíonn sé liom le Office 365 ??
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D'fhéadfainn an chuid seo a dhéanamh amach dom féin - is é an rud atá mé ag iarraidh a dhéanamh amach ná an fáth, ainneoin é sin a dhéanamh, nach mbeadh ceangaltáin le priontáil. Tagann teachtaireacht earráide aníos do gach ceangaltán ag fiafraí an dteastaíonn uaim "oscailt" nó "shábháil". Nuair a roghnaítear ceachtar den dá rogha, faightear na torthaí sin go díreach - i bhfocail eile, níl aon chló fós ann, díreach oscailt nó sábhálann. Tá 20 ceangaltán agam ó 4 ríomhphost. Níor mhaith liom i ndáiríre go mbeadh orm 80 doiciméad a oscailt díreach le bheith in ann iad a phriontáil. Is léir go bhfuil roinnt socruithe slándála “sábháil uaim féin” ar gá iad a scriosadh le gur féidir liom mo ríomhaire féin agus an córas oibriúcháin a cheannaigh mé agus a d’íoc mé a úsáid. Sin an méid is gá dom a fhios.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cliceáil faoi dhó ar ríomhphost chun "pop-out" leis féin. Cliceáil ar dheis ar cheann de na ceangaltáin agus cliceáil "roghnaigh go léir", ansin "priontáil tapa".
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Aontaigh le Leah, ní oibríonn sé seo. Ní dhéanann sé ach príomhchorp an ríomhphoist a phriontáil agus an chéad iatán, ní gach ceann acu. An riachtanas is gá treoracha maidir le conas iad go léir a phriontáil ag baint úsáide as "roghnaigh gach" roghanna a thaispeántar thuas.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
más mian leat gach ceangaltán a phriontáil le chéile in 1 ríomhphost seo é a dhéanann tú. déan fillteán ar do dheasc ar dtús ....D'ainmnigh mé "print" mianach. téigh go dtí an ríomhphost leis na ceangaltáin ... aibhsigh gach ceann de na ceangaltáin, deaschliceáil, sábháil gach ceangaltán san fhillteán priontála. Oscail an fillteán priontála .....aibhrigh iad go léir.....cliceáil ar dheis.....print.



anois mura bhféadfaí a dhéanamh amach conas na ceangaltáin go léir a phriontáil i 200 ríomhphost gan gach ceann a oscailt agus é a phriontáil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Kutools le haghaidh Outlook's Detach All (Ceangaltáin) Is féidir le gné cabhrú leat gach ceangaltán a íoslódáil ó ríomhphoist iomadúla le roinnt cad a tharlaíonn nuair! https://www.extendoffice.com/product/kutools-for-outlook/outlook-detach-attachments.html
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
má tá an t-ainm céanna ar pdf ní phrionnaíonn an macra ach pdf amháin, conas is féidir liom an cód a athrú chun an t-ainm pdf a mhodhnú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tugann an cód VBA earráid chomhréire
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
ar líne 9 , d'oibrigh mé ag baint "Ar Earráid Atosú Ar Aghaidh" dom.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Sea, d'oibrigh sé seo domsa freisin. Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat 
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá mé ag baint úsáide as an aicearra seo le cúpla seachtain anois, ag priontáil gach ceangaltán ó ríomhphoist iomadúla ag an am céanna, agus le déanaí bhí orm líne 9 a bhaint mar a dúirt Nilanka, atá ag obair, ach ní oibríonn sé seo a thuilleadh. Tá an bosca rabhaidh á fháil agam ag rá go bhfuil na macraí sa tionscadal seo díchumasaithe.....agus mar sin de... má tá réiteach ag duine éigin chun an obair seo a dhéanamh mar a bhí sé roimhe seo, lmk, le do thoil, agus mé ag roghnú thart ar 60 ríomhphoist ina bhfuil ceangaltáin le priontáil. Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit gach duine, rinneamar an cód VBA a nuashonrú sa rang teagaisc ar 2022/08/03. Más gá duit gach ceangaltán a phriontáil fós, seiceáil an cód nua. 😊
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, d'oibrigh sé seo go maith dom inné ach anois tá sé ag rá 'an macraí sa tionscadal seo faoi mhíchumas' Aon chomhairle conas iad a chumasú? 
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Vielen, vielen Dank dafür! Hat uns enorm viel Arbeit erspart.Auch ich musste - wie bereits in den Kommentaren geschrieben - bás nónte Zeile "Dim xAttachment As Outlook.Attachment On Error Resume Next" entfernen, agus lief der Code einfandfrei durch.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
hallo, ich möchte nur den Anhang der Mails von der angegebenen Adresse senden, wie kann ich das machen, danke
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá Microsoft 365 á úsáid agam agus d'oibrigh sé seo tar éis líne 9 a scriosadh. Go raibh maith agat! Shábháil sé seo beagán ama dom.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A chara go léir,

Bhain mé triail as an VBA agus ritheann an cód ach tá go leor míreanna aníos ag oscailt ar an scáileán chun íomhánna a phriontáil ón síniú ríomhphoist (is cosúil go meastar gur ceangaltán é seo). Fhios ag duine ar bith conas é a réiteach?

S.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit ann,

Is oth liom go dtabharfaidh priontáil íomhánna suas preabfhuinneoga. Beidh ort gach ceann acu a dheimhniú chun na híomhánna go léir a íoslódáil. Mura bhfuil ort íomhánna a phriontáil, cliceáil le do thoil Cealaigh.

Amanda
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Mura dteastaíonn uait pictiúir a phriontáil i gcorp teachtaireachta, bain úsáid as an gcód thíos le do thoil:
Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/05
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        If IsEmbeddedAttachment(xAttachment) = False Then
          xFilePath = xTempFldPath & "\" & xAttachment.FileName
          xAttachment.SaveAsFile (xFilePath)
          Debug.Print xFilePath
        End If
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Amanda a chara,

Go raibh maith agat as an gcód. D'oibrigh sé!

S.
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL