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

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:

4.1) Nodwch un neu fwy o amodau yn y 1 cam blwch yn ôl eich anghenion;
Yn yr achos hwn, rwyf am argraffu'r atodiadau mewn negeseuon e-bost sy'n dod i mewn gan anfonwr penodedig yn unig. Yma, yr wyf yn gwirio y gan bobl neu grŵp cyhoeddus blwch.
4.2) Cliciwch ar y gwerth wedi'i danlinellu yn y 2 cam blwch i olygu'r cyflwr;
4.3) Cliciwch Nesaf. Gweler y screenshot:

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

5.1) Yn y Cam 1: Dewiswch adran cam(au) gweithredu, gwiriwch y rhedeg sgript blwch;
5.2) Yn y 2 cam adran, cliciwch ar y testun wedi'i danlinellu “sgript”;
5.3) Yn yr agoriad Dewiswch Sgript blwch deialog, cliciwch ar enw'r cod VBA a ychwanegwyd gennych uchod, ac yna cliciwch IAWN;
5.4) Cliciwch y nesaf botwm. Gweler y screenshot:

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

Dim ond Argraffu Atodiad(S) O Un E-bost Neu E-byst Dethol Yn Outlook
Yn Outlook, gallwch chi argraffu'r negeseuon e-bost, ond a ydych chi wedi argraffu'r atodiadau o un e-bost yn unig neu e-byst dethol yn Outlook? Mae'r erthygl hon yn cyflwyno'r triciau ar ddatrys y swydd hon.

Dim ond Argraffu Pennawd Neges E-bost Yn Outlook
Wrth argraffu e-bost yn Outlook, bydd yn argraffu pennawd neges a chorff neges yn yr e-bost. Fodd bynnag, mewn rhai achosion arbennig, efallai y bydd angen i chi argraffu pennawd y neges gyda'r pwnc, anfonwr, derbynwyr, ac ati Bydd yr erthygl hon yn cyflwyno dau ateb i'w wneud.

Argraffu Calendr Mewn Ystod Dyddiad Penodedig / Cwsmer Yn Outlook
Fel arfer, wrth argraffu calendr yn Month view yn Outlook, bydd yn dewis y mis sy'n cynnwys y dyddiad a ddewiswyd ar hyn o bryd yn awtomatig. Ond, efallai y bydd angen i chi argraffu'r calendr o fewn ystod dyddiad arferol, megis 3 mis, hanner y flwyddyn, ac ati Bydd yr erthygl hon yn cyflwyno'r ateb i chi.

Argraffu Cyswllt Gyda Llun Yn Outlook
Fel rheol, ni fydd llun cyswllt yn cael ei argraffu wrth argraffu'r cyswllt yn Outlook. Ond weithiau, bydd yn fwy trawiadol argraffu cyswllt gyda'i lun. Bydd yr erthygl hon yn cyflwyno rhai cylchoedd gwaith i'w gyflawni.

Argraffu Detholiad O E-bost Yn Outlook
Pe byddech chi'n derbyn neges e-bost ac wedi darganfod bod yna ddetholiad o'r cynnwys e-bost mae angen ei argraffu yn lle argraffu'r neges gyfan, beth fyddech chi'n ei wneud? Mewn gwirionedd, gall Outlook eich helpu i gyflawni'r llawdriniaeth hon gyda chymorth porwyr rhyngrwyd, fel y Firefox a'r Internet Explorer. Yma, byddaf yn cymryd y porwyr Rhyngrwyd er enghraifft. Edrychwch ar y tiwtorialau canlynol.

Mwy o erthyglau am "argraffu yn Outlook"...


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.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
sylwadau (1)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo

j ai suivi a la lettre votre methode pour imprimez automatiquement lesz pieces jointess

activez les macros mais il n y a pas de macro

donc ca ne fonctionne pas ou il me manque un element

merci de me dire svp
jean louis sueur
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0  Cymeriadau
Lleoliadau a Awgrymir