SQL2000調用JMail接收郵件

这是一个创建SQL Server 2000存储过程的示例,该存储过程使用JMail组件来接收电子邮件。它遍历邮件收件人、抄送人,保存附件到本地,并将邮件信息插入到MsgMailInfo表中。
摘要由CSDN通过智能技术生成
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SP_RECEIVE_MAIL]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SP_RECEIVE_MAIL]
GO

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

CREATE PROCEDURE  SP_RECEIVE_MAIL
AS
BEGIN

 DECLARE @object INT,@hr INT
 
 DECLARE @nCount INT ,@n INT ,@m INT,@k INT
 DECLARE @Separator VARCHAR(1),@ReTo VARCHAR(200),@ReCC VARCHAR(200)
 
 DECLARE @Msg INT ,@nRecipients INT ,@ReType INT,@nAttachments INT 
 DECLARE @PropertyName VARCHAR(50)
 DECLARE @Recipients INT ,@Recipient INT
 DECLARE @MailName VARCHAR(200),@MailEmail VARCHAR(200)
 DECLARE @Attachments INT,@Attachment INT
 DECLARE @AttachmentName VARCHAR(200)
 DECLARE @MsgID INT
 
 DECLARE @FSOobject INT
 DECLARE @FileName VARCHAR(200)
 DECLARE @isExists BIT
 
 DECLARE @MsgDate NVARCHAR(100)
 DECLARE @MsgSubject NVARCHAR(400)
 DECLARE @MsgFromName NVARCHAR(200)
 DECLARE @MsgBody NVARCHAR(4000)
 DECLARE @MsgAttachment NVARCHAR(200)
  
 SET @nCount=0
 -------創建JMail.Message?象
 EXEC @hr = SP_OACreate 'jmail.pop3', @object OUTPUT
 
 EXEC @hr = SP_OAMethod @object, 'Connect',NULL, 'Jesse@cpjdi.com', '123456', '121.13.*.*'
 --EXEC sp_OAGetErrorInfo @object --查看詳細錯誤信息
 
 EXEC @hr = sp_OAGetProperty @object, 'Count',@nCount OUTPUT
 
 SET @n=1
 WHILE @n<=@nCount
 BEGIN
  SELECT @ReTo='',@ReCC=''
  
  SET @PropertyName= 'Messages.Item('+ CAST(@n AS VARCHAR(10)) +')'
  EXEC @hr = sp_OAGetProperty @object,@PropertyName,@Msg OUTPUT
  
  EXEC @hr = SP_OASetProperty @Msg, 'EnableCharsetTranslation', 'False'
  EXEC @hr = SP_OASetProperty @Msg, 'Logging', 'True'
   
  EXEC @hr = sp_OAGetProperty @Msg,'Recipients',@Recipients OUTPUT
  EXEC @hr = sp_OAGetProperty @Recipients, 'Count',@nRecipients OUTPUT
  
  SET @m=0
  WHILE @m<@nRecipients
  BEGIN
   SET @Separator=','
   IF @m=@nRecipients-1
   BEGIN
    SET @Separator=''
   END  
 
   SET @PropertyName= 'Item('+ CAST(@m AS VARCHAR(10)) +')'
   
   EXEC @hr = sp_OAGetProperty @Recipients,@PropertyName,@Recipient OUTPUT
   
   EXEC @hr = sp_OAGetProperty @Recipient, 'ReType',@ReType OUTPUT
   
   EXEC @hr = sp_OAGetProperty @Recipient, 'Name',@MailName OUTPUT
   EXEC @hr = sp_OAGetProperty @Recipient, 'EMail',@MailEmail OUTPUT    
   
   IF @ReType=0
    --SET @ReTo=@ReTo+@MailName+@MailEmail + @Separator
    SET @ReTo=@ReTo+@MailEmail + @Separator --去掉@MailName
   ELSE
    --SET @ReCC=@ReCC+@MailName+@MailEmail + @Separator
    SET @ReCC=@ReCC+@MailEmail + @Separator --去掉@MailName
 
   SET @m=@m+1    
  END
 
  --求得最大的郵件ID
  SELECT TOP 1 @MsgID=MsgID FROM MsgMailInfo ORDER BY MsgID DESC
  IF @@ROWCOUNT>0
   SET @MsgID=@MsgID+1
  ELSE
   SET @MsgID=1000000
   
   
  EXEC @hr = sp_OAGetProperty @Msg,'Attachments',@Attachments OUTPUT
  EXEC @hr = sp_OAGetProperty @Attachments, 'Count',@nAttachments OUTPUT
  
  SET @k=0
  WHILE @k<@nAttachments
  BEGIN
   SET @Separator=','
   IF @k=@nAttachments-1
   BEGIN
    SET @Separator=''
   END
   
   SET @PropertyName= 'Item('+ CAST(@k AS VARCHAR(10)) +')'
   EXEC @hr = sp_OAGetProperty @Attachments,@PropertyName,@Attachment OUTPUT
   EXEC @hr = sp_OAGetProperty @Attachment,'Name',@AttachmentName OUTPUT
   
   SET @FileName='C:/' + CAST(@MsgID AS VARCHAR(10)) + '_' + CAST(@k+1 AS VARCHAR(5))
       +SUBSTRING(@AttachmentName, CHARINDEX('.',@AttachmentName ),LEN(@AttachmentName))
 
   EXEC @hr = SP_OACreate 'Scripting.FileSystemObject', @FSOobject OUTPUT
   EXEC @hr = SP_OAMethod @FSOobject, 'FileExists',@isExists OUTPUT,@FileName
   
   --如果文件存在
   IF ISNULL(@isExists,0)=1
   BEGIN
    --刪除文件
    EXEC @hr = SP_OAMethod @FSOobject, 'DeleteFile',NULL,@FileName
   END
   
   ----釋放FSO對象
   EXEC @hr = SP_OADestroy @FSOobject
   
   --保存文件
   EXEC @hr = SP_OAMethod @Attachment, 'SaveToFile', NULL ,@FileName  
   
   SET @MsgAttachment=@MsgAttachment +  CAST(@MsgID AS VARCHAR(10)) + '_' + CAST(@k+1 AS VARCHAR(5))
        +SUBSTRING(@AttachmentName, CHARINDEX('.',@AttachmentName ),LEN(@AttachmentName))
        + '|' + @AttachmentName + @Separator
   
   SET @k=@k+1     
  END
  
  EXEC @hr = sp_OAGetProperty @Msg,'Date',@MsgDate OUTPUT 
  EXEC @hr = sp_OAGetProperty @Msg,'Subject',@MsgSubject OUTPUT 
  EXEC @hr = sp_OAGetProperty @Msg,'From',@MsgFromName OUTPUT  
  EXEC @hr = sp_OAGetProperty @Msg,'Body',@MsgBody OUTPUT  
 
  INSERT INTO MsgMailInfo (MsgID,Msg_Date,Msg_Subject,Msg_FormName,Msg_ReTo,Msg_ReCC,Msg_Body,Msg_Attachments)
  SELECT @MsgID,@MsgDate,@MsgSubject,@MsgFromName,@ReTo,@ReCC,@MsgBody,@MsgAttachment
  
  SET @n=@n+1
 END
 
 --從服務器中刪除郵件
 --EXEC @hr = SP_OAMethod @object, 'DeleteMessages'
 
 ----釋放Jmail對象
 EXEC @hr = SP_OADestroy @object
 
 /*
 --判斷文件是否存在 @isFileExist=1 表示存在
 DECLARE @isFileExist INT 
 EXEC master..XP_FILEEXIST  'D:/TEST/ReceiveMail.dll' , @isFileExist output
 PRINT @isFileExist
 */
END

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

 


  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
pb调用jmail接收邮件是一种通过编程方式实现的方法,可以实现自动接收邮件的功能。jmail是一个邮件组件,提供了一系列接口和方法,可以和pb语言无缝集成。 首先,我们需要在pb程序中引入jmail组件,然后创建一个jmail对象。接着,我们可以设置jmail的相关属性,比如邮件服务器地址、端口号、登录账号和密码等。通过调用jmail的方法,我们可以实现接收邮件的功能。 首先,我们需要创建一个邮件接收对象,使用CreateObj创建或者使用已经存在的对象。然后,设置接收邮件服务器的相关属性,比如设置pop3服务器地址、端口号等。接着,我们可以调用接收邮件的方法,比如使用ReceiveAll方法可以接收所有的邮件,Receive方法可以接收指定的邮件。 在接收邮件后,我们可以通过遍历接收到的邮件来获取每封邮件的相关信息,比如邮件的发送人、收件人、主题、正文内容等。通过处理这些信息,我们可以根据自己的需求来进行后续操作,比如将邮件内容保存到本地、自动回复邮件等。 总之,pb调用jmail接收邮件是一种方便、快捷的方法,可以节省人力和时间成本,实现自动接收邮件的功能。但是在使用过程中,需要注意配置相关属性和处理异常情况,以确保邮件的安全性和稳定性。同时,还需要根据实际需求灵活运用jmail的其他接口和方法,满足个性化的邮件处理需求。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值