Discussion :

[neuneu1]

bonjour,

j'ai peu de connaissance en delphi, c'est pour ca qu avant de m attaquer a un morceau je demande un avis..

voila , j'ai eu un code vb6 permettant de cree une boite mail sur un serveur 2003 avec le service pop

Code VB :

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
51
52
53
 
...
  'next command creates 'franta@market.cz' pop3 account 
  ' on 'hlavni' computer with '5koni' password.
  AddPop3User "hlavni", "franta", "market.cz", "5koni"
...
 
'Adds an user account To a Windows 2003 POP3 service
'2005 Antonin Foller, http://tips.motobit.com
Public Function AddPop3User(MachineName As String, _
  UserName As String, _
  DomainName As String, _
  Password As String) As P3ADMINLib.P3User
 
  'get a configuration object.
  Dim P3 As New P3ADMINLib.P3Config
  'get the object from a VB Script/JScript
  'Set P3 = CreateObject("P3Admin.P3Config")
  'Connect To the remote computer.
  If Len(MachineName) > 0 Then P3.MachineName = MachineName
 
  Dim Domain As P3ADMINLib.P3Domain
  Dim User As P3ADMINLib.P3User
 
  'get the domain object
  On Error Resume Next
  Set Domain = P3.Domains.Item(DomainName)
  If Err = &H80070003 Then
    'The domain is registerred In SMTP
    ' but Not In POP3
  ElseIf Err = &H8007054B Then
    'the domain does Not exists. Create it.
    On Error Resume Next
    P3.Domains.Add DomainName
    If Err <> 0 Then
      'On Error GoTo 0
      Err.Raise Err, , "Domain " & DomainName & " cannot be added."
    End If
  End If
 
  'add a user account
  On Error Resume Next
  Domain.Users.AddEx UserName, Password
  If Err = &H8007050 Then 'ERROR_FILE_EXISTS
    'the user account already exists.
    'do some action In this Case.
  End If
 
  'get the created user account
  Set User = Domain.Users.Item(UserName)
 
  Set AddPop3User = User
End Function

j aimerais savoir si c 'est faisable en delphi et si c'est pas trop dur, j entends par dur pas la quantité de travail, ca me fais pas peur, mais la difficulté de travailler avec des dll externe , chose que je n'ai pas fait..

mon seul but est de pouvoir cree une boite mail, peut être existe t il une autre façon


merci
a+

[philnext]

En fait ça ne pose pas de pb particulier je te conseille :
http://delphi.developpez.com/faq/?page=systemedll

[neuneu1]

merci de ta reponse

je ne sais pas si je vais y arrive mais bon , qui ne tente rien as rien

merci
a+

[neuneu1]

Salut

bon je n y arrive pas ,mais j'ai essaye quelque chose , j ai installer les dell comme active x, ce qui me donne acces au propriete.

je sais pas si c'est bien...

je n'ai aps encore essaye de faire du code avec!!!

a+