'outlook_xp_attach.vbs
'© Doug Knox - rev 3-31-02
'Allows attachments you specify to be opened in Outlook XP

Option Explicit
On Error Resume Next
Dim WshShell, p1, n, errnum, statusmsg, attachments

Set WshShell = WScript.CreateObject("WScript.Shell")
p1 = "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Security\Level1Remove"
statusmsg = "Attachments"

Err.Clear
n = WshShell.RegRead (p1)
errnum = Err.Number
Err.Clear
On Error Goto 0
If errnum <> 0 Then
   statusmsg = "No attachments currently allowed" & vbCR
   statusmsg = statusmsg & "Add your desired file extensions." & vbCR
   statusmsg = statusmsg & "Extensions must be separated by a semi-colon. "
   statusmsg = statusmsg & "Example: exe;vbs;com;zip;msi"
Else
   attachments = n
   n = ""
   statusmsg = "Attachments currently allowed are:" & vbCR
   statusmsg = statusmsg & "Add more extensions, or remove existing ones." & vbCR
   statusmsg = statusmsg & "Extensions must be separated by a semi-colon. "
   statusmsg = statusmsg & "Example: exe;vbs;com;zip;msi"
End if

n = InputBox(statusmsg, "Attachments!", attachments)

If n <> "" Then
WshShell.RegWrite p1, n, "REG_SZ"
MsgBox "The following attachments: " & vbCR & n & vbcr & "can now be opened in Outlook XP", 4096, "Finished"
End If