使用 Chilkat 和 SQL Server 将单个电子邮件附件保存到 BLOB

Posted 2023-02-15

【中文标题】使用 Chilkat 和 SQL Server 将单个电子邮件附件保存到 BLOB

【英文标题】：Save a single email attachment to BLOB using Chilkat and SQL Server

【发布时间】：2019-02-13 06:11:20

【问题描述】：

Chilkat.IMAP 9.5.0.75 - ActiveX 和 SQL Server

在 SQL Server 中，我将邮箱中的所有新电子邮件提取到 SQL 表中，并保存 UID、主题、正文和日期。这很好用。

如果电子邮件有附件，我会尝试将它们作为 BLOB 保存在单独的表中。我成功地将 SaveAllAttachments 使用到文件系统，然后从文件系统中导入它们。但是，邮箱中的某些附件具有相同的文件名，我宁愿处理内存中的文件，而不是先将它们保存到文件系统中。

我尝试将 Chilkat.Email GetAttachmentData 直接用于 varbinary(max) 变量。它大于 4000 字节，所以我尝试使用表变量。还尝试使用 Chilkat.IMAP FetchAttachmentBytes 以相同的方式获得相同的结果：

直接到 varbinary(max) 变量：

声明@bin_file varbinary(max) EXEC sp_OAMethod @email, 'GetAttachmentData', @bin_file out, @j

结果：

ChilkatLog: 获取附件数据： 日期：2018 年 8 月 25 日 奇尔卡特版本：9.5.0.75 解锁前缀：*************** 架构：小端； 64 位 语言：ActiveX / x64 详细记录：0 指数：0 字节数：426484 成功。 --GetAttachmentData --ChilkatLog

@bin_file 为 null，即使它表示成功。我认为这是由于 4000 字节的限制，但我不确定。

到带有 varbinary(max) 列的表变量：

DECLARE @attach TABLE（附件 varbinary(max)） INSERT INTO @attach EXEC sp_OAMethod @email, 'GetAttachmentData', @j

结果：

ChilkatLog: 获取标头字段： 奇尔卡特版本：9.5.0.75 --GetHeaderField --ChilkatLog

由于某种原因，日志显示前一个命令不是 GetAttachmentData，就好像 SQL 正在跳过该语句一样。我正在使用相同的表变量方法来成功获取电子邮件正文属性。无论我使用 Chilkat.Email.GetAttachmentData 还是 Chilkat.IMAP.FetchAttachmentBytes，结果都是一样的。

这是整个脚本：

创建表 #email_uid (uid VARCHAR(1024))

DECLARE @hr int
DECLARE @iTmp0 int
DECLARE @sTmp0 nvarchar(4000)
DECLARE @imap int

EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Imap', @imap OUT
IF @hr <> 0
BEGIN
    PRINT 'Failed to create ActiveX component'
    RETURN
END

--  Anything unlocks the component and begins a fully-functional 30-day trial.
DECLARE @success int
EXEC sp_OAMethod @imap, 'UnlockComponent', @success OUT, 'hidden'
IF @success <> 1
  BEGIN
    EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
    PRINT @sTmp0
    EXEC @hr = sp_OADestroy @imap
    RETURN
  END

--  Connect to an IMAP server.
--  Use TLS
EXEC sp_OASetProperty @imap, 'Ssl', 1
EXEC sp_OASetProperty @imap, 'Port', 993
EXEC sp_OAMethod @imap, 'Connect', @success OUT, 'hidden'
IF @success <> 1
  BEGIN
    EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
    PRINT @sTmp0
    EXEC @hr = sp_OADestroy @imap
    RETURN
  END

--  Login
EXEC sp_OAMethod @imap, 'Login', @success OUT, 'hidden account name', 'hidden password'
IF @success <> 1
  BEGIN
    EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
    PRINT @sTmp0
    EXEC @hr = sp_OADestroy @imap
    RETURN
  END

--  Select an IMAP mailbox
EXEC sp_OAMethod @imap, 'SelectMailbox', @success OUT, 'Inbox'
IF @success <> 1
  BEGIN
    EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
    PRINT @sTmp0
    EXEC @hr = sp_OADestroy @imap
    RETURN
  END

DECLARE @messageSet int

--  fetch UIDs not sequence numbers.
DECLARE @fetchUids int
SELECT @fetchUids = 1

--  Return all messages.
DECLARE @allMsgs nvarchar(4000)
SELECT @allMsgs = 'ALL'

EXEC sp_OAMethod @imap, 'Search', @messageSet OUT, @allMsgs, @fetchUids
IF @messageSet Is NULL 
  BEGIN
    EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
    PRINT @sTmp0
    EXEC @hr = sp_OADestroy @imap
    RETURN
  END

--  Fetch the email headers into a bundle object:
DECLARE @bundle int

EXEC sp_OAMethod @imap, 'FetchHeaders', @bundle OUT, @messageSet
IF @bundle Is NULL 
  BEGIN
    EXEC @hr = sp_OADestroy @messageSet

    EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
    PRINT @sTmp0
    EXEC @hr = sp_OADestroy @imap
    RETURN
  end

-- get all UID's from the inbox; loop through them and download the if we haven't downloaded that UID before
DECLARE @i int

EXEC sp_OAGetProperty @bundle, 'MessageCount', @iTmp0 OUT
SELECT @i = 0
WHILE @i <= @iTmp0 - 1
  BEGIN
    DECLARE @email int

    EXEC sp_OAMethod @bundle, 'GetEmail', @email OUT, @i
    EXEC sp_OAMethod @email, 'GetHeaderField', @sTmp0 OUT, 'ckx-imap-uid'

    insert into #email_uid
    select @sTmp0

    EXEC @hr = sp_OADestroy @email

    SELECT @i = @i + 1
  end

-- delete UIDs we have already downloaded
  delete a
  from #email_uid a
  inner join email b on b.uid = a.uid

  declare @bUid int
      select @bUid = 1

  declare @s varchar(1024)

  select @s = min(uid) from #email_uid

  while exists (select 1 from #email_uid)
  begin

    --  Download the email by UID number.
    EXEC sp_OAMethod @imap, 'FetchSingle', @email OUT, @s, @bUid

    -- get number of attachments in the email
    DECLARE @numAttach int
    EXEC sp_OAMethod @imap, 'GetMailNumAttach', @numAttach OUT, @email

    declare @subject varchar(1024)
          , @date varchar(1024)
          , @from varchar(1024)
          , @body varchar(max)

    -- Fetch a longer property string into a temp table:
    DECLARE @tmp TABLE (emailBody ntext)
    INSERT INTO @tmp EXEC sp_OAGetProperty @email, 'Body'

    select @body = emailBody from @tmp

    EXEC sp_OAGetProperty @email, 'Subject', @subject out
    EXEC sp_OAGetProperty @email, 'From', @from out
    EXEC sp_OAMethod @email, 'GetHeaderField', @date OUT, 'Date'

    insert email ([UID],[Subject],[Date],[from],[Body])
    select @s, @subject, @date, @from, @body

    set @subject = null
    set @from    = null
    set @date    = null
    set @body    = null

    DECLARE @j int

    -- Loop through the attachments and insert them as BLOBS into attachment table
        SELECT @j = 0
        WHILE @j <= @numAttach - 1
          BEGIN
            DECLARE @filename nvarchar(4000)
            EXEC sp_OAMethod @imap, 'GetMailAttachFilename', @filename OUT, @email, @j
            PRINT @filename

            DECLARE @attach TABLE (attachment varbinary(max))
            INSERT INTO @attach EXEC sp_OAMethod @email, 'GetAttachmentData', @j

            IF not exists (select 1 from @attach) 
            BEGIN
              EXEC sp_OAGetProperty @email, 'LastErrorText', @sTmp0 OUT
              PRINT @sTmp0
              EXEC @hr = sp_OADestroy @email
              EXEC @hr = sp_OADestroy @imap
              RETURN
            end

            --declare @bin_file varbinary(max)
            --EXEC sp_OAMethod @email, 'GetAttachmentData', @bin_file out, @j
            --if @bin_file is null
            --BEGIN
              --EXEC sp_OAGetProperty @email, 'LastErrorText', @sTmp0 OUT
              --PRINT @sTmp0
              --EXEC @hr = sp_OADestroy @email
              --EXEC @hr = sp_OADestroy @imap
              --RETURN
           --END

            insert into [dbo].[email_attachment] (UID,Filename,Attachment)
            select @s, @filename, attachment
            from @attach

            delete @attach

            select @j = @j + 1
          END

 EXEC @hr = sp_OADestroy @email

 delete from #email_uid where uid = @s

 select @s = min(uid) from #email_uid

 end

--  Disconnect from the IMAP server.
EXEC sp_OAMethod @imap, 'Disconnect', @success OUT

EXEC @hr = sp_OADestroy @messageSet
EXEC @hr = sp_OADestroy @bundle
EXEC @hr = sp_OADestroy @imap

谢谢， 达林

【参考方案1】：

方法的名称应该是 GetAttachmentData（不是 GetAttachmentBytes）。见https://www.chilkatsoft.com/refdoc/xChilkatEmailRef.html#method72

我不确定为什么当您使用名称“GetAttachmentBytes”时 SQL 没有引发/返回错误。它似乎只是跳过了那句话。

【讨论】：

谢谢@Matt。这是我粘贴的代码中的一个错字，因为我同时尝试了 Chilkat.IMAP 和 Chilkat.Email（分别为 FetchAttachmentBytes 和 GetAttachmentData）。我确实将其更正为 GetAttachmentData 并得到了相同的结果。出于某种原因，当我使用表变量方法（INSERT INTO (at)attach EXEC sp_OAMethod (at)email, 'GetAttachmentData', (at)j）时，它就像跳过该语句一样。我正在使用完全相同的方法来成功获取电子邮件正文属性。因此，我更正了方法名称，并且 LastErrorText 属性保持不变。

您认为我需要将文件拉入 Chilkat.BinData 容器中才能使用它吗？