Avatar billede loukas Mester
11. oktober 2004 - 00:53 Der er 3 kommentarer og
1 løsning

oprette mailkonto via ASP

Hej !
Jeg har en argosoft mailserver kørende og er godt tilfreds med den.
Men jeg kunne godt tænke mig at oprette nye konti "direkte" fra ASP og ikke med det medfølgende webmail-system.
På argosofts FAQ-side står noget om automation objects in ASP, som jeg ikke ved hvad er, måske kan nogen hjælpe mig???.
Avatar billede krogstrup Nybegynder
11. oktober 2004 - 08:09 #1
har du prøvet at stille spm her også:
http://www.argostuff.com/

ps: Hvis du finder en løsning, ville jeg værdsætte om du ville poste et link eller noget kode her MEGET.

:-)
Avatar billede loukas Mester
11. oktober 2004 - 09:19 #2
Det skal jeg gøre, når jeg finder ud af hvordan det kan gøres.
Avatar billede loukas Mester
11. oktober 2004 - 15:25 #3
OK, her er svaret
Aktiver MailServerX:
tools -> Utilities -> ActiveX Lirary -> Register

Og her er en sub til oprettelse af ny bruger:
Sub AddMailUser(ByVal strUserName, ByVal strUserPwd, ByVal strUserReal, ByVal strUserFwdAddr, ByVal strActive, ByVal strAutoRespSubject, ByVal strAutoRespMsg, ByVal strAutoRespEnabled)

  Dim objUser
  Dim objUsers
  Dim strDomain
  Dim objAutoRespMsg
  ' Remove the www
  strDomain = "dinside.dk"
  ' Append domain to user name
  strUserName = strUserName & "@" & strDomain
  strUserName = LCase(strUserName)
  strUserFwdAddr = LCase(strUserFwdAddr)
  ' Set to false if empty (box not checked)
  If (strActive = "") Then strActive = "False"
  If (strAutoRespEnabled = "") Then strAutoRespEnabled = "False"
  ' Create objects
  Set objUser = Server.CreateObject("MailServerX.User")
  Set objUsers = Server.CreateObject("MailServerX.Users")
  Set objAutoRespMsg = Server.CreateObject("MailServerX.Lines")
  ' Add the auto response message line object
  Call objAutoRespMsg.Add(strAutoRespMsg)
  ' Initialize and add the user
  objUser.UserName = strUserName
  objUser.Password = strUserPwd
  objUser.RealName = strUserReal
  objUser.ReturnAddress = strUserName
  objUser.ForwardAddress = strUserFwdAddr
  objUser.AutoResponderSubject = strAutoRespSubject
  objUser.AutoResponderData = objAutoRespMsg
  objUser.AutoResponderEnabled = CBool(strAutoRespEnabled)
  objUser.Active = CBool(strActive)
  Call objUsers.Add(objUser)
  ' Deallocate
  Set objUser = Nothing
  Set objUsers = Nothing
  ' Build feedback message
  strFeedback = "The '" & strUserName & "' Account was Created Successfully"
  If (strActive = "False") Then
      strFeedback = strFeedback & "\n\n * The Account was Not Activated"
  End If
End Sub
Avatar billede krogstrup Nybegynder
11. oktober 2004 - 15:48 #4
ganske smart :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester