Re: jak dostat mail do Excelu

riesitelne to je ...
ale bude ta to otravovat ci povolis pristup, pri kazdom maily
toto vloz do makier v otlaku
a v rules si pridaj run script ....
-----------------cut --------------------------
Sub write_to_excel(it As MailItem)
txtbody = it.Body
mySearchPos = InStr(1, txtbody, vbCrLf)
txtbody = Left(txtbody, mySearchPos - 1)
Set myXLS = CreateObject("excel.application")
myXLS.Workbooks.Open "c:\temp\pokus.xls"
myXLS.Range("A1").Select
myXLS.Selection.End(-4121).Select
myXLS.ActiveCell.Offset(1, 0).Select
myXLS.ActiveCell = txtbody
myXLS.ActiveWorkbook.Save
myXLS.ActiveWorkbook.Close
myXLS.Quit
Set myXLS = Nothing
End Sub
---------------end cut ---------------------------
On 10/11/06, Thirsty < milos.balcar@gmail.com> wrote:
>
> Zdravím konferu,
> potřebuju vyřešit tohle: přijde mi mail, pravidlem v Outlooku (2003)
> si jej přesunu do nějaké složky.
> Dál ale potřebuju vzít z toho mailu první řádek (text) a vložit jej do
> tabulky v Excelu - tak aby každý příchozí mail přidal řádek na konec
> tabulky.
> Je to řešitelné? Předpokládám že pokud ano, tak asi nějakým makrem (a
> s těmi se moc nekamarádím). poradí mi někdo?
>
> Díky
> Thirsty
>



-- 
AleX