📄 18-6.txt

📁 开发王代码代码
💻 TXT
字号:
<body>
<script type="text/javascript">
<!--
//首先创建对象
var oDropDir = new ActiveXObject("CDO.DropDirectory");

//获取投递目录下的所有信函，保存在Messages集合中 
//然后遍历Messages集合中的Message对象
var oMsgs = oDropDir.GetMessages();
var e = new Enumerator(oMsgs);
for (; !e.atEnd(); e.moveNext()){
  var oMsg = e.item();
  //获取信函文件的目录及文件名
  var strFileName = oMsgs.FileName(oMsg);
  //提取出来信函文件的文件名
  strFileName = strFileName.substring(strFileName.lastIndexOf("\\")+1);

  //获取接收方
  var strTo = oMsg.To + "," + oMsg.CC;
  //接收方一般是这样的形式"User1" <example1@example.com>, "User 2" <example2@example.com>
  //因此，首先提取出来所有的邮件接收者，保存在一个数组中
  var toRecipients = strTo.split(",");
  //下面我们遍历这个数组，目的是获取用户名
  //根据用户名将邮件复制到他们自己的账户目录下    
  for(var j=0;j<toRecipients.length;j++){
    var strEmailName = toRecipients[j];
    //下面就是获取"<"和"@"这两个字符之间的用户名字符串了	
    var lpos = strEmailName.indexOf("<");
	//因为有些邮件账户的形式是这样："example2@example.com" <example2@example.com>
	//所以，在字符串运算时要做一下反转 
    var rpos = strEmailName.lastIndexOf("@");
    var strAccountName = strEmailName.substring(lpos+1,rpos);
    //将邮件保存到邮件账户目录
    //例如john@example.com就保存到d:\Mailbox\John
    var strMailboxDir = "D:\\Mailbox\\" + strAccountName;
    //首先获取信息，然后使用SaveToFile方法将文件保存
    var iStream = oMsg.GetStream();
    iStream.SaveToFile(strMailboxDir + "\\" + strFileName);
    iStream.Close();
    iStream = null;
  }
}
//最后删除投递目录中的邮件
//必须给该目录足够权限
//我们必须授予IUSR_computerName修改该目录的权利
//oMsgs.DeleteAll();
//最后释放内存
oMsgs = null;
oDropDir = null;
//最后，也可以写一个执行成功的消息
document.write("邮件分捡成功！");
-->
</script>
</body>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -