Re: jak dostat mail do Excelu

Díky, vyzkouším.

Thirsty

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