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ž
Stav:
Offline

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.5
Guru Level 13.5
Příspěvky: 23592
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

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ž
Stav:
Offline

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.5
Guru Level 13.5
Příspěvky: 23592
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

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
  • Odesílání emailu bez mého vědomí
    od trudy557 » 20 led 2024 19:16 » v Komunikace na internetu
    1
    1469
    od mmmartin Zobrazit poslední příspěvek
    20 led 2024 19:21
  • Excel a OneDrive
    od sginfo » 11 zář 2023 15:28 » v Kancelářské balíky
    16
    6000
    od mirekol Zobrazit poslední příspěvek
    20 říj 2023 08:31
  • excel-posun makra
    od actionboy » 12 bře 2024 18:59 » v Kancelářské balíky
    1
    266
    od Grimm Zobrazit poslední příspěvek
    12 bře 2024 21:43
  • Excel - vlastní formát Příloha(y)
    od Story-Long » 11 srp 2023 14:50 » v Kancelářské balíky
    3
    1842
    od Story-Long Zobrazit poslední příspěvek
    14 srp 2023 10:11
  • Excel - funkce když
    od Martyn20 » 13 črc 2023 11:56 » v Kancelářské balíky
    5
    2325
    od mmmartin Zobrazit poslední příspěvek
    13 črc 2023 18:44

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

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti