c#创建exchange邮箱问题（转载）

Carreychen

　　通过c#创建exchange邮箱不成功的原因有很多，如果你的AD和Exchange在一台机器上，原因有可能是HomeMDB参数不正确，或者是ASPNET帐号没有权限打开exchange帐号。而如果你的AD和Exchange不在一台机器上，使用你的代码基本上就不可能成功，这是一个bug，而我当时的解决方法就是通过com+来实现的。
　　下面我把我的实现代码给你贴出来，通过调用Com+是肯定可以实现的，首先我用vb创建了一个组件，代码如下：
　　Dim m_ErrorInfo As String
　　Function CreateCDOEXMailBox( _
ByVal ADSIUserPath As String, _
ByVal MDBUrl As String) As Boolean
　　On Error GoTo CatchError
　　Dim objMailbox As CDOEXM.IMailboxStore
    Dim objADSIuser As ActiveDs.IADsUser
   
    Set objADSIuser = GetObject(ADSIUserPath)
    Set objMailbox = objADSIuser
   
    objMailbox.CreateMailbox MDBUrl
    objADSIuser.SetInfo
    CreateCDOEXMailBox = True
    m_ErrorInfo = ""
    Exit Function
CatchError:
    CreateCDOEXMailBox = False
    m_ErrorInfo = Err.Description
End Function
　　Public Property Get errorInfo() As String
    errorInfo = m_ErrorInfo
End Property
　　创建成功后把组件部署到Exchange服务器上的Com+服务中，然后导出应用程序代理，把该代理安装在web服务器上。下面是C#调用Com+创建Exchange邮箱的代码：

　　/// <summary>
/// 创建新的用户
/// </summary>
/// <param name="strLDAPPath">LDAP全路径</param>
/// <param name="commonName">公共名称</param>
/// <param name="sAMAccountName">帐号</param>
/// <param name="password">密码</param>
/// <param name="strDepartment">部门</param>
/// <returns><see cref="System.DirectoryServices.DirectoryEntry"/></returns>
public static DirectoryEntry CreateNewUser(string strLDAPPath, string commonName, string sAMAccountName, string password,string strDepartment)
{
DirectoryEntry deUser;
try
{
  DirectoryEntry entry = GetDirectoryObject(strLDAPPath);//获取你要在其下创建用户的DirectoryEntry对象
　　deUser = entry.Children.Add("CN=" + sAMAccountName, "user");
  deUser.Properties["sAMAccountName"].Value = sAMAccountName;
  deUser.Properties["givenName"].Value = commonName;
  deUser.Properties["displayName"].Value = commonName;
  deUser.Properties["department"].Value = strDepartment;
  deUser.CommitChanges();
  ADHelper.EnableUserByAccount(sAMAccountName);//启用帐号
  deUser.Invoke("Put", new object[] {"userPrincipalName",sAMAccountName+"@"+GetShortDomain(ADDomain)});
  ADHelper.SetPasswordByAccount(sAMAccountName, password);//设置密码
  deUser.CommitChanges();
  bool emailAdded = CreateCDOEXMailBox(deUser.Path,ExchangeSRV,ADDomain);//调用Com+创建邮箱
  if (!emailAdded)//如果邮箱创建失败，则删除已经创建成功的用户
  {
   deUser.Parent.Children.Remove(deUser);
   deUser.CommitChanges();
   deUser.Close();
   deUser = null;
  }
  entry.Close();
}
catch(Exception ex)
{
  if(ex.InnerException != null)
  {
   ex = ex.InnerException;
  }
  Trace.WriteLine(ex.ToString());
  deUser = null;
}
return deUser;
}
　　
/// <summary>
///
/// </summary>
/// <param name="strADSIUserPath">用户LDAP路径</param>
/// <param name="strExchServer">Exchange服务器名</param>
/// <param name="strDomainName">域名</param>
private static bool CreateCDOEXMailBox(string strADSIUserPath, string strExchServer, string strDomainName)
{
bool rv = false;
try
{
  string mdbURL = ADPath + "/" +
   "CN=中文01("+ strExchServer + ")," +
   "CN=subOu" +
   "CN=InformationStore," +
   "CN="+ strExchServer + "," +
   "CN=Servers," +
   "CN=中文02" +
   "CN=Administrative Groups," +
   "CN=GWBN," +
   "CN=Microsoft Exchange," +
   "CN=Services," +
   "CN=Configuration," +strDomainName;
　　Type objMailType = Type.GetTypeFromProgID("CreateMail.CreateExMail");
  Object objMail = Activator.CreateInstance(objMailType);
  Object[] myArg = {strADSIUserPath,mdbURL};
  object objAddStatus,objErrorInfo;
  objAddStatus = objMailType.InvokeMember("CreateCDOEXMailBox",BindingFlags.InvokeMethod,null,objMail,myArg);
  objErrorInfo = objMailType.InvokeMember("errorInfo",BindingFlags.GetProperty, null, objMail, new object[]{});
  rv = true;
}
catch(Exception ex)
{
  if(ex.InnerException != null)
  {
   ex = ex.InnerException;
  }
  Trace.WriteLine(ex.ToString());
}
return rv;
}
　　/// <summary>
/// 创建邮箱
/// </summary>
/// <param name="strADSIUserPath">用户LDAP路径</param>
/// <param name="strExchServer">Exchange服务器名</param>
/// <param name="strDomainName">域名</param>
private static bool CreateCDOEXMailBox(string strADSIUserPath, string strExchServer, string strDomainName)
{
bool rv = false;
try
{
  string mdbURL = ADPath + "/" +
  "CN=邮箱存储("+ strExchServer + ")," +
  "CN=第一个存储组," +
  "CN=InformationStore," +
  "CN="+ strExchServer + "," +
  "CN=Servers," +
  "CN=第一个管理组," +
  "CN=Administrative Groups," +
  "CN=GWBN," +
  "CN=Microsoft Exchange," +
  "CN=Services," +
  "CN=Configuration," +strDomainName;
  Type objMailType = Type.GetTypeFromProgID("CreateMail.CreateExMail");
  Object objMail = Activator.CreateInstance(objMailType);
  Object[] myArg = {strADSIUserPath,mdbURL};
  object objAddStatus,objErrorInfo;
  objAddStatus = objMailType.InvokeMember("CreateCDOEXMailBox",BindingFlags.InvokeMethod,null,objMail,myArg);
  objErrorInfo = objMailType.InvokeMember("errorInfo",BindingFlags.GetProperty, null, objMail, new object[]{});
  rv = true;
}
catch(Exception ex)
{
  if(ex.InnerException != null)
  {
   ex = ex.InnerException;
  }
  Trace.WriteLine(ex.ToString());
}
return rv;
}
注意如果你使用的exchange2003，则mdbURL不需改变，如果不是，则mdbURL变量你需要改一下。