Ahoj,
mám soubor s makrem, u kterého se zvolené buňky odešlou jako email na určené adresy a následně se uloží na disk jako PDF.
Problém je, že bych potřeboval, aby se v emailu odesílala i příloha ve formátu PDF toho souboru.
Nemohu přijít na to, jak to udělat.
Děkuji předem
EXCEL MACRO - pdf přiloha v emailu
- ITCrowd
- Tvůrce článků
-
Guru Level 13.5
- Příspěvky: 23625
- Registrován: březen 10
- Pohlaví:
- Stav:
Offline
Re: EXCEL MACRO - pdf přiloha v emailu
Ahoj,
k tomu bych potřeboval část makra, kde je popsán kód odeslání emailu. Email lze totiž odeslat různými způsoby.
k tomu bych potřeboval část makra, kde je popsán kód odeslání emailu. Email lze totiž odeslat různými způsoby.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
Re: EXCEL MACRO - pdf přiloha v emailu
Sub Odeslat()
FJmeno = Sheets("ZDROJ").Range("H2").Text
FDoklad = ActiveSheet.Range("H48").Text
FCislo = ActiveSheet.Range("E4").Text
a = Format(Now, "dd/mm/yyyy") & "_" & FJmeno & "_" & FDoklad & "_" & FCislo & ""
soubor = "G:\Logistika\Objednávky_2022\" & a & ".pdf"
ActiveSheet.Range("A1:J48").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
soubor, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Run "odemkni"
ActiveSheet.Range("A1:J48").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Zasílám objednávku materiálu"
.Item.To = "petr.dobrota@ediss.com;backoff@ediss.com,jan.misku@ediss.com"
.Item.Subject = "Objednávka materiálu"
.Item.Send
Run "cislo_listu"
Run "Smazat_hrom_OBJ"
Run "zamkni"
Range("D10").Select
ActiveWorkbook.Save
End With
End Sub
FJmeno = Sheets("ZDROJ").Range("H2").Text
FDoklad = ActiveSheet.Range("H48").Text
FCislo = ActiveSheet.Range("E4").Text
a = Format(Now, "dd/mm/yyyy") & "_" & FJmeno & "_" & FDoklad & "_" & FCislo & ""
soubor = "G:\Logistika\Objednávky_2022\" & a & ".pdf"
ActiveSheet.Range("A1:J48").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
soubor, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Run "odemkni"
ActiveSheet.Range("A1:J48").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Zasílám objednávku materiálu"
.Item.To = "petr.dobrota@ediss.com;backoff@ediss.com,jan.misku@ediss.com"
.Item.Subject = "Objednávka materiálu"
.Item.Send
Run "cislo_listu"
Run "Smazat_hrom_OBJ"
Run "zamkni"
Range("D10").Select
ActiveWorkbook.Save
End With
End Sub
- ITCrowd
- Tvůrce článků
-
Guru Level 13.5
- Příspěvky: 23625
- Registrován: březen 10
- Pohlaví:
- Stav:
Offline
Re: EXCEL MACRO - pdf přiloha v emailu
Doplň řádek:
.Item.attachments.add(file), kde file = např. "c:\data\soubor.pdf"
.Item.attachments.add(file), kde file = např. "c:\data\soubor.pdf"
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
USB Dongle - s Macro funkcionalitou
od Luis » 15 dub 2024 16:18 » v Rady s výběrem hw a sestavením PC - 1
- 1688
-
od rhsCZ
Zobrazit poslední příspěvek
15 dub 2024 16:50
-
-
- 1
- 2377
-
od mmmartin
Zobrazit poslední příspěvek
20 led 2024 19:21
-
- 16
- 8290
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 11
- 4668
-
od teichmann.ondrej
Zobrazit poslední příspěvek
22 dub 2024 15:45
-
-
- 1
- 1524
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 16 hostů