Code: Select all
<%
'Add functions - add one email address.
' adds postoffice, mailbox, login And maps email address
Public Function AddFullEmail(Email,Password)
Dim UserName, Domain
Domain = Split(Email, "@")(1)
UserName = Split(Email, "@")(0)
Dim result
result = CreatePostOffice(Domain)
If result <> 0 Then result = AddDoaminToPostOffice(Domain)
If result <> 0 Then result = AddMailBoxToPostOffice(Domain, UserName)
If result <> 0 Then result = AddLogin(Domain, UserName, Password)
If result <> 0 Then result = AddEmail(Domain, UserName, Email)
AddFullEmail = result
End Function
Function CreatePostOffice(name)
Dim lResult
Dim PostOffice
Set PostOffice = CreateObject("MEAOPO.Postoffice")
With PostOffice
.name = name
.Host = name
.Account = name
.Status = 1
'Try To get existing postoffice
lResult = .GetPostoffice()
If lResult = 0 Then 'create the postoffice
lResult = .AddPostoffice()
Else 'Postoffice already exists.
lResult = -1
End If
End With
CreatePostOffice = lResult
End Function
'Adds domain To postoffice
Function AddDoaminToPostOffice(PostOffice,DomainName)
If Len(DomainName) = 0 Then DomainName = PostOffice
Dim lResult
Dim oDomain
Set oDomain = CreateObject("MEAOSM.Domain")
With oDomain
.AccountName = PostOffice
.DomainName = DomainName
.Status = 1
'try To get existing domain.
lResult = .GetDomain
If lResult = 0 Then 'create the postoffice
lResult = .AddDomain
Else 'Postoffice already exists.
lResult = -1
End If
End With
AddDoaminToPostOffice = lResult
End Function
'Adds mailbox To postoffice
Function AddMailBoxToPostOffice(PostOffice,UserName,Limit)
Dim lResult
Dim oMailbox
Set oMailbox = CreateObject("MEAOPO.Mailbox")
With oMailbox
.PostOffice = PostOffice
.Mailbox = UserName
.RedirectAddress = ""
.RedirectStatus = 0
.Status = 1
'try To get existing Mailbox.
lResult = .GetMailbox
If lResult = 0 Then 'create the Mailbox
.Limit = Limit
lResult = .AddMailbox()
Else 'Mailbox already exists.
lResult = -1
End If
End With
AddMailBoxToPostOffice = lResult
End Function
'Adds Login To postoffice
Function AddLogin(PostOffice,UserName,Password)
Dim lResult
Dim oAUTHLogin
Set oAUTHLogin = CreateObject("MEAOAU.Login")
'when we create a mailbox we also create a pop logon
With oAUTHLogin
.Account = PostOffice
.UserName = UserName & "@" & PostOffice
.Status = 1
.Description = ""
.Host = ""
.Rights = "USER"
'try To get existing login.
lResult = .GetLogin()
If lResult = 0 Then 'create the login
.Password = Password
lResult = .AddLogin()
Else 'login already exists.
lResult = -1
End If
End With
AddLogin = lResult
End Function
'Adds domain To postoffice
Function AddEmail(PostOffice,UserName,Email)
Dim lResult
Dim oAddressMap
Set oAddressMap = CreateObject("MEAOAM.AddressMap")
With oAddressMap
Dim varTemp
.Account = PostOffice
.DestinationAddress = "[SF:" & PostOffice & "/" & UserName & "]"
.Scope = "[SMTP:" & Email & "]"
.SourceAddress = "[SMTP:" & Email & "]"
'try To get existing email address.
lResult = .GetAddressMap
If lResult = 0 Then 'create a new email address map
lResult = .AddAddressMap()
Else 'email address already exists.
lResult = -1
End If
End With
AddEmail = lResult
End Function
response.write AddFullEmail("noam@goop.co.il","fdss332csdf")
%>