Conas ceangaltáin a phriontáil go huathoibríoch nuair a shroicheann ríomhphoist Outlook?

Léiríonn an teagasc seo modh chun script VBA agus riail Outlook a chomhcheangal chun cabhrú leat ceangaltáin de ríomhphoist áirithe a phriontáil go huathoibríoch nuair a thagann siad go Outlook.

Priontáil ceangaltáin go huathoibríoch nuair a thagann ríomhphoist áirithe isteach

Ag cur san áireamh, ba mhaith leat ceangaltáin ríomhphoist a thagann isteach ó sheoltóir áirithe a phriontáil go huathoibríoch. Is féidir leat a dhéanamh mar seo a leanas chun é a dhéanamh.

Céim 1: Cruthaigh script in Outlook

Ar an gcéad dul síos, ní mór duit script VBA a chruthú in Outlook.

1. Seoladh do Outlook, brúigh an Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fhuinneog, cliceáil faoi dhó ar Project1 > Microsoft Outlook Object > ThisOutlookSession a oscailt ThisOutlookSession (Cód) fhuinneog, agus ansin cóipeáil an cód seo a leanas isteach sa fhuinneog cód seo.

Cód VBA 1: Priontáil ceangaltáin go huathoibríoch (gach cineál ceangaltán) nuair a thagann ríomhphoist

Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20230223
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  Dim xShell As Object
  Dim xFolder As Object, xFolderItem As Object
  Dim xFileName As String
  On Error GoTo xError
  If Item.Attachments.Count = 0 Then Exit Sub
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Item.ReceivedTime, "yyyymmddhhmmss")
  If Not xFS.FolderExists(xTempFolder) Then
    MkDir (xTempFolder)
  End If
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    If IsEmbeddedAttachment(xAtt) = False Then
      xFileName = xTempFolder & "\" & xAtt.FileName
      xAtt.SaveAsFile (xFileName)
      Set xFolderItem = xFolder.ParseName(xFileName)
      xFolderItem.InvokeVerbEx ("print")
    End If
  Next xAtt
  Set xFS = Nothing
  Set xFolder = Nothing
  Set xFolderItem = Nothing
  Set xShell = Nothing
xError:
  If Err <> 0 Then
    MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
    Err.Clear
  End If
Exit Sub
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

Nóta: Tacaíonn an cód seo le priontáil gach cineál ceangaltán a fhaightear i ríomhphoist. Más mian leat an cineál ceangaltán sonraithe a phriontáil, mar shampla comhaid pdf, cuir an cód VBA seo a leanas i bhfeidhm.

Cód VBA 2: Priontáil go huathoibríoch ar an gcineál sonraithe ceangaltán nuair a thagann ríomhphoist

Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20230223
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  Dim xShell As Object
  Dim xFolder As Object, xFolderItem As Object
  Dim xFileType As String, xFileName As String
  On Error GoTo xError
  If Item.Attachments.Count = 0 Then Exit Sub
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Item.ReceivedTime, "yyyymmddhhmmss")
  If Not xFS.FolderExists(xTempFolder) Then
    MkDir (xTempFolder)
  End If
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    If IsEmbeddedAttachment(xAtt) = False Then
      xFileName = xAtt.FileName
      xFileType = LCase$(Right$(xFileName, VBA.Len(xFileName) - VBA.InStrRev(xFileName, ".")))
      xFileName = xTempFolder & "\" & xFileName
      Select Case xFileType
        Case "pdf"   'change "pdf" to the file extension you want to print
          xAtt.SaveAsFile (xFileName)
          Set xFolderItem = xFolder.ParseName(xFileName)
          xFolderItem.InvokeVerbEx ("print")
      End Select
    End If
  Next xAtt
  Set xFS = Nothing
  Set xFolder = Nothing
  Set xFolderItem = Nothing
  Set xShell = Nothing
xError:
  If Err <> 0 Then
    MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
    Err.Clear
  End If
  Exit Sub
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

nótaí:

3. Téigh ar aghaidh agus cliceáil uirlisí > Tagairtí. Sa popping suas Tagairtí – Tionscadal1 bosca dialóige, seiceáil an Microsoft Scripting Runtime bosca, agus ansin cliceáil ar an OK cnaipe.

4. Sábháil an cód agus brúigh an Eile + Q eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

Nóta: Cinntigh le do thoil go bhfuil an Cumasaigh gach macra Tá an rogha cumasaithe i do Outlook. Is féidir leat an rogha seo a sheiceáil trí na céimeanna a thaispeántar thíos a leanúint.

Step2: Tóg riail chun an script a úsáid

Tar éis duit an script VBA a chur leis in Outlook, ní mór duit riail a chruthú chun an script a úsáid bunaithe ar choinníollacha áirithe.

1. Téigh go dtí an Baile tab, cliceáil Rialacha > Bainistigh Rialacha & Foláirimh.

2. Sa Rialacha agus Foláirimh bosca dialóige, cliceáil an Riail Nua cnaipe chun riail a chruthú.

Leid: Má tá cuntais ríomhphoist iolracha curtha agat le do Outlook, sonraigh le do thoil cuntas sa Cuir athruithe i bhfeidhm ar an bhfillteán seo liosta anuas áit ar mhaith leat an riail a chur i bhfeidhm. Seachas sin, cuirfear i bhfeidhm é ar bhosca isteach an chuntais ríomhphoist atá roghnaithe faoi láthair.

3. Sa chéad cheann Draoi Rialacha dialóg, roghnaigh Cuir riail ar na teachtaireachtaí a bhfaighidh mé sa 1 Céim bosca, agus ansin cliceáil Seo chugainn.

4. Sa dara ceann Draoi Rialacha bosca dialóige, ní mór duit:

5. Sa tríú Draoi Rialacha bosca dialóige, ní mór duit a chumrú mar seo a leanas.

Leid: Má tá an “script a rithTá rogha " ar iarraidh i do Draoi Rialacha, is féidir leat é a thaispeáint tríd an modh a luaitear san Airteagal seo a leanúint: a chur ar ais ar iarraidh Rith A Script ption i riail Outlook.

6. Ansin ceann eile Draoi Rialacha pop suas ag iarraidh eisceachtaí. Is féidir leat na heisceachtaí a roghnú más gá, ar shlí eile, cliceáil ar an Ar Aghaidh cnaipe gan aon roghanna.

7. Sa cheann deireanach Draoi Rialacha, ní mór duit ainm a shonrú don riail, agus ansin cliceáil ar an Críochnaigh cnaipe.

8. Ansin filleann sé ar an Rialacha agus Foláirimh bosca dialóige, is féidir leat an riail a chruthaigh tú atá liostaithe taobh istigh a fheiceáil, cliceáil ar an OK cnaipe chun na socruithe iomlána a chríochnú.

As seo amach, nuair a fhaightear ríomhphost ón duine sonraithe, déanfar na comhaid a ghabhann leis a phriontáil go huathoibríoch.

Earraí gaolmhara

---

Uirlisí Táirgiúlachta Oifige is Fearr

Breaking News: Kutools le haghaidh Outlook Seolann Leagan saor in aisce!

Taithí a dhéanamh ar an Kutools uile-nua le haghaidh Outlook Leagan SAOR IN AISCE le 70+ gnéithe dochreidte, is féidir leatsa a úsáid go deo! Cliceáil le híoslódáil anois!

🤖 Kutools AI : Úsáideann sé ardteicneolaíocht AI chun ríomhphoist a láimhseáil gan stró, lena n-áirítear ríomhphoist a fhreagairt, a achoimriú, a bharrfheabhsú, a leathnú, a aistriú agus a chumadh.

📧 Uathoibriú Ríomhphoist: Auto Reply (Ar fáil le haghaidh 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  /  Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile  /  Scrios Ríomhphoist Dúblacha  /  Cuardach Casta  /  Comhdhlúthaigh Fillteáin ...

📁 Ceangaltáin Pro: Sá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   /  Cuir i gcuimhne duit nuair a thagann ríomhphoist thábhachtacha  /  Í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á ...

Díghlasáil láithreach Kutools le haghaidh Outlook le cliceáil amháin -saor go buan. Ná fan, íoslódáil anois agus cuir le d’éifeachtúlacht!

Liosta Gné Kutools le haghaidh Outlook      Íoslódáil leagan saor in aisce      Uasghrádú go Gairmiúla