Makro na odeslaní emailu

[luko02420]

Dobrý den, měl bych prosbu o úpravu makra na odeslání emailu našel jsem toto makro a potřeboval bych ho upravit následovně pokud to půjde.
Aby při odeslání mě to k předmětu zprávy vložilo obsah buňky B5 a do buňky B6 se vypsala zpráva o odeslání.
Děkuji všem za ochotu.

Sub ExcelSendMail()

'aktivní sešit jako příloha

Dim aKomu()

'adresáti
aKomu = Array("nekdo@aaa.cz")

'odeslání s uvedením předmětu zprávy
ActiveWorkbook.SendMail aKomu, "Dodací list"

End Sub

[guest]

http://excelplus.net/jak-odeslat-e-mail-z-excelu/

[luko02420]

Děkuji z této stránky to makro mám ale přiznám se nedokážu v těch ostatních kódech najít proceduru,(pokud tam je) kterou jsem popsal v úvodu. Vím, že jsu otravný.

[guest]

a) objekt Range
b) jediné, co by mělo smysl, je zpráva o doručení

[luko02420]

Jsem si to myslel, že s tím oznámením bude asi problém. Každopádně děkuji za první radu to je pro mě důležitější. Ještě jednou děkuji.

Dodatečně přidáno po 25 minutách 28 vteřinách:
Myslel jsem, že to dám dohromady ale zřejmě jsu úplný trotl. Můžu poprosit napíšete mě to makro? Já vím je to ode mě neustálý otravování ale předem děkuji za ochotu

[guest]

Takhle od boku nenapíšu. Osobně bych použil CDO, nevím jestli máte Outlook, každopádně jste si nevybral nejlepší způsob.

[luko02420]

Ano mam outlook, ono to makro funguje perfektně ja bych tam potřeboval jenom ke zprávě v předmětu vložit udaje z buňky B5

[guest]

No je to jedna z nejhorších variant, ale jak myslíte.

ActiveWorkbook.SendMail aKomu, ActiveSheet.Range("B5")

[luko02420]

No ja tomu nerozumim, tak nevim proč je to ta nejhorší varianta ale pokud bude fungovat jak potřebuju tak moc děkuji.

[guest]

Kvůli to mu potvrzování přeci, chlape...

[luko02420]

Jsem si to myslel ale to je pro mě to nejmenší. Díky moc