[API MDAEMON] problème modification
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:
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 !
