Spusťte mail, vyberte listbox, ctrl-c, vyberte mail, ctrl-v, doplňte adresu a pošlete.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: ako poslat obsah listboxu v maile
MS Excel
Téma: ako poslat obsah listboxu v maile 
Zaslal/a 12.12.2015 13:44
Ahojte potreboval by som poradit ako by sa dal obsah listboxu poslat mailom.
Dakujem
Pred časom som použil CDO, niečo takéto, tak si to upravte. Máte tam obe verzie aj z formuláru aj z listu.
Příloha: 
28661_priklad-mail.rar (20kB, staženo 25x)
citovat28661_priklad-mail.rar (20kB, staženo 25x)Elninoslov poslal velmi přehledně vytvořený mustr na použití CDO k odesílání mailů. Jen bych dodal (pro ty, kteří se s ním dosud nesekali), že vlastnosti SendUserName a SendPassword musí patřit vaší existující adrese na Gmailu, který použil elninoslov jako SMTserver ve své proceduře. Podobně lze za SMTserver zvolit např. i Seznam, pokud vaše schránka leží tam.
Proceduru lze snadno rozšířit o odesílání na více adres najednou a zejména o přikládání příloh k mailu. V této úpravě používá podobnou proceduru můj klient již dva roky s frekvenci mnoha odeslaných mailů za den, a to bez jakýchkoliv avizovaných poruch. Podstatné pro moji tehdejší volbu bylo, že klient nevlastnil velký Outlook, bez nějž jiné mně známé metody nedovolovaly přidávat přílohy k mailu.citovat
Proceduru lze snadno rozšířit o odesílání na více adres najednou a zejména o přikládání příloh k mailu. V této úpravě používá podobnou proceduru můj klient již dva roky s frekvenci mnoha odeslaných mailů za den, a to bez jakýchkoliv avizovaných poruch. Podstatné pro moji tehdejší volbu bylo, že klient nevlastnil velký Outlook, bez nějž jiné mně známé metody nedovolovaly přidávat přílohy k mailu.citovat
(24.12.2015 16:33)#028813
Dobry den, v podstate funguje ak chcem poslat jeden item z listbox ale ako upravym kod ak bz som chcel poslat viacero items? dakujem
Prajem pekne sviatkycitovat
Prajem pekne sviatkycitovat
Zabudnutá téma ?
Pre ListBox na liste
...
Dim s As String, i As Integer
With Worksheets("List2").ListBoxes("lbVyber") 'Je vhodné si LB premenovať
For i = 1 To UBound(.List)
If .Selected(i) Then s = s & IIf(s = "", "", ", ") & .List(i)
Next i
End With
.TextBody = s
...
Pre ListBox na UserForm-e
...
Dim s As String, i As Integer
With UserForm1.lbVyberForm
For i = 0 To .ListCount - 1
If .Selected(i) Then s = s & IIf(s = "", "", ", ") & .List(i)
Next i
End With
.TextBody = s
...citovat
Pre ListBox na liste
...
Dim s As String, i As Integer
With Worksheets("List2").ListBoxes("lbVyber") 'Je vhodné si LB premenovať
For i = 1 To UBound(.List)
If .Selected(i) Then s = s & IIf(s = "", "", ", ") & .List(i)
Next i
End With
.TextBody = s
...
Pre ListBox na UserForm-e
...
Dim s As String, i As Integer
With UserForm1.lbVyberForm
For i = 0 To .ListCount - 1
If .Selected(i) Then s = s & IIf(s = "", "", ", ") & .List(i)
Next i
End With
.TextBody = s
...citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články