Jak automaticky tisknout přílohy, když dorazí e-maily do Outlooku?
Tento kurz demonstruje metodu kombinace skriptu VBA a pravidla aplikace Outlook, která vám pomůže automaticky tisknout přílohy určitých e-mailů, když dorazí do aplikace Outlook.
Automaticky tisknout přílohy, když dorazí určité e-maily
Předpokládejme, že chcete automaticky tisknout přílohy příchozích e-mailů od určitého odesílatele. Chcete-li to provést, můžete postupovat následovně.
Krok 1: Vytvořte skript v aplikaci Outlook
Nejprve musíte vytvořit skript VBA v aplikaci Outlook.
1. Spusťte svůj Outlook a stiskněte Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte na Project1 > Objekty Microsoft Outlook > ThisOutlookSession k otevření ThisOutlookSession (kód) okno a potom zkopírujte následující kód do tohoto okna kódu.
Kód VBA 1: Automaticky tisknout přílohy (všechny typy příloh), když dorazí e-maily
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
Poznámka: Tento kód podporuje tisk všech typů příloh přijatých v e-mailech. Pokud chcete vytisknout pouze určený typ přílohy, například soubory PDF, použijte následující kód VBA.
Kód VBA 2: Automaticky tisknout zadaný typ příloh, když dorazí e-maily
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
Poznámky:
3. Pokračujte a klikněte Tools > Reference. Při objevování Reference – Projekt1 V dialogovém okně zaškrtněte Microsoft Scripting Runtime a poté klikněte na OK .
4. Uložte kód a stiskněte Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.
Poznámka: Ujistěte se prosím, že Povolit všechna makra ve vašem Outlooku je povolena možnost. Tuto možnost můžete zkontrolovat podle níže uvedených kroků.
Krok 2: Vytvořte pravidlo pro použití skriptu
Po přidání skriptu VBA do aplikace Outlook je třeba vytvořit pravidlo pro použití skriptu na základě určitých podmínek.
1. Přejděte na kartu Domů, klikněte na pravidla > Spravujte pravidla a upozornění.
2. V Pravidla a upozornění dialogové okno, klepněte na tlačítko Nové pravidlo tlačítko k vytvoření pravidla.
Tip: Pokud jste do aplikace Outlook přidali více e-mailových účtů, zadejte účet v Použít změny v této složce rozevíracího seznamu, kde chcete pravidlo použít. V opačném případě bude použito pro doručenou poštu aktuálně vybraného e-mailového účtu.
3. V první Průvodce pravidly dialogové okno vyberte Použijte pravidlo na zprávy, které dostávám v Krok 1 a potom klepněte na tlačítko OK Next.
4. Ve druhé Průvodce pravidly dialogové okno, musíte:
5. Ve třetím Průvodce pravidly dialogové okno, musíte nakonfigurovat následujícím způsobem.
Tip: Pokud jespustit skript“ ve vašem chybí Průvodce pravidly, můžete jej zobrazit pomocí metody uvedené v tomto článku: obnovit chybí Spustit skript pption v pravidle aplikace Outlook.
6. Pak další Průvodce pravidly objeví se žádostí o výjimky. V případě potřeby můžete vybrat výjimky, jinak klepněte na další tlačítko bez jakéhokoli výběru.
7. V posledním Průvodce pravidly, musíte zadat název pravidla a poté kliknout na úprava .
8. Poté se vrátí do Pravidla a upozornění V dialogovém okně můžete vidět pravidlo, které jste vytvořili, uvedené uvnitř, klikněte na OK dokončete celé nastavení.
Od této chvíle, když obdržíme e-mail od zadané osoby, budou přiložené soubory automaticky vytištěny.
Související články
Tiskněte pouze přílohy z jednoho e-mailu nebo vybraných e-mailů v aplikaci Outlook
V aplikaci Outlook můžete e-maily vytisknout, ale tiskli jste přílohy pouze z jednoho e-mailu nebo vybraných e-mailů v aplikaci Outlook? Tento článek představuje triky, jak tuto úlohu vyřešit.
Tisknout pouze záhlaví zprávy e-mailu v aplikaci Outlook
Při tisku e-mailu v aplikaci Outlook se v e-mailu vytiskne záhlaví zprávy i tělo zprávy. V některých speciálních případech však může stačit vytisknout záhlaví zprávy s předmětem, odesílatelem, příjemci atd. Tento článek představí dvě řešení, jak toho dosáhnout.
Tisk kalendáře v určeném/vlastním časovém období v aplikaci Outlook
Obvykle se při tisku kalendáře v zobrazení Měsíc v Outlooku automaticky vybere měsíc obsahující aktuálně vybrané datum. Možná však budete muset kalendář vytisknout v rámci vlastního rozsahu dat, jako jsou 3 měsíce, polovina roku atd. Tento článek vám představí řešení.
Tisk kontaktu s obrázkem v aplikaci Outlook
Při tisku kontaktu v aplikaci Outlook se obvykle obrázek kontaktu nevytiskne. Někdy však bude působivější vytisknout kontakt s jeho obrázkem. Tento článek představí některá alternativní řešení.
Vytiskněte výběr e-mailu v aplikaci Outlook
Pokud jste obdrželi e-mailovou zprávu a zjistili jste, že existuje výběr obsahu e-mailu, je třeba vytisknout místo vytištění celé zprávy, co byste udělali? Ve skutečnosti vám Outlook může pomoci dosáhnout této operace pomocí internetových prohlížečů, jako jsou Firefox a Internet Explorer. Zde si vezmu například internetové prohlížeče. Podívejte se prosím na následující výukové programy.
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook
🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...
???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Snadné vyvolání e-mailů / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.