emitlinks/moveyourpop
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 1 Wiki Activity

Modification du domaine et du serveur smtp

Browse Source
This commit is contained in:
Jason SECULA
2025-06-17 15:40:46 +02:00
parent 9ad311b0b3
commit 9ecda7dd32
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
moveyourPOP.au3
View File

@ -62,7 +62,7 @@ GUIctrlSetFont(-1,11, 600, Default, "Segoe UI")
;~ GUICtrlSetColor(-1, $color) ;~ GUICtrlSetColor(-1, $color)
;~ GUICtrlSetTip(-1, "Séparez les domaines par un |", "Domaines à rechercher") ;~ GUICtrlSetTip(-1, "Séparez les domaines par un |", "Domaines à rechercher")
;~ GUICtrlSetCursor(-1, 4) ;~ GUICtrlSetCursor(-1, 4)
;~ $searchDoamin = GUICtrlCreateInput("ac-nice.fr|ac-aix-marseille.fr", 470, 21, 140, 25) ;~ $searchDoamin = GUICtrlCreateInput("ac-nancy-metz.fr|region-academique-grand-est.fr", 470, 21, 140, 25)
;~ GUICtrlSetFont(-1, 10, 500, Default, "Segoe UI") ;~ GUICtrlSetFont(-1, 10, 500, Default, "Segoe UI")
;~ $refresh = GUICtrlCreateLabel("🔄", 610, 20, 30, 33) ;~ $refresh = GUICtrlCreateLabel("🔄", 610, 20, 30, 33)
;~ GUICtrlSetFont(-1, 15, 500, Default, "Segoe UI") ;~ GUICtrlSetFont(-1, 15, 500, Default, "Segoe UI")
@ -207,12 +207,12 @@ While 1
$directory = $allServer[$c][4] $directory = $allServer[$c][4]
$smtpID = $allServer[$c][5] $smtpID = $allServer[$c][5]
$popAdress = $allServer[$c][6] $popAdress = $allServer[$c][6]
If StringInStr($popAdress, "ac-nice.fr") Then If StringInStr($popAdress, "ac-nancy-metz.fr") Then
$domain = ".ac-nice.fr" $domain = ".ac-nancy-metz.fr"
$smtpAddress = "smtps.ac-nice.fr" $smtpAddress = "smtps.ac-nancy-metz.fr"
ElseIf StringInStr($popAdress, "ac-aix-marseille.fr") Then ElseIf StringInStr($popAdress, "region-academique-grand-est.fr") Then
$domain = ".ac-aix-marseille.fr" $domain = ".ac-nancy-metz.fr"
$smtpAddress = "smtp.ac-aix-marseille.fr" $smtpAddress = "smtps.ac-nancy-metz.fr"
EndIf EndIf
FileWrite($profileDirectory&"\user.js", 'user_pref("mail.identity.'&$identity&'.archive_folder", "imap://'&$accountName&'@imap'&$domain&'/Archives");'&@CRLF) FileWrite($profileDirectory&"\user.js", 'user_pref("mail.identity.'&$identity&'.archive_folder", "imap://'&$accountName&'@imap'&$domain&'/Archives");'&@CRLF)
FileWrite($profileDirectory&"\user.js", 'user_pref("mail.identity.'&$identity&'.draft_folder", "imap://'&$accountName&'@imap'&$domain&'/Drafts");'&@CRLF) FileWrite($profileDirectory&"\user.js", 'user_pref("mail.identity.'&$identity&'.draft_folder", "imap://'&$accountName&'@imap'&$domain&'/Drafts");'&@CRLF)
@ -322,7 +322,7 @@ Func _getAllServer($profileDirectory)
$serverID = $serverID[3] $serverID = $serverID[3]
$searchForAcNice = _searchValueInPrefsJsArrayRegex($prefsToArray, "mail\.server\."&$serverID&"\.hostname$") $searchForAcNice = _searchValueInPrefsJsArrayRegex($prefsToArray, "mail\.server\."&$serverID&"\.hostname$")
For $p = 1 To $searchForAcNice[0] For $p = 1 To $searchForAcNice[0]
$domainToSearch = "ac-nice.fr|ac-aix-marseille.fr" $domainToSearch = "ac-nancy-metz.fr|region-academique-grand-est.fr"
$domainToSearch = StringReplace($domainToSearch, ".", "\.") $domainToSearch = StringReplace($domainToSearch, ".", "\.")
$domainToSearch = StringReplace($domainToSearch, " ", "") $domainToSearch = StringReplace($domainToSearch, " ", "")
if StringRegExp($searchForAcNice[$p], $domainToSearch) Then if StringRegExp($searchForAcNice[$p], $domainToSearch) Then