MS Excel

Ahoj,
řeším jednu věc, která by mi do budoucna měla šetřit čas, ale zatím to je nějak naopak :-(. Už nad tím sedím týden a jsem stále na začátku.

Přiložil jsem obrázek jak vypadá tabulka a potřebuji udělat tři kroky, než pošlu email.

1- přiložit přílohu, to bylo jednoduchí i pojmenování.

2- vygenerovat příjemce, tady jsem už v konci a stále nevím jak na to. Mám předefinovaných asi 10 emailů a pokud se někdo z těchto emailu ukáže v sloupku TL oddělení, tak bych potřeboval na něj odeslat tento email + podle nich bych potřeboval poslat i kopii na jeho nadřízeného. Jména a emaili samozřejmě vím, ale jak vygenerovat seznam a ten pak přidat do adres komu a kopie ?

3- Jak do emailu dostanu nějaký text s podpisem ? Na tohle jsem vůbec nepřišel, našel jsem moře věcí na netu, ale všechno k ničemu :-(. Předmět se my vygeneruje v pořádku, ale tělo je prázdné a já bych tam potřeboval jednu dvě věty dostat + podpis :-(.

Počítám s tím, že to je asi neřešitelné, ale chtěl jsem to aspoň zkusit.

Moc děkuji za pomoc.

Košinár

Zaslat odpověď >

Palooo(13.1.2014 8:54)#017217

takto neviem ci viete programovat alebo neviete

ale tak odpoviem ako programatorovi

tu vam posielam makro ktore odosiela mail s prilohou uz len si ho dajte do cyklu podla poziadaviek ako ho potrebujete

Příloha: zip

17217_mail.zip (12kB, staženo 135x)

citovat

dream2003(13.1.2014 9:51)#017222

dobrý den,

mé řešeni podpisu a textu

Dim myOutlook As Object
Dim myMailItem As Object
Dim signature As String

Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.createitem(olMailItem)
Rem podpis v html
With otlNewMail
.display
End With
signature = otlNewMail.htmlbody
Rem text zpravy v html
textzpravy = "Dobrý den," & "<br><br>" & "v příloze report za včerejšek"

With otlNewMail

.To =
.CC = " '(email id of cc person)
.Subject = "report - " & Format(Now - 1, "dd.mm.yyyy") 'predmet text + datum -1

.htmlbody = "<html><body>" & textzpravy & signature 'vlastní email
.Attachments.Add ActiveWorkbook.FullName 'přidá přílohu
.display 'zobrazí email .send ihned odesílá
End With
Set otlNewMail = Nothing
Set otlApp = Nothing
Set otlAttach = Nothing
Set otlMess = Nothing
Set otlNSpace = Nothing

End Subcitovat

Martin K.(13.1.2014 17:22)#017233

Dobrý den,
oboum moc děkuji. Zkusil jsem oboje a oboje funguje, to druhé má určíte plus, a tím je možnosti HTML. Díky tomu mám text zprávy vyplnění a nikdo nepozná, že to posílal automat :-).

No jediný problém teď je ta proměná komu to posílat. Problém je v tom, že já ty hodnoty .To a .CC nevím. Ty se mění podle množství artiklů a druhu zboží. Jedná se o jména vedoucích oddělení a jejich nadřízených. Pomocí makra, si vygeneruji jména, komu jaký artikl patří a jaký je jeho nadřízení. Díky tomu oni pak následně mohou filtrovat. A já bych potřeboval ze sloupce "D" dosadit jména do .To a ze sloupce "E" do .CC.

A to je zatím to nejtěžší pro mě.

Jinak nejsem programátor, ale snažím se a učím se jak to jde, ale bohužel občas narazím ajsem v koncích. Proto jsem se přihlásil i na toto forum. Snažím se si prvně poradit sám, ale někdy to prostě neprojde.

PS : Nevíte nějaký web, kde jsou ikonky/obrázky ?

Příloha: zip

17233_odeslani.zip (20kB, staženo 59x)

citovat

Martin K.(13.1.2014 20:14)#017240

Neuvěřitelné, ale přišel jsem nato...

Akorát mám jediný problém, nevíte někdo jak přepnout okno z emailu do excelu ? Dal jsem tam dotaz na to jestli odeslat nebo ne, ale vždy se mi před to dostane okno toho vytvořeného emailu a mě se nedaří ho nějak přeskočit, aby byla vidět ta hláška...

Nakonec jsem vyrtvořil velice elegantně :

.To = Range("X2").Value + ";" + Range("X3").Value

Tímto příkazem, tam dám jakékoliv jméno, které vyfiltruji v buňce X2 + další a další. Díky funkci remove duplicate a trochy kopírování :-). Není to elegantní, ale rychlí a funkční :-).citovat

Téma: Odeslání mailu - s třema podmínkama.

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje