MS Excel

Ahoj, měl bych na Vás excelový profíky dotaz. Mám jednoduchý makro, které mě dle šablony pošle z excelu rovnou email několika příjemcům.

Je tam uděláno i "okénko" na přílohu.

Je nožnost nějak dopsat do toho makra, aby po kliknutí na buňku ve sloupečku ATTACHMENT vyskočilo okno, kde bych vybral soubor, který bych chtěl vybrat a automaticky se mi propsala cesta?

A zároveň, aby mi to z názvu souboru extrahovalo jméno souborupod sloupeček FILE NAME?

Mockrát díky

Zaslat odpověď >

Jeza.m(22.7.2021 14:45)#051036

Dim fd As FileDialog
Dim max As Single
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.AllowMultiSelect = True
fd.Filters.Clear
fd.Filters.Add "Obrázek", "*.jpg"
fd.Title = "Vyber Obrázky"
fd.Show
If fd.SelectedItems.Count = 0 Then Exit Sub
For Each it In fd.SelectedItems
MsgBox "Soubor: " & Dir(it) & vbNewLine & "Cesta: " & it
Next

Filtr souborů upravit dle potřeby
Do smyčky pak lze přidat vkládání příloh do meilu, něco jako eml.attachments.add ....
Případně výpis názvu souboru kamkoliv.

M@citovat

milos85(26.7.2021 7:00)#051051

Ahoj,

hele děkuji za makro. Ale asi jsem to špatně vysvětlil. To Tvoje funguje tak, že když kliknu na tlačítko, ke kterému je přiřazené makro, tak se mě to teprve zeptá na soubor. Ale můžu přiložit pouze jeden.

Kdybych měl více příjemců, chtěl bych vybrat jiný soubor pro každého z nich.

A právě, že by to bylo tím klikem,do sloupce attachment!

Ještě jednou díky moc a omlouvám se, že jsem to vysvětlil blbě?citovat

Milan-158(26.7.2021 8:56)#051052

Není úplně pravda, že můžeš přiložit pouze jeden soubor, v rámci jednoho adresáře se Shiftem můžeš označit více příloh.

Tvé druhé "lepší" vysvětlení je postiženo stejnou mlhavostí jako to první, takže sorrycitovat

Jeza.m(26.7.2021 14:48)#051056

Je to jen o tom si to upravit k obrazu svému, třeba viz příloha.

Příloha: zip

51056_e-mail.zip (37kB, staženo 42x)

citovat

milos85(27.7.2021 7:04)#051059

Jeza.m napsal/a:

Je to jen o tom si to upravit k obrazu svému, třeba viz příloha.Příloha: 51056_e-mail.zip (37kB, staženo 6x)

Díky moc, to je přesně ono...citovat

Téma: hromadný email z excelu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje