Haneef Puttur

Create outlook express account using VB Script

Hereis the simple script which will create a outlook express account.

Steps :
Open notepad
Copy the following code and paste.
Search for the text “yourmailserver.com” and replace with your own domain name. (Please note that this script is under assumption that your pop and smtp servers are pop.yourdomain.com and smtp.yourdomain.com. If you have some other setting please modify it in this script.
Also note this will configure in normal mode of POP and SMTP . Not secure port like gmail.

********** script ***
set oShell = wscript.CreateObject(“Wscript.Shell”)
Function main() dim username, domain username = inputbox(“Enter user name”,”Outlook Express Profile Creator”,”Username”) If username = “” Then wscript.Quit(0) End If If username = “Username” Then while username = “Enter user name” username = inputbox(“Enter user name)”,”Outlook Express Profile Creator”,”Username”) If username = “” Then wscript.Quit(0) End If wend End If
‘ username = Ltrim(fixme(username))’ domain = fixme2(domain)
‘EXAMPLE STRING FOR RTRIM’ RTrim(string)
call placeMailSettings(username, domain) msgbox(“Configuration Completed Successfully, don’t forget to set the password!”)End Function
Function regRead(regStr) regRead = oShell.RegRead(regStr)End Function
Function regWrite(val1,val2,val3) oShell.RegWrite val1,val2,val3End Function
Function regDelete(regStr) call oShell.RegDelete(regStr)End Function
‘Function fixme(strValue)’ dim userEntry’ userEntry = split(strValue, “@”)’ fixme = userEntry(0)’End Function
‘Function fixme2(strValue2)’ dim userEntryd’ userEntryd = split(strValue2, “@”)’ fixme2 = userEntryd(0)’End Function
‘EXAMPLE STRING FOR SPLIT’ Split(expression[,delimiter])

‘—————————————————————————————-‘ Place new settings for Mail’—————————————————————————————-
Function placeMailSettings(theUsername, theDomain) On Error Resume Next dim newAccountNum, numKeyStr dim username, domain newAccountNum = regRead(“HKCU\Software\Microsoft\Internet Account Manager\Account Name”) If newAccountNum = “” Then newAccountNum = “00000001” ElseIf newAccountNum ‘Add Account Name accName = username & ” Mail” accNameStr = “HKCU\Software\Microsoft\Internet Account Manager\Accounts\” & newAccountNum & “\Account Name” call regWrite(accNameStr, accName, “REG_SZ”)
‘Add Connection Type conType = “3” conTypeStr = “HKCU\Software\Microsoft\Internet Account Manager\Accounts\” & newAccountNum & “\Connection Type” call regWrite(conTypeStr, conType, “REG_DWORD”) ‘Delete Connection Id conId = “HKCU\Software\Microsoft\Internet Account Manager\Accounts\” & newAccountNum & “\ConnectionId” call regDelete(conId) ‘Delete Account Id accId = “HKCU\Software\Microsoft\Internet Account Manager\Accounts\” & newAccountNum & “\Account ID” call regDelete(accId)
‘Delete IMAP Server imapSvr = “HKCU\Software\Microsoft\Internet Account Manager\Accounts\” & newAccountNum & “\IMAP Server” call regDelete(imapSvr)
‘Delete HTTP Mail Server httpSvr = “HKCU\Software\Microsoft\Internet Account Manager\Accounts\” & newAccountNum & “\HTTPMail Server” call regDelete(httpSvr)
‘Set POP3 Server pop3svr = “mail.yourmailserver.com” pop3svrStr = “HKCU\Software\Microsoft\Internet Account Manager\Accounts\” & newAccountNum & “\POP3 Server” call regWrite(pop3svrStr, pop3svr, “REG_SZ”)
‘Set POP3 Username pop3usr = username pop3usrStr = “HKCU\Software\Microsoft\Internet Account Manager\Accounts\” & newAccountNum & “\POP3 User Name” call regWrite(pop3usrStr, pop3usr, “REG_SZ”)
‘Set POP3 Password 2 pop3pwd = username & “$” popPwdStr = “HKCU\Software\Microsoft\Internet Account Manager\Accounts\” & newAccountNum & “\POP3 Password2” call regWrite(popPwdStr, pop3pwd, “REG_BINARY”)
‘Set POP3 Use Sicily useSicily = “0” useSicilyStr = “HKCU\Software\Microsoft\Internet Account Manager\Accounts\” & newAccountNum & “\POP3 Use Sicily” call regWrite(useSicilyStr, useSicily, “REG_DWORD”)
‘Set POP3 Prompt for Pw var promptPw = “0” var promptPwStr = “HKCU\Software\Microsoft\Internet Account Manager\Accounts\” & newAccountNum & “\POP3 Prompt for Password” call regWrite(promptPwStr, promptPw, “REG_DWORD”) ‘Set SMTP Server smtpSvr = “mail.yourmailserver.com” smtpSvrStr = “HKCU\Software\Microsoft\Internet Account Manager\Accounts\” & newAccountNum & “\SMTP Server” call regWrite(smtpSvrStr, smtpSvr, “REG_SZ”) ‘Set SMTP Display name smtpDisp = username & ” Mail” smtpSvrStr = “HKCU\Software\Microsoft\Internet Account Manager\Accounts\” & newAccountNum & “\SMTP Display Name” call regWrite(smtpSvrStr, smtpDisp, “REG_SZ”)
‘Set SMTP E-mail address smtpEmail = username & “@yourmailserver.com” smtpEmailStr = “HKCU\Software\Microsoft\Internet Account Manager\Accounts\” & newAccountNum & “\SMTP Email Address” call regWrite(smtpEmailStr, smtpEmail, “REG_SZ”)
‘Set SMTP Use Sicily smtpUseSicily = “2” smtpUseSicilyStr = “HKCU\Software\Microsoft\Internet Account Manager\Accounts\” & newAccountNum & “\SMTP Use Sicily” call regWrite(smtpUseSicilyStr, smtpUseSicily, “REG_DWORD”) ‘Set New Account to default defAccStr = “HKCU\Software\Microsoft\Internet Account Manager\Default Mail Account” call regWrite(defAccStr, newAccountNum, “REG_SZ”) ‘Increment future account number futAccNum = newAccountNum + 1 futAccNumStr = “HKCU\Software\Microsoft\Internet Account Manager\Account Name” call regWrite(futAccNumStr, futAccNum, “REG_DWORD”)End Function
call main()

**********

and save it as outlook.vbs
Now double click the file and enter just username .
Once you finished these steps open Outlook Express and you will see your account is configured..

Exit mobile version