а как послать содердимое image атачментом

maniano

Дата: 15.10.2003 23:21:41

Есть таблица (table_1) в которой есть поле типа image которое содержит файлы закачиваемы\скачиваемые через ASP и есть процедура (sp_1) которая посылает email иногда, а как сделать что бы к емайлу прикреплялись файлы из table_1 ?
sp_1 использыет sp_OACreate 'CDO.Message' что бы слать емайл. Если у кого-нибудь есть кусок работающего кода, или кто-то знает где это описывается - было бы очень здорово.

Maxx

Дата: 16.10.2003 10:01:56

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