Вот попробуй еще и такой пример
[code:1]Add(MainForm,15930855,21,105) {
Left=20
Top=105
Font=[MS Sans Serif,8,0,0]
link(onCreate,548573:doFileExists,[])
}
Add(FileTools,548573,84,119)
{
link(onEnd,11092264:doEvent,[])
link(FileName,13324539:Value,[])
}
Add(Memory,13324539,84,63)
{
Default=String(C:\\555.txt)
}
Add(SMTP,3561224,189,119)
{
Subject="555txt"
Point(Attach)
link(onSend,7858509:doEvent,[])
link(Body,6884290:Text,[(223,107)(153,107)])
link(Attach,1144798:Array,[])
}
Add(IndexToChanel,7858509,252,119)
{
link(onEvent1,11015001:doMessage,[(303,125)(303,104)])
link(onEvent2,7128877:doMessage,[(303,132)(303,153)])
}
Add(StrList,1144798,210,49)
{
Strings='C:\555.txt'
}
Add(IndexToChanel,11092264,133,119)
{
link(onEvent2,3561224:doSend,[(177,132)(177,125)])
}
Add(Message,7128877,322,147)
{
Message="Письмо успешно отправлено"
Caption="Сообщение"
}
Add(Message,11015001,322,98)
{
Message="Невозможно отправить письмо"
Caption="Сообщение"
}
Add(StrList,6884290,147,49)
{
Strings=' '
}
[/code:1]