Bonsoir,

Je dois réalisé un transfert de mail avec l'API de MDaemon sur ASP.

Mon programme fonctionne bien et ne m'indique aucune erreur, pourtant quand je vais dans l'interface de MDaemon je ne vois aucune modification...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
'==================================================================
' Création du mail
'==================================================================
 
Dim oMDUser
Dim oMDUserInfo
Dim hUser
	Dim sEmail, sEmail2
	sEmail = "test.migration@domain1.com"	
	sEmail2 = "test.migration@domain2.fr"
 
 
 
If sEmail<>"" And sEmail2 <>""  Then
 
	dim sMessage
 
 
	' Create an instance of mduser 
    Set oMDUser = Server.CreateObject("MDUserCOM.MDUser")
 
    ' Load the dll
	If oMDUser.LoadUserDll() = True Then
 
		' Get a handle to the user's record
		hUser = oMDUser.GetByEmail(sEmail)
 
		If hUser <> MD_BADHANDLE Then
 
			oMDUser.SetDomain hUser, "chausson-materiaux.fr"
			response.Write(oMDUser.GetDomain(hUser))
 
 
		Else
			' If we got here then we could find the user's record
			Response.Write("Could not find a user with this email address.!<BR>")
			Response.Write("Please click the back button and try again.")
 
		End If
 
 
		' Free the dll
		oMDUser.FreeUserDll
	End If
 
	Set oMDUser = Nothing
 
	Response.Write(sMessage)
End If
Please help !