Instead, try this..
Code:
$rc = WriteValue("HKCU\Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000001", "Account Name", @DOMAIN, "REG_SZ")
Please note: with Variables, Macros, and Numbers you should not need to surround with quotes.
Another comment..
In your code, you re-use the REG Key -
"HKCU\Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000001"
So.. Give it a Variable and clean up your code some more..
Code:
$maildomain = "@@thedomain.com"
$pop = "mail"
$smtp = "mailout"
$OMI="HKCU\Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000001"
$rc = AddKey($OMI)
$rc = WriteValue($OMI, "Account Name", @DOMAIN, "REG_SZ")
$rc = WriteValue($OMI, "Connection Type", 0, "REG_DWORD")
$rc = WriteValue($OMI, "POP3 Prompt for Password", 0, "REG_DWORD")
$rc = WriteValue($OMI, "POP3 Server", $POP, "REG_SZ")
$rc = WriteValue($OMI, "POP3 Use Sicily", 0, "REG_DWORD")
$rc = WriteValue($OMI, "POP3 User Name", @USERID, "REG_SZ")
$rc = WriteValue($OMI, "SMTP Display Name", @FULLNAME, "REG_SZ")
$rc = WriteValue($OMI, "SMTP Email Address", @USERID + $maildomain, "REG_SZ")
$rc = WriteValue($OMI, "SMTP Server", $SMTP, "REG_SZ")
;
; Set the email sending and retrieval options - Office2k
;
$OPTIONS="HKCU\Software\Microsoft\Office\9.0\Outlook\Options\Mail"
$rc = WriteValue($OPTIONS, "Always hide dialog", 1, "REG_DWORD")
$rc = WriteValue($OPTIONS, "Poll For Mail", 1, "REG_DWORD")
$rc = WriteValue($OPTIONS, "Poll For Mail Interval", 5, "REG_DWORD")
$rc = WriteValue($OPTIONS, "Send Mail Immediately", 1, "REG_DWORD")
HTH,
Kent
