Poradna - Export dat z excelu do emailu (Outlook) pomocou makra (VBA)
hlavní kategorie | zpět | + odpovědět na toto témaExport dat z excelu do emailu (Outlook) pomocou makra (VBA) - diskuze na toto téma |
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.Paste
Ked 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 = ""
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Dakujem vopred za odpovede.
S pozdravom
Miroslav. Pre doplnenie prikladam spominany excel subor pre lepsiu predstavu.
Dakujem.
Miroslav. Odpověď Nebylo by od věci uvést verzi Office. Zkoušel jsem na Office 2007, kód proběhl bez chyby. Odpověď Dakujem za test na MS Office 2007.
My mame v praci MS Office 2010.
Mozete to otestovat na MS Office 2010?
Dat to niekomu kto ho ma nainstalovany.
Dakujem.
Miroslav. Odpověď Tak sem se dostal k office 2010. Opravdu na této verzi kód nefunguje. Zastaví se na řádku "wEditor.Application.Selection.Start = Len(.HTMLbody)" s chybou "Object varible or With block varible not set". Bohužel nejsem schopen chybu odstranit.
Zkus svůj dotaz položit na www.wall.cz Odpověď |