EXCEL MACRO - pdf přiloha v emailu

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Bubla91
nováček
Příspěvky: 9
Registrován: prosinec 16
Pohlaví: Muž

EXCEL MACRO - pdf přiloha v emailu

Příspěvekod Bubla91 » 29 dub 2022 20:14

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

Reklama
Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13
Guru Level 13
Příspěvky: 22421
Registrován: březen 10
Pohlaví: Muž

Re: EXCEL MACRO - pdf přiloha v emailu

Příspěvekod ITCrowd » 02 kvě 2022 09:26

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.
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

Bubla91
nováček
Příspěvky: 9
Registrován: prosinec 16
Pohlaví: Muž

Re: EXCEL MACRO - pdf přiloha v emailu

Příspěvekod Bubla91 » 02 kvě 2022 10:01

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

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13
Guru Level 13
Příspěvky: 22421
Registrován: březen 10
Pohlaví: Muž

Re: EXCEL MACRO - pdf přiloha v emailu

Příspěvekod ITCrowd » 02 kvě 2022 10:44

Doplň řádek:
.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


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • MACRO - musí být vyplněny buňky
    od Bubla91 » 04 kvě 2022 16:03 » v Kancelářské balíky
    1
    404
    od Grimm
    04 kvě 2022 16:47
  • Uložení všech příloh v emailu do jednoho souboru
    od Pelda01 » 14 říj 2021 10:53 » v Komunikace na internetu
    3
    790
    od gogo1963
    14 říj 2021 11:05
  • Poradí někdo založení Emailu s koncovkou .uk? (Anglie)
    od Minapark » 19 říj 2021 20:51 » v Komunikace na internetu
    10
    2001
    od Minapark
    04 pro 2021 13:54
  • Excel - derivace
    od FooDMasteR » 17 lis 2021 22:43 » v Kancelářské balíky
    2
    675
    od FooDMasteR
    18 lis 2021 21:02
  • Excel - odrážky
    od many11 » 07 lis 2021 21:58 » v Kancelářské balíky
    1
    599
    od elninoslov
    09 lis 2021 14:36

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 4 hosti