EXCEL MACRO - pdf přiloha v emailu

[Bubla91]

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]

[Uziv00]

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.

[Bubla91]

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

[Uziv00]

Doplň řádek:
.Item.attachments.add(file), kde file = např. "c:\data\soubor.pdf"