windows server2012搭建郵箱伺服器+客戶端介面(hmailserver+afterlogic)+批量建立郵箱

wuyubing發表於2022-02-15

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郵箱得到如下結果 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版本