Помогите - гарю!
Нада написать макрос который приклеивает файл к письму...
Почтовик - не Аутлук.
Перепробовал уже все....

нашел вот такие 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 = "ddd@ddd.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

Помогите кто может - гарю!

Во первых ни в одном из вариантов не прикрепляется файл - пишет типа нет такой функции, во вторых невозможно ввести параметры в 3ем варианте (Configs) а это обязательный пункт...

Теперь прекрипляется, но настройки до сих пор не встают на место... в общем щас прога выглядит так -

Sub x()


Dim objMessage

Dim objConfig

Set objMessage = New CDO.Message

Set objConfig = New CDO.Configuration



With objConfig

.Fields(cdoSendUsingMethod) = cdoSendUsingPort

.Fields(cdoSMTPServer) = Mail ' IP-àäðåñ ïî÷òîâîãî ñåðâåðà'

.Fields(cdoSMTPServerPort) = 25 ' 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

Dim fName As String

fName = "C:\Temp1.pdf"

With objMessage

.To = "ччччч@ччччч.ru"

.From = "ччччч@ччччч.ru"

.Subject = "Тема"

.TextBody = TextBody

AttachmentPathName = fName

Set .Configuration = objConfig

.Send

End With



End Sub

Некоторые настройки не используются например такие как пароль для почты...
в общем немогу ети настройки сделать.... Щас ошибку выдает на .Send и пишет : At least one of the Form or Sender fields is required, and neither was found. Уже все перекрутил! Нивиха! В чем ошибка? И еще - там в Реферах есть 2 библиотеки ЦДО, одна из них для NT она только для NT или надо обе подрубать?

Операционка - Виндоус 2000 про. Нашел еще одну ошибку - забыл подрубить Microsoft ActiveX Data Objects 2.5 Library но всеравно на .Send ошибка - прада уже другая:

The message could not be sent to SMTP server. The transport error code was 0x80070057. The server response was not available...

ДНС имя

угу