【已解决】求教高手，申请邮箱能不能发信通知账号管理员？？

srxbx

因为邮箱绑定办公OA，能不能用户申请邮箱时自动发信给账号管理员，这样在OA系统里直接就可以查看谁申请啦。

[ 本帖最后由 山坛兄弟 于 2011-11-10 16:25 编辑 ]

yangzanmin

好像有点难。

山坛兄弟

这东西说难也不难，只要会点ASP的都可以弄，只要在create.asp中用户创建成功后调用软件本身的组件就可以发送邮件了，但是估计没几个有闲功夫去弄。

bluefountain

很简单，傻办法就是用jmail，页面注册执行完毕后，执行jmail部分，给指定邮件地址发个邮件就是了，当然做好点，可以调WINWEBMAIL的API。

下面是我经常用的，你自己改吧

<%
//============================================================
// 用jmail发送邮件
//============================================================
name = Request.Form ("name")
%>

<%   
dim title
title="账号注册成功，账号："&Request("name")&chr(10)
dim sBody
sBody=sBody&"账号："&Request("name")&chr(10)&vbcrlf
Set   msg   =   Server.CreateObject("JMail.Message")   
msg.silent   =   true   
msg.Logging   =   true   
msg.Charset   =   "gb2312"   
msg.MailServerUserName   =   "user"   
msg.MailServerPassword   =   "password"   
msg.From   =   "webmaster@yourdomain.com"   
msg.FromName   =   "winwebmail"   
msg.AddRecipient   "webmaster@yourdomain.com"   
msg.Subject   =title
msg.Body   =sBody
msg.Send   ("mail.yourdomain.com")   
set msg   =   nothing   
%>