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:

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

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

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.

Tovább ... Letöltés most...