» Poradna » Programy

Export dat z excelu do emailu (Outlook) pomocou makra (VBA)

 |   |  Microsoft Windows 7 Chrome 55.0.2883.87

Dobry den.Chcel by som vas poprosit o radu.Mam excel subor a v nom tabulku a graf.Toto by som chcel "vyexportovat" do noveho emailu.V nom by sa automaticky zadali prijemcovia a definoval text.Napr. "Dobry den.Posielam vysledky.Dakujem."Toto vsetko by som chcel spravit cez tlacitko (VBA makro).Prikladam kod na spodu.Problem je v tom, ze ked otvorim excel subor, stlacim tlacitko tak mi vypise chybu a odkaze sa na tento riadok:wEditor.Application.Selection.PasteKed to zrusim a spustim opat, tak uz to funguje.Viete mi s tym poradit prosim?Kod:Sub Tlacidlo15_Kliknut() Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .display .to = "prijemcovia" .CC = "" .BCC = "".Subject = "Výsledky z GP12" .HTMLbody = "Dobrý deo." & "<br>" & "<br>" & "Posielam výsledky z GP 12" & "<br>" & "<br>" & "<br>" ActiveSheet.Range("B1:P29").CopyPicture xlScreen, xlBitmap Set vInspector = OutMail.GetInspector Set wEditor = vInspector.wordEditor Set wEditor = OutApp.ActiveInspector.wordEditor wEditor.Application.Selection.Start = Len(.HTMLbody) wEditor.Application.Selection.End = wEditor.Application.Selection.Start wEditor.Application.Selection.Paste End With Set OutMail = NothingSet OutApp = Nothing End SubDakujem vopred za odpovede.S pozdravomMiroslav.

Mohlo by vás také zajímat


Související témata: Export dat