Отправка вложений - VB

Формулировка задачи:

День добрый есть вот такой скрипт VBS

Option Explicit
 
'Содание объекта CDO
Dim objmes
Set objmes=CreateObject("CDO.Message")
 
'От кого и кому
Dim from
Dim whom
from="removed@mail.ru" 'адрес отправителя
whom="removed@mail.ru"   'адрес получателя
 
'Тема и текст сообщения
Dim theme
Dim text
theme="Привет"
text="Тебе пришло письмо"
 
'Конфигурация
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2    
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = from
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*******"
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 
'Заполнение письма
objmes.From=from
objmes.To=whom
objmes.Subject=theme
objmes.TextBody=text
 
'Обновление данных и отправка письма
objmes.Configuration.Fields.Update
objmes.Send

С письмом нужно отправить вложение, файлы из папки, как это реализовать, не подскажете?

Решение задачи: «Отправка вложений»

textual
                            Листинг программы 
                        

                            Dim oMyMail
 
Set oMyMail = CreateObject("CDO.Message")
 
oMyMail.To = "Administrator@nwtraders.msft"
oMyMail.From = "Administrator@nwtraders.msft"
oMyMail.Subject = "Hello from CDO"
oMyMail.TextBody = "Our letter"
oMyMail.AddAttachment "C:\1.txt"
oMyMail.Send
                        