< návrat zpět

Obecná diskuse


Téma: Hromadný tisk příloh PDF v aplikaci Outlook rss

Zaslal/a 7.9.2020 11:43

Ahoj,

Potřeboval bych poradit anebo, vyřešit jednu věc.
Jak (Hromadný tisk příloh PDF v aplikaci Outlook) Vše funguje dobře ale když to dám aby to dělali automaticky tak narazím, na problém vyz příloha PDF . Předem děkuji za každou nápovědu, jak to lépe udělat.

Jinak inspirace ze stráněk.

https://www.howtogeek.com/howto/microsoft-office/batch-print-pdf-attachments-in-outlook/

Zde ještě překládám kód.

Public Sub PrintAttachments(Item As Outlook.MailItem
Dim Inbox As MAPIFolder
Dim Item As MailItem
Dim Atmt As Attachment
Dim FileName As String
Dim i As Integer

Set Inbox = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Parent.Folders.Item("Batch Prints")

For Each Item In Inbox.Items
For Each Atmt In Item.Attachments
' Všechny přílohy se nejprve uloží do dočasné složky C: \ Temp. Nezapomeňte vytvořit tuto složku.
FileName = "C:\Temp\" & Atmt.FileName
Atmt.SaveAsFile FileName
'Pokud není na jednotce C nainstalována aplikace Acrobat Reader, změňte příslušně složku programu:
Shell """C:\Program Files\Adobe\Reader 8.0\Reader\acrord32.exe"" /h /p """ + FileName + """", vbHide
Next

Item.Delete 'Odeberte tento řádek, pokud nechcete, aby byl e-mail mazán automaticky
Next

Set Inbox = Nothing
End Sub

Zaslat odpověď >

Nebyly zaslány žádné odpovědi.

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09