日期:2014-05-17  浏览次数:20839 次

jmail 删除指定messageid的邮件
Set   pop3   =   CreateObject( "JMail.POP3 ")       '创建POP3对象
        pop3.Connect   "vachel.cao@excelpoint.com.cn ",   "1234 ",   "pop3.excelpoint.com.cn "  
       
        For   j   =   1   To   pop3.Count
                Set   msg   =   CreateObject( "jmail.message ")
                Set   msg   =   pop3.Messages.Item(j)
                s   =   pop3.GetMessageUID(j)                       //该局我认为是取制定的messageid
                Response.write   s                                                           //s的值为UID372-1249865992
               
                pop3.deletesinglemessage   (s)                   //删除指定邮件
      Next

现行提示s类型不匹配

------解决方案--------------------
试试:
s = msg.Headers.GetHeader("Message-ID");
或者
s = msg.GetHeader("Message-ID");

------解决方案--------------------
pop3.deletesinglemessage(i)
------解决方案--------------------
pop3.deletesinglemessage(j) //删除指定邮件 

------解决方案--------------------
对你无语,这么久,程序都给你,还问!!


实践结果就是最好的证明
------解决方案--------------------
VBScript code

Set pop3 = CreateObject("JMail.POP3")  '需要Jmail 4.4等企业版  
 pop3.Connect "abcde@139.com","12345","pop.139.com"  

 For  j  =  1  To  pop3.Count 
  'Set  msg  =  CreateObject( "jmail.message ") 
  'Set  msg  =  pop3.Messages.Item(j)                
 pop3.deletesinglemessage(j) '删除指定邮件,1是最旧邮件。刷新邮箱页面后才能看到被删除的效果 
 Next