Using VB Script to Configure Outlook Express

[Maleboligia]

I have a script I have modified that I found online for what I needed.

set oShell = wscript.CreateObject("Wscript.Shell")

Function main()
	dim username, domain


	username = inputbox("Enter store number","Outlook Express Profile Creator","Username")

	If username = "" Then
  wscript.Quit(0)
  End If
  
  If username = "Username" Then
 	 while username = "Enter store number"
    username = inputbox("Enter store number)","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,val3
End 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 < 9 Then
  newAccountNum = "0000000" & newAccountNum
	Else
  newAccountNum = "000000" & newAccountNum	
	End If

	numKeyStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\"
	call regWrite(numKeyStr, newAccountNum, "REG_SZ")

	username = theUsername
	domain = theDomain

	'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 = "insert pop3 server here"
   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 = "insert server name here"
   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 & "@whatever.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()

My only problems are;

1)It enables SMTP server authentication(I don't need that) <-----Fixed! Thank you Weenur!

2)It will not set(via popup prompt) the password or save it.

I am very new to this and I pieced this together by doing searches, so if it's sloppy, my apologies. Does anyone know how to change this to prompt for the password and save it? Thanks in advance.

Edited July 20, 2004 by Maleboligia

[azcodemonkey]

The use Sicily dword should be 0 if you don't want SMTP server authentication.

smtpUseSicily = "0"

[Maleboligia]

Great thank you!

[Blue Baby]

Great post

I also a noob new to programing..

can you help me to

set leave copy of message -> tick

Incoming port to 995

ssl - tick

outgoing port to 465

ssl - tick.

=========

'Set Leave Mail On Server

var leavemail = "1"

var leavemailStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\Leave Mail On Server"

call regWrite(leavemailStr, leavemail, "REG_DWORD")

=============

I tried to modify add the script .. but doesnt work for me.

milion thanks in advanced

Edited September 8, 2008 by Blue Baby

[Blue Baby]

  Blue Baby said:

Great post.