ХЕЛП!!! - VB

Помогите - гарю!
Нада написать макрос который приклеивает файл к письму...
Почтовик - не Аутлук.
Перепробовал уже все....
нашел вот такие 3 варианта, они тоже не пашут...
Как быть?
1
С использованием микрософт мапи контролз 0.6....
With MAPIMessages
MAPISession.SignOn
.SessionID = MAPISession.SessionID
.MsgIndex = -1
.Compose
.AttachmentIndex = 0
.AttachmentPathName = PathFile
.MsgSubject = "Âûãðóçêà íàêëàäíûõ îò " & Date
.RecipAddress = sAdres
.Send
MAPISession.SignOff
End With
2
Private Sub Sen()
Dim out As Object
Set out = CreateObject("CDO.Message")
out.Textbody = "bla bla bla"
out.From = "От меня "
out.To = "removed@mail.ru"
'out.CC =
out.Subject = "Subject"
out.Send
Exit Sub
End Sub
3
Set objMessage = New CDO.Message
Set objConfig = New CDO.Configuration
With objConfig
.Fields(cdoSendUsingMethod) = cdoSendUsingPort
.Fields(cdoSMTPServer) = objMail.SMTPServer ' IP-адрес почтового сервера'
.Fields(cdoSMTPServerPort) = CInt(objMail.SMTPServerPort) ' SMTP порт (обычно 25)'
.Fields(cdoSMTPConnectionTimeout) = CInt(objMail.SMTPServerTimeout)
.Fields(cdoSMTPAccountName) = objMail.MailUserAccountName 'имя пользователя'
.Fields(cdoSMTPAuthenticate) = cdoBasic
.Fields(cdoSendUserName) = objMail.MailUserName 'имя при входе в почтовик'
.Fields(cdoSendPassword) = objMail.MailUserPassword 'пароль'
.Fields.Update
End With
With objMessage
.To = SendTo
.From = objMail.MailUserAddr
.Subject = "Тема письма"
.TextBody = TextBody
' если есть вложения, то прикрепляем'
.AddAttachment FileSpec (путь к прикрепляемому файлу)
Set .Configuration = objConfig
End With
objMessage.Send
Помогите кто может - гарю!