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