ник: kaszbk
Да файл ,путь есть . Вот что я имею.
Private Sub Кнопка2_Click()
Dim oMSG As Object
Dim oConfig As Object
Dim CFields As Object
Dim strBody As String
'создаем объект Message это наше письмо
Set oMSG = CreateObject("CDO.Message")
'создаем объект Configuration это настройки соединения
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" 'адрес SMTP сервера
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "login" 'Login
'CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123" 'пароль
CFields("urn:schemas:mailheader:content-language") = "windows-1251"
CFields.Update
oMSG.To = "login@mail.ru" 'адрес получателя
oMSG.From = "login@mail.ru" 'адрес отправителя
oMSG.Subject = "Тема" ' тема письма
oMSG.BodyPart.Charset = "windows-1251" ' кодировака письма
oMSG.AddAttachment "C:\files\mybook.doc" 'путь к вложенному файлу"
'формируем HTML текст который будет телом письма
strBody = "Здесь HTML текст." & _
"C уважением, osmor"
oMSG.HTMLBody = strBody 'тело письма
oMSG.Send 'отправляем 'Здесь тормоза............................................
'обнуляем переменные
Set CFields = Nothing
Set oConfig = Nothing
Set oMSG = Nothing
End Sub
И еще, как можно связаться с Прусом.