MS Excel

Spusťte mail, vyberte listbox, ctrl-c, vyberte mail, ctrl-v, doplňte adresu a pošlete.citovat

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

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