Posted 31 October 2012 - 10:55
Posted 31 October 2012 - 11:16
Posted 01 November 2012 - 00:18
Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Outlook\Security] "Level1Remove"=".ade;.adp;.app;.asp;.bas;.bat;.cer;.chm;.cmd;.com;.cpl;.crt;.csh;.exe;.fxp;.hlp;.hta;.inf;.ins;.isp;.its;.js;.jse;.ksh;.lnk;.mad;.maf;.mag;.mam;.maq;.mar;.mas;.mat;.mau;.maw;.maw;.mda;.mdb;.mde;.mdt;.mdw;.mdz;.msc;.msi;.msp;.mst;.ops;.pcd;.pif;.prf;.prg;.pst;.reg;.scf;.scr;.sct;.shb;.shs;.tmp;.url;.vb;.vbe;.vbs;.vsmacros;.vss;.vst;.vsw;.ws;.wsc;.wsf;.wsh"
Posted 01 November 2012 - 00:43
'Allows attachments you specify to be opened in Outlook 2013
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\15.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: .bat;.com;.exe;.msi;.vbs"
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: .bat;.com;.exe;.msi;.vbs"
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 2013.", 4096, "Finished"
End If
Posted 17 November 2012 - 19:56
jakem1, on 31 October 2012 - 11:36, said: