Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft SQL Server Новый топик    Ответить
 а как послать содердимое image атачментом  [new]
maniano
Member

Откуда:
Сообщений: 9
Есть таблица (table_1) в которой есть поле типа image которое содержит файлы закачиваемы\скачиваемые через ASP и есть процедура (sp_1) которая посылает email иногда, а как сделать что бы к емайлу прикреплялись файлы из table_1 ?
sp_1 использыет sp_OACreate 'CDO.Message' что бы слать емайл. Если у кого-нибудь есть кусок работающего кода, или кто-то знает где это описывается - было бы очень здорово.
15 окт 03, 23:21    [378542]     Ответить | Цитировать Сообщить модератору
 Re: а как послать содердимое image атачментом  [new]
Maxx
Member [скрыт]

Откуда:
Сообщений: 24290
Dim iMsg as New CDO.Message

Dim iConf as New CDO.Configuration

Dim Flds as ADODB.Fields
Set Flds = iConf.Fields

With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServerName) = "somehost@microsoft.com"
.Item(cdoSMTPConnectionTimeout) = 10 ' quick timeout
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "username"
.Item(cdoSendPassword) = "password"
.Item(cdoURLProxyServer) = "server:80"
.Item(cdoURLProxyBypass) = "<local>"
.Item(cdoURLGetLatestVersion) = True
.Update
End With

With iMsg
Set .Configuration = iConf
.To = """User A"" <userA@microsoft.com>"
.From = """User B"" <userB@microsoft.com>"
.Subject = "Hows it going? I'
ve attached my web page"
.CreateMHTMLBody "
http://mypage"
.AddAttachment "
C:\files\mybook.doc"
.Send
End With

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_messaging.asp
16 окт 03, 10:01    [378841]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft SQL Server Ответить