PC-HELP.CZ

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

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ý.

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

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

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.

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

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

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

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

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

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