Bonsoir,
votre message est difficilement lisible ! j'ai cru deviner ceci...
Plutôt qu'utiliser la méthode "createMailbox" qui ne fonctionne QUE sur un serveur Exchange 2000/2003, il préférable d'utiliser une méthode ne faisant appel qu'à Active Directory (et LDAP).
=> ceci aura l'avantage de fonctionner aussi sur Exchange 2007 à partir d'une simple station.
Voici un extrait d'un de mes programmes sur le sujet. Regarde avec ADSIEDIT.MSC le format exact de chaque champ (HomeMdb, HomeMTA,...)
oUser.put "HomeMdb", DistinguishedNameBanquePrive
oUser.put "HomeMTA", DistinguishedNameHomeMta
oUser.put "msExchHomeServerName", ExchangeHomeServer
' oUser.put "mail", AdresseEmail
oUser.put "mailnickname", Alias
Set TypeLib = CreateObject("Scriptlet.TypeLib")
NewGuid = Replace(TypeLib.Guid, "-", "")
NewGuid = Mid(NewGuid, 2, Len(NewGuid) - 4)
' MsgBox (NewGuid)
j = 0
ReDim tmp(j)
For i = 1 To Len(NewGuid) Step 2
s = UCase(Mid(NewGuid, i, 2))
car = converthexa(s)
ReDim Preserve tmp(j)
tmp(j) = car
j = j + 1
Next
oUser.put "msExchMailboxGuid", Array(tmp)
Set TypeLib = Nothing
oUser.setinfo
If Err.Number <> 0 Then
Message = Message + vbCrLf + "Les attributs Exchange n'ont pas pu être modifiés"
' MsgBox ("Les attributs Exchange n'ont pas pu être modifiés")
Err.Clear
Else
Message = Message + vbCrLf + "La boîte a été créée"
End If
----------------------------------
Function converthexa(st)
d = Right(st, 1)
Select Case d
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
converthexa = Asc(d) - 48
Case "A", "B", "C", "D", "E", "F"
converthexa = Asc(d) - 55
End Select
g = Left(st, 1)
Select Case g
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
converthexa = converthexa + 16 * (Asc(g) - 48)
Case "A", "B", "C", "D", "E", "F"
converthexa = converthexa + 16 * (Asc(g) - 55)
End Select
End Function
