< návrat zpět

MS Excel


Téma: hromadný email z excelu rss

Zaslal/a 22.7.2021 9:58

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

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#051036
Jeza.m
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
#051051
avatar
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
#051052
avatar
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
#051056
Jeza.m
Je to jen o tom si to upravit k obrazu svému, třeba viz příloha.
Příloha: zip51056_e-mail.zip (37kB, staženo 40x)
citovat
#051059
avatar

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

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Vynásobit hodnoty kurzem - Power Query

lubo • 25.4. 19:18

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 15:12

Relativní cesta - zdroje Power Query

Alfan • 25.4. 15:08

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 14:21

Relativní cesta - zdroje Power Query

Alfan • 25.4. 10:49

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 10:47

Relativní cesta - zdroje Power Query

Alfan • 25.4. 10:40