windows server2012搭建郵箱服務器+客戶端界面(hmailserver+afterlogic)+批量創建郵箱

本文轉載自查看原文 2022-02-15 10:50 1812 郵箱服務器/ windows server

1.簡介

由於需要較多郵箱，如果去注冊需要很多的手機號碼去驗證，一個人不可能買一堆的手機號，所以自己搭建一個郵箱服務器可以大批量的創建自己的郵箱賬號和收發郵件。

2.安裝部署hmailserver

下載hmailserver,根據實際情況選擇版本,一般就是選擇最新版本。
雙擊下載后的文件安裝過程中一直下一步或者自己選擇路徑，碰到一步需要選擇數據庫的根據自己的數據庫類型進行選擇（本文選擇使用mysql）

2.1 再下一步到輸入密碼這是設置管理密碼的

2.2 驗證HMailServer密碼，同上面設置的密碼

2.3 創建或者已有郵箱服務需要的數據庫（本文選擇新創建）

2.4 選擇數據庫類型（本文使用mysql）

2.5 配置數據庫連接參數

2.6 直接一直下一步，中途會遇到一個報錯找不到mysql32位的dll，如下圖

解決方案：下載32位的libmsql.dll對應的dll放進Bin文件夾下,位置如下（根據自己的安裝路徑）

解壓到對應的地方之后剛才報錯的界面再按下一步，然后安裝成功，打開運行

2.7 點擊ok之后進入管理界面，添加域名

2.8 設置SMTP可明文密碼發送

2.9 配置ip地址范圍（這邊不做限制直接設置為全部打開）

2.10 添加郵箱賬號

3. 到域名后台把域名MX和A類型解析到郵箱服務器，服務器對外開放25,110,143,587端口（注意25端口如果是騰訊服務器需要去控制台我的》安全管控》申請解放25端口），如果只收不發可以不用25端口

4. 使用Foxmail測試是否成功
打開Foxmail》管理賬號》新建》其他郵箱》手動設置，然后會彈出如下界面

5. 創建成功后用自己的qq郵箱給剛才設置好的郵箱發一封郵件試試，如下收到了測試郵件表示成功

6. 回復qq郵箱得到如下結果
[外鏈圖片轉存失敗,源站可能有防盜鏈機制,建議將圖片保存下來直接上傳(img-jYrqhepp-1645489965713)(https://gitee.com/wuyubing/pic/raw/master/2022-2-12/1644667019318-1644666994(1)].jpg)
7. 批量創建郵箱

7.1 找個目錄建一個文件夾（本文在桌面創建了測試文件夾），建一個.vbs的文件內容如下：

Option Explicit
 On Error Resume Next
  wscript.echo  "start ..."
 Dim obBaseApp
 Dim objFSO
 Dim objTextFile
 Dim strNewAlias,i
 Dim scrreport
 Dim failed
 Dim added
 failed=0
 added=0
 i=0
 Const ForReading=1
 Set obBaseApp=CreateObject("hMailServer.Application")
 Call obBaseApp.Authenticate("Administrator","hmail上面設置的管理密碼") 
 Set objFSO=CreateObject("Scripting.FileSystemObject")
 Set objTextFile=objFSO.OpenTextFile("users.txt",ForReading)   
 Do While objTextFile.AtEndOfStream<>True
   strNewAlias=split(objTextFile.Readline,",")
   Select Case strNewAlias(0)
     Case "User"
	AddUser strNewAlias(1),strNewAlias(2),strNewAlias(3)
     Case "Alias"
	AddAlias strNewAlias(1),strNewAlias(2),strNewAlias(3)
     Case "Delete"
	DelUser strNewAlias(1),strNewAlias(2)
   End Select
  If err.Number<>0 Then  
    scrreport=scrreport&"Failed add(probably duplicate):"&strNewAlias(0)&","&strNewAlias(1)&","&strNewAlias(2)&","&strNewAlias(3)&VBNewLine
    failed=failed+1
    err.Clear
  Else
   added=added+1
  End If
  i=i+1
 Loop
 
scrreport=scrreport&""&VBNewLine
scrreport=scrreport&"Added="&added&VBNewLine
scrreport=scrreport&"Failed or Duplicates="&failed&VBNewLine
wscript.echo scrreport
wscript.echo  "end !"
 
Sub AddAlias(strAlias,strEmailAddress,strDomain)
  Dim obDomain
  Dim obAliases
  Dim obNewAlias
  Set obDomain=obBaseApp.Domains.ItemByName(strDomain)
  Set obAliases=obDomain.Aliases
  Set obNewAlias=obAliases.Add()
  obNewAlias.Name=strAlias&"@"&strDomain     
  obNewAlias.Value=strEmailAddress           
  obNewAlias.Active=1
  obNewAlias.Save()
  Set obNewAlias=Nothing
  Set obAliases=Nothing
  Set obDomain=Nothing
End Sub
 
Sub AddUser(strUsername,strPassword,strDomain)
 Dim obDomain
 Dim obAccounts
 Dim obNewAccount
 Set obDomain=obBaseApp.Domains.ItemByName(strDomain)
 Set obAccounts=obDomain.Accounts
 Set obNewAccount=obAccounts.Add()
 obNewAccount.Address=strUsername&"@"&strDomain      'username
 obNewAccount.Password=strPassword                   'password
 obNewAccount.Active=1                               'activatesuser
 obNewAccount.Maxsize=500                             'set smailbox size,0=unlimited
 obNewAccount.Save()    
wscript.echo  "addok--"&obNewAccount.Address                              
 Set obNewAccount=Nothing
 Set obDomain=Nothing
 Set obAccounts=Nothing
End Sub 
 
 
Sub DelUser(strUsername,strDomain)
 Dim obDomain
 Dim obAccounts
 Dim obDelAccount
 Set obDomain=obBaseApp.Domains.ItemByName(strDomain)
 Set obAccounts=obDomain.Accounts
 Set obDelAccount = obAccounts.ItemByAddress(strUsername & "@" & strDomain)
 obDelAccount.Delete()
 wscript.echo  "delok--"& strUsername & "@" & strDomain                              
 Set obDelAccount=Nothing
 Set obDomain=Nothing
 Set obAccounts=Nothing
End Sub

在剛才創建的目錄下再建一個txt文件，批量要生成的內容如下：

User,test05,Test@102,xxxxxx.com
User,test06,Test@203,xxxxxx.com
User,test07,Test@304,xxxxxx.com

文件格式固定User開頭,用戶名,密碼,域名
7.2 雙擊.vbs的文件執行,執行成功之后可以看到插入了三條賬號

3安裝部署afterlogic

3.1 由於郵箱要分配到每個人根據自己的郵箱和密碼登錄查看和發送郵件，所以需要一個可視化界面來操作，所以開始如下部署（本文選用php版本，部署比較簡單，當然您可以選擇net版本）

3.2 下載PHP運行環境XAMPP（如果服務器有php環境請跳過本步驟）

3.3 安裝過程選擇如下圖因為本服務器已經安裝了mysql所以去掉打鈎如果沒有按照的就選擇打鈎，根據自己的服務器需求來進行安裝

然后就一直下一步直到安裝完成。（注意啟動Apache的時候默認是80端口如果啟動失敗端口被占用，先修改一下，本文改為6052）

打開文件之后找到所有80的位置改為6052

以上步驟做完還可能遇到443也被占用，同上一個打開ssl的配置文件修改端口如下圖

啟動成功如下：

3.4 下載afterlogic,選擇php版本