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).

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.

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?

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?