Greythorn
asked on
Outlook Web Access as Default mailto in Windows 7
I have tried this script below and it has worked with XP PC but no luck on the Win7. Any help would be great!
' Initialize error handling
Option Explicit
On Error Resume Next
' Declare variables
Dim objWSHShell ' As WScript.Shell
Dim strInput ' As String
' Ask for FQDN to Exchange Server
'strInput = InputBox("Enter the Exchange Server full qualified domain name. Remember that if you are using SSL to use 'https: (like: <https://myserver.mydomain.com>) ")
strInput = ""
' Check if server FQDN has been supplied
If Trim(strInput) <> "" Then
' Put registry settings to make OWA a mail client one can choose in IE
Set objWSHShell = WScript.CreateObject("WScr ipt.Shell" )
With objWSHShell
'adds Microsoft Outlook Web access as a Mail Handler on the system.
.RegWrite "HKLM\SOFTWARE\Clients\Mai l\Outlook Web Access\", "Microsoft Outlook Web Access", "REG_SZ"
.RegWrite "HKLM\SOFTWARE\Clients\Mai l\Outlook Web Access\Protocols\mailto\", "URL:MailTo Protocol", "REG_SZ"
.RegWrite "HKLM\SOFTWARE\Clients\Mai l\Outlook Web Access\Protocols\mailto\UR L Protocol", "", "REG_SZ"
.RegWrite "HKLM\SOFTWARE\Clients\Mai l\Outlook Web Access\Protocols\mailto\Ed itFlags", &H00000002, "REG_BINARY"
.RegWrite "HKLM\SOFTWARE\Clients\Mai l\Outlook Web Access\Protocols\mailto\De faultIcon\ ", "%ProgramFiles%\Outlook Express\msimn.exe,-2", "REG_EXPAND_SZ"
.RegWrite "HKLM\SOFTWARE\Clients\Mai l\Outlook Web Access\shell\open\command\ ", """%ProgramFiles%\Internet Explorer\iexplore.exe"" ", "REG_EXPAND_SZ"
'sets the path and Variables to open up and address a message inside of OWA - used by Send to Mail selection
.RegWrite "HKLM\SOFTWARE\Clients\Mai l\Outlook Web Access\Protocols\mailto\sh ell\open\c ommand\", """%ProgramFiles%\Internet Explorer\iexplore.exe"" " & strInput & "/owa//owa/?ae=Item&a=New& t=IPM.Note &mailtoadd r=%1", "REG_EXPAND_SZ"
'sets the path and Variables to open up and address a message inside of OWA - used by mailto: links
.RegWrite "HKLM\SOFTWARE\Classes\mai lto\shell\ open\comma nd\", """%ProgramFiles%\Internet Explorer\iexplore.exe"" " & strInput & "/owa/?ae=Item&a=New&t=IPM .Note&mail toaddr=%1" , "REG_EXPAND_SZ"
'changes the internet program setting for mail to defautl to OWA
.RegWrite "HKLM\SOFTWARE\Clients\Mai l\","Outlo ok Web Access", "REG_SZ"
End With
' Tidy up
Set objWSHShell = Nothing
Else
WScript.Echo "Please enter a valid Exchange Server full qualified domain name"
End If
' Tidy up
Set objWSHShell = Nothing
' Say good bye
WScript.Echo "Thank you for using this script."
' Initialize error handling
Option Explicit
On Error Resume Next
' Declare variables
Dim objWSHShell ' As WScript.Shell
Dim strInput ' As String
' Ask for FQDN to Exchange Server
'strInput = InputBox("Enter the Exchange Server full qualified domain name. Remember that if you are using SSL to use 'https: (like: <https://myserver.mydomain.com>) ")
strInput = ""
' Check if server FQDN has been supplied
If Trim(strInput) <> "" Then
' Put registry settings to make OWA a mail client one can choose in IE
Set objWSHShell = WScript.CreateObject("WScr
With objWSHShell
'adds Microsoft Outlook Web access as a Mail Handler on the system.
.RegWrite "HKLM\SOFTWARE\Clients\Mai
.RegWrite "HKLM\SOFTWARE\Clients\Mai
.RegWrite "HKLM\SOFTWARE\Clients\Mai
.RegWrite "HKLM\SOFTWARE\Clients\Mai
.RegWrite "HKLM\SOFTWARE\Clients\Mai
.RegWrite "HKLM\SOFTWARE\Clients\Mai
'sets the path and Variables to open up and address a message inside of OWA - used by Send to Mail selection
.RegWrite "HKLM\SOFTWARE\Clients\Mai
'sets the path and Variables to open up and address a message inside of OWA - used by mailto: links
.RegWrite "HKLM\SOFTWARE\Classes\mai
'changes the internet program setting for mail to defautl to OWA
.RegWrite "HKLM\SOFTWARE\Clients\Mai
End With
' Tidy up
Set objWSHShell = Nothing
Else
WScript.Echo "Please enter a valid Exchange Server full qualified domain name"
End If
' Tidy up
Set objWSHShell = Nothing
' Say good bye
WScript.Echo "Thank you for using this script."
I've never tried this sort of thing in Win7, but I can't imagine that they would make such a drastic change to the registry locations so that it would no longer work. Do you see an error message when you try to run the script? Have you checked in regedit to see if the new entries are created successfully?
ASKER
I check the regedit the entries where not made. I dont see any errors when i run the script. I was more wondering if anyone had a script similar that works with win7.
It's probably a permissions problem, rather than an issue with the script. Is it possible for you to try to run the script as an administrator? I know this isn't something most users will be able to do, but it will at least shed some light on the problem. If you can successfully add the entries as an admin user, then either:
1. Your normal logon can't modify that part of the registry, or,
2. Your logon can't run any active scripts with the default security settings.
1. Your normal logon can't modify that part of the registry, or,
2. Your logon can't run any active scripts with the default security settings.
You can use the official Microsoft way to set OWA as default mail agent:
http://blogs.msdn.com/b/tmeston/archive/2004/01/08/48837.aspx
http://blogs.msdn.com/b/tmeston/archive/2004/01/08/48837.aspx
ASKER
I have the keys in manually now. The OWA doesnt show up in the Default mailto though.
You closed/restarted IE after adding the reg keys? Maybe you even need to log out/in? I don't have Win7 in front of me today, so I can't test it for myself.
ASKER
I did the reboot and still nothing... This was so easy in XP....
Well, we know that there's someone at MS whose job it is to make sure that things get more complicated with each product version :-) . There's nothing I can suggest right now - I will have to wait until tomorrow when I get a chance to try it in Win7 for myself.
ASKER
Ok thanks
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
I am still coming up with nothing... I would like to have it an option like in XP. Any ideas?
I'm afraid not. When I tried it (the script in your original post), it did actually set it as the default mail program. But I didn't find any way to select it as such in the GUI.