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

Hogyan lehet automatikusan kinyomtatni a mellékleteket, amikor e-mailek érkeznek az Outlookba?

Ez az oktatóanyag bemutatja a VBA-szkript és az Outlook-szabály kombinálásának módszerét, amely segít automatikusan kinyomtatni bizonyos e-mailek mellékleteit, amikor azok megérkeznek az Outlookba.


A mellékletek automatikus nyomtatása bizonyos e-mailek megérkezésekor

Tételezzük fel, hogy egy bizonyos feladótól beérkező e-mailek mellékleteit szeretné automatikusan kinyomtatni. Ezt a következőképpen teheti meg.

1. lépés: Hozzon létre egy szkriptet az Outlookban

Először is létre kell hoznia egy VBA-szkriptet az Outlookban.

1. Indítsa el az Outlook programot, nyomja meg a gombot más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson duplán Project1 > Microsoft Outlook objektumok > ThisOutlookSession megnyitni ThisOutlookSession (kód) ablakot, majd másolja be a következő kódot ebbe a kódablakba.

VBA-kód 1: Automatikusan kinyomtatja a mellékleteket (minden típusú mellékletet), amikor e-mailek megérkeznek


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

Jegyzet: Ez a kód támogatja az e-mailekben kapott minden típusú melléklet nyomtatását. Ha csak a megadott típusú mellékletet szeretné kinyomtatni, például pdf-fájlokat, használja a következő VBA-kódot.

VBA-kód 2: A megadott típusú mellékletek automatikus kinyomtatása e-mailek megérkezésekor

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

Jegyzet: A sorban „pdf” eset, kérem váltson "pdf" a nyomtatni kívánt fájlkiterjesztéshez.

3. Menjen tovább, és kattintson a gombra Eszközök > Hivatkozásokat. A felbukkanóban Referenciák – Projekt1 párbeszédpanelen ellenőrizze a Microsoft Scripting Runtime jelölőnégyzetet, majd kattintson a gombra OK gombot.

4. Mentse el a kódot, és nyomja meg a gombot más + Q gombok a Microsoft Visual Basic for Applications ablak.

Jegyzet: Kérjük, győződjön meg arról, hogy a Engedélyezze az összes makrót opció engedélyezve van az Outlookban. Ezt az opciót az alábbi lépések követésével ellenőrizheti.

2. lépés: Hozzon létre egy szabályt a szkript használatához

Miután hozzáadta a VBA-szkriptet az Outlookhoz, létre kell hoznia egy szabályt a szkript használatához bizonyos feltételek alapján.

1. Lépjen a Kezdőlap fülre, és kattintson a gombra Szabályok > Szabályok és figyelmeztetések kezelése.

2. Ban,-ben Szabályok és riasztások párbeszédpanelen kattintson a Új szabály gombra a szabály létrehozásához.

Tipp: Ha több e-mail fiókot adott hozzá az Outlookhoz, kérjük, adjon meg egy fiókot a Alkalmazza a módosításokat erre a mappára legördülő listából, ahol alkalmazni szeretné a szabályt. Ellenkező esetben az aktuálisan kiválasztott e-mail fiók beérkezett üzenetei közé kerül alkalmazásra.

3. Az elsőben Szabály varázsló párbeszédpanelen válassza ki Alkalmazz szabályt a fogadott üzenetekre a 1 lépés majd kattintson az OK gombra Következő.

4. A másodikban Szabály varázsló párbeszédpanelen:

4.1) Adjon meg egy vagy több feltételt a 1 lépés doboz az Ön igényei szerint;
Ebben az esetben csak a mellékleteket szeretném kinyomtatni a megadott feladótól beérkező e-mailekben. Itt megnézem a emberektől vagy nyilvános csoporttól doboz.
4.2) Kattintson az aláhúzott értékre a 2 lépés mező a feltétel szerkesztéséhez;
4.3) Kattintson Következő. Lásd screenshot:

5. A harmadikban Szabály varázsló párbeszédpanelen az alábbiak szerint kell konfigurálnia.

5.1) A 1. lépés: Válassza ki a művelet(ek) szakaszt, ellenőrizd a futtasson egy szkriptet doboz;
5.2) A 2 lépés részben kattintson az aláhúzott „a script” szövegre;
5.3) A nyílásban Válassza a Szkript lehetőséget párbeszédpanelen kattintson a fent hozzáadott VBA-kód nevére, majd kattintson a gombra RENDBEN;
5.4) Kattintson a gombra Következő gomb. Lásd a képernyőképet:

Tipp: Ha a „futtasson egy szkriptet” lehetőség hiányzik az Ön közül Szabály varázsló, akkor jelenítheti meg az ebben a cikkben említett módszerrel: hiányzó visszaállítás Futtasson egy parancsfájlt az Outlook-szabályban.

6. Aztán még egy Szabály varázsló felbukkan, és kivételeket kér. Szükség esetén kiválaszthatja a kivételeket, ellenkező esetben kattintson a gombra Következő gombot választás nélkül.

7. Az utolsóban Szabály varázsló, meg kell adnia a szabály nevét, majd kattintson a gombra befejez gombot.

8. Ezután visszatér a Szabályok és riasztások párbeszédpanelen belül megtekintheti a létrehozott szabályt, kattintson a OK gombot a teljes beállítás befejezéséhez.

Ezentúl, amikor a megadott személytől e-mail érkezik, a csatolt fájlok automatikusan kinyomtatásra kerülnek.


Kapcsolódó cikkek

Csak egy e-mailből vagy kiválasztott e-mailekből nyomtasson mellékletet az Outlook programban
Az Outlookban kinyomtathatja az e-maileket, de csak egy e-mailből vagy kiválasztott e-mailekből nyomtatta ki a mellékleteket az Outlookban? Ez a cikk bemutatja a feladat megoldásának trükkjeit.

Csak egy e-mail üzenet fejlécének nyomtatása az Outlook programban
Amikor egy e-mailt nyomtat az Outlookban, az üzenet fejlécét és törzsét is kinyomtatja. Néhány speciális esetben azonban előfordulhat, hogy csak ki kell nyomtatnia az üzenet fejlécét a tárgy, a feladó, a címzett stb. feltüntetésével. Ez a cikk két megoldást mutat be erre.

Nyomtasson ki egy naptárt egy megadott/egyéni dátumtartományban az Outlook programban
Normál esetben, ha az Outlook hónap nézetében nyomtat egy naptárt, a program automatikusan kiválasztja az aktuálisan kiválasztott dátumot tartalmazó hónapot. Előfordulhat azonban, hogy a naptárt egyéni dátumtartományon belül kell kinyomtatnia, például 3 hónapon, féléven stb. Ebben a cikkben bemutatjuk a megoldást.

Nyomtasson ki egy névjegyet képpel az Outlookban
Normál esetben a névjegy képe nem kerül kinyomtatásra, amikor az Outlook programban kinyomtatja a névjegyet. De néha sokkal lenyűgözőbb lesz egy névjegy kinyomtatása a képével. Ez a cikk néhány megoldást ismertet a megvalósítás érdekében.

Nyomtasson ki egy e-mailt az Outlook programban
Ha kapott egy e-mailt, és megállapította, hogy az e-mail tartalmának egy részét ki kell nyomtatni a teljes üzenet nyomtatása helyett, mit tennél? Valójában az Outlook internetes böngészők, például a Firefox és az Internet Explorer segítségével segíthet ennek a műveletnek a megvalósításában. Itt például az Internet böngészőket vesszük figyelembe. Kérjük, tekintse meg a következő oktatóanyagokat.

További cikkek az Outlookban való nyomtatásról...


Kutools for Outlook - 100 speciális funkciót hoz az Outlookba, és sokkal könnyebbé teszi a munkát!

  • Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail egyedi; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
  • BCC figyelmeztetés - üzenet megjelenítése, amikor megpróbál válaszolni az összesre ha az e-mail címed szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
  • Válasz (minden) az összes melléklettel az e-mail beszélgetésben; Válasz sok e-mailre másodpercek alatt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum hozzáadása a tárgyhoz ...
  • Mellékleteszközök: Az összes levél összes mellékletének kezelése, Automatikus leválasztás, Tömörítsen mindent, Átnevezés, Összes mentése ... Gyorsjelentés, Számolja ki a kiválasztott leveleket...
  • Erőteljes levélszemét szokás szerint; Távolítsa el az ismétlődő leveleket és névjegyeket... Lehetővé teszi, hogy okosabban, gyorsabban és jobban végezze el az Outlook programot.
lövés kutools outlook kutools fül 1180x121
shot kutools outlook kutools plus tab 1180x121
 
A megjegyzések rendezése szerint
Hozzászólások (0)
Még nincs értékelés. Legyen Ön az első, aki értékel!
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0  Karakterek
Javasolt helyek