Intranet mailing X.400 Exchange 2000

Je voulais avoir votre avis sur mon Code Asp , il marche pas, je veux envoyer des Email au Serveur exchange 2000 en passant par le X.400 et non pas par le SMTP (intranet) Svp Répondez moi j'ai besoin de votre aide . merci bien !

<% ' Interface pour ASPmail
sub SendMailOutlook(aTo, Subject, TextBody, aFrom)
  
   'Création d'Objet Outlook
  Dim Outlook     'Une Nouvelle Application Outlook
  Set Outlook = CreateObject("Outlook.Application")
  Set Query = "C=com; ADMD= ; OU=mafaco2; S=soufiane ; G=r;"
  Set aFrom = Request.form("email")
  'Après Vérification du fichier "MSOUTL9.OLB" dans la racine "C:\Program Files\Microsoft Office\Office" 
 
  Set ol = new Outlook.application             'Initialisation de Outlook
 
  'Création de Nouveau message
  Dim Message   'As Outlook.MailItem
  Set Message = Outlook.CreateItem(olMailItem)

'You can display the message To debug And see state
    '.Display
    Message.BodyFormat = olFormatHTML
    Message.Subject = Request.form("sujet")
    Message.HTMLBody = Request.form("msg")
    Message.RemoteHost = "serveur01"
    'Set destination email address
    Message.Recipients.Add (Query)
   
 'Set sender address If specified.
    Const olOriginator = 0
    If Len(aFrom) > 0 Then
 Message.Recipients.Add(aFrom).Type = olOriginator
 end if
 Message.Send   'Envoi de Message 
 Response.write "<h1>Email Envoyé</h1>"
 Response.redirect (" [ Lien ]")
 End Sub
%>