Sut i argraffu atodiadau yn awtomatig pan fydd e-byst yn cyrraedd Outlook?

Mae'r tiwtorial hwn yn dangos dull o gyfuno sgript VBA a rheol Outlook i'ch helpu chi i argraffu atodiadau o e-byst penodol yn awtomatig pan fyddant yn cyrraedd Outlook.

Argraffwch atodiadau yn awtomatig pan fydd rhai e-byst penodol yn cyrraedd

Gan dybio, rydych chi am argraffu atodiadau e-byst sy'n dod i mewn gan anfonwr penodol yn awtomatig. Gallwch chi wneud fel a ganlyn i'w gyflawni.

Cam 1: Creu sgript yn Outlook

Yn gyntaf, mae angen i chi greu sgript VBA yn Outlook.

1. Lansio eich Rhagolwg, pwyswch y Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith ar Project1 > Gwrthrychau Microsoft Outlook > SesiwnOutlook i agor y ThisOutlookSession (Cod) ffenestr, ac yna copïwch y cod canlynol i'r ffenestr cod hon.

Cod VBA 1: Argraffu atodiadau yn awtomatig (pob math o atodiadau) pan fydd e-byst yn cyrraedd

Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20220413
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  On Error Resume Next
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Now, "yyyymmddhhmmss")
  MkDir (xTempFolder)
  
  'Set Item = Application.ActiveExplorer.Selection.Item(1)
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    xFileName = xAtt.FileName
    xFileType = LCase$(Right$(xFileName, 4))
    xFileName = xTempFolder & "\" & xFileName
    xAtt.SaveAsFile (xFileName)
      Set xFolderItem = xFolder.ParseName(xFileName)
      xFolderItem.InvokeVerbEx ("print")
  Next xAtt
'xFS.DeleteFolder (xTempFolder)
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

Nodyn: Mae'r cod hwn yn cefnogi argraffu pob math o atodiadau a dderbynnir mewn e-byst. Os ydych chi am argraffu'r math penodedig o atodiad yn unig, fel ffeiliau pdf, cymhwyswch y cod VBA canlynol.

Cod VBA 2: Argraffwch yn awtomatig y math penodedig o atodiadau pan fydd e-byst yn cyrraedd

Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20220413
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  On Error Resume Next
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Now, "yyyymmddhhmmss")
  MkDir (xTempFolder)
  
  'Set Item = Application.ActiveExplorer.Selection.Item(1)
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    xFileName = xAtt.FileName
    xFileType = LCase$(Right$(xFileName, 4))
    xFileName = xTempFolder & "\" & xFileName
    xAtt.SaveAsFile (xFileName)
    Select Case xFileType
    Case "pdf" ‘change “pdf” to the file extension you want to print
      Set xFolderItem = xFolder.ParseName(xFileName)
      xFolderItem.InvokeVerbEx ("print")
     End Select
  Next xAtt
'xFS.DeleteFolder (xTempFolder)
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

Nodyn: Yn y llinell Achos "pdf", os gwelwch yn dda newid “pdf” i'r estyniad ffeil rydych chi am ei argraffu.

3. Ewch ymlaen a chliciwch offer > Cyfeiriadau. Yn y popping up Cyfeiriadau – Prosiect1 blwch deialog, gwiriwch y Amser Rhedeg Sgriptio Microsoft blwch, ac yna cliciwch ar y OK botwm.

4. Cadwch y cod a gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

Nodyn: Gwnewch yn siŵr bod y Galluogi pob macros opsiwn wedi'i alluogi yn eich Outlook. Gallwch wirio'r opsiwn hwn trwy ddilyn y camau a ddangosir isod.

Cam 2: Adeiladu rheol i ddefnyddio'r sgript

Ar ôl ychwanegu'r sgript VBA yn Outlook, mae angen i chi greu rheol i ddefnyddio'r sgript yn seiliedig ar amodau penodol.

1. Ewch i'r tab Cartref, cliciwch Rheolau > Rheoli Rheolau a Rhybuddion.

2. Yn y Rheolau a Rhybuddion blwch deialog, cliciwch y Rheol Newydd botwm i greu rheol.

Awgrym: Os ydych wedi ychwanegu cyfrifon e-bost lluosog at eich Outlook, nodwch gyfrif yn y Cymhwyso newidiadau i'r ffolder hon gwymplen lle rydych chi am gymhwyso'r rheol. Fel arall, bydd yn cael ei gymhwyso i fewnflwch y cyfrif e-bost a ddewiswyd ar hyn o bryd.

3. Yn y cyntaf Dewin Rheolau blwch deialog, dewiswch Gwnewch gais ar y negeseuon a gefais yn y 1 cam blwch, ac yna cliciwch Nesaf.

4. Yn yr ail Dewin Rheolau blwch deialog, mae angen i chi:

5. Yn y trydydd Dewin Rheolau blwch deialog, mae angen i chi ffurfweddu fel a ganlyn.

Awgrym: Os yw'r “rhedeg sgript” opsiwn ar goll yn eich Dewin Rheolau, gallwch ei arddangos trwy ddilyn y dull a grybwyllir yn yr erthygl hon: adfer ar goll Run A Script pption yn Outlook rheol.

6. Yna un arall Dewin Rheolau pops i fyny yn gofyn am eithriadau. Gallwch ddewis yr eithriadau os oes angen, fel arall, cliciwch ar y nesaf botwm heb unrhyw ddewisiadau.

7. Yn yr olaf Dewin Rheolau, mae angen i chi nodi enw ar gyfer y rheol, ac yna cliciwch ar y Gorffen botwm.

8. Yna mae'n dychwelyd i'r Rheolau a Rhybuddion blwch deialog, gallwch weld y rheol a grewyd gennych a restrir y tu mewn, cliciwch ar y OK botwm i orffen y gosodiadau cyfan.

O hyn ymlaen, pan dderbynnir e-bost gan y person penodedig, bydd y ffeiliau atodedig yn cael eu hargraffu'n awtomatig.

Erthyglau perthnasol

Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

• Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
• Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
• Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
• Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
• E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.

Read More ... Lawrlwytho nawr...