Программная отправка текста по электронной почте

Option Explicit
 
Sub send_mail_CDO()
Dim MSG As New CDO.Message
MSG.to = "user1@rambler.ru" '-> адрес получателя
MSG.From = "user2@rambler.ru" '-> от кого
MSG.Subject = "С днём рождения" '-> Тема
MSG.textbody = "С днём рождения, желаю счастья и здоровья" '->тело письма
MSG.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configu...") = 2 '->тип отправки, в данном случае SMTP
MSG.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configu...") = "smtp.corp.net" '->Адрес SMTP Сервера
MSG.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configu...") = "1? '->Способ аунтификации (0 - нет, 1 - простой, 2 - NTLM аунтификация) "
MSG.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configu...") = "boss" '->имя пользователя
MSG.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configu...") = "parol" '->пароль пользователя
MSG.Configuration.Fields.Item("urn:schemas:mailheader:content-language") = "windows-1251? '->кодировка "
MSG.Send '-> команда отправить
End Sub
Private Sub Command1_Click()
Call send_mail_CDO
End Sub