ник: k@s
Перепробовал все (ну может не все) 
через thebat не понравилось(глюки разные) , взял за основу эту ссылку http://hiprog.com/index.php?option=com_content&task=view&id=458 и на ее основе переделал с помощью участников форума hiprog под свои нужды и вот что получилось. Отправляет прикрепленные фалы.Работает без сбоев.А для приема использовал freemail.
MsgText = 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") = "имя пользователя" ' должен совпадать в oulook express и Учетная запись должна стоять по умолчанию
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "пароль" ' должен совпадать в oulook express и Учетная запись должна стоять по умолчанию
'objEmail.From = MsgFrom
objEmail.AddAttachment ("c:\1.txt")
objEmail.AddAttachment ("c:\2.txt")
objEmail.To = "адрес Email кому"
objEmail.Subject = "Высылаю 2 файла" 'Тема
objEmail.TextBody = MsgText '("ау ау")
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yandex.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
End Sub