нашел пример отправки почты из акц.2003 по smtp, но не работает ... может нужно подключать библиотеку MS CDO 1.2 или что-нибудь в этом духе? ошибка вылетает какая-то странная, и кодировка сбита, непонятно ...

2 serrock
http://hiprog.com/index.php?option=com_content&task=view&id=458
2 Format
зачем?

smtp сервер корпоративный, я в сети ... у меня есть выход в i-net, почта ... может как то не так надо?
на всякий случай привоже код, но он в принципе Ваш, хотя ...

Dim oMSG As Object Dim db As DAO.Database Dim rst As DAO.Recordset Dim oConfig As Object Dim CFields As Object Dim strBody As String Set db = CurrentDb Set rst = db.OpenRecordset("Address_Test") Set oMSG = CreateObject("CDO.Message") Set oConfig = CreateObject("CDO.Configuration") Set CFields = oConfig.Fields Set oMSG.Configuration = oConfig CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"  CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "rokin999" 'Login CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456789" 'password CFields("urn:schemas:mailheader:content-language") = "windows-1251" CFields.Update oMSG.To = "rokin@r66.ru"  oMSG.From = "rokin999@mail.ru"  oMSG.Subject = "Theam"  oMSG.BodyPart.Charset = "windows-1251" oMSG.AddAttachment "c:\temp\Test0.rtf"  strBody = "123"  oMSG.TextBody = strBody  oMSG.Send  Set CFields = Nothing Set oConfig = Nothing Set oMSG = Nothing

на отправке

этот логин который вы указываете это логин на Mail.ru?

проверьте есть ли соединение с smtp.mail.ru по 25 порту
(телнетом или настройте outlook express с такими же параметрами)
есть подозрение что соединиться не может

для начала нужно проверить наличие соединения с серверов по SMTP
может он у вас где-то режется на выходе/входе в корпоративную сеть?

Попробуй это код , у меня работает.
On Error Resume Next
Dim MsgText, MsgFrom, Otkuda
Dim objEmail
Set objEmail = CreateObject("CDO.Message")

Otkuda = InputBox("Город")


objEmail.BodyPart.Charset = "windows-1251"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "rokin999"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456789"
MsgFrom = ("rokin999@mail.ru")
objEmail.From = MsgFrom
objEmail.AddAttachment ("c:\text.txt")
objEmail.AddAttachment ("c:\text1.txt")
objEmail.To = "rokin999@mail.ru"
'objEmail.From = MsgSubject
objEmail.Subject = Otkuda
objEmail.TextBody = MsgText '("text")
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update

objEmail.Send

If Err.Number <> 0 Then
MsgBox "Отправка письма невозможна по причине: " & Err.Description, , Err.Number
Else
'DoCmd.Close acForm, Me.Name
MsgBox "Сообщение " & ("") & " успешно отправлено."
Err.Clear
End If
Set objEmail = Nothing

ага, я разобрался, вся заморочка была в том, что администраторы и программисты у нас - два разных независимых отдела, и когда я понял, что ни ping, ни tracert не проходят, насел на главного сисадмина, он мне открыл какие-то доступы (до этого сказал, что все открыто), после чего заработало (правда, все равно через зад-цу, видно это парадигма их работы такая) ... Вобщем зря только вам морочил голову
Еще вопрос, а как отправить несколько вложенных файла, попробовал перечислить их через запятую, но отправился только первый
А можно ли на 2-3 адреса ...

ok, спасибо