Posted to microsoft.public.excel.programming
|
|
Turn off Security Alert dailog box for office 2007
Hi Steve
You can read this in the MS article
If Outlook is able to detect that antivirus software is running with an acceptable status, Outlook disables security warnings for
the user
Try to find a answer on the Symantec site
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Steved" wrote in message ...
Hello Ron
I Use Symantec Endpoint Solution.
Steved
"Ron de Bruin" wrote:
If your AV is OK then you not see the security warnings
What do you use ( Av software)
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Steved" wrote in message ...
Hello Ron
I Have outlook Outlook 2007 So I have no joy
Is their code I can point in my Macro That will do the trick please.
I Thankyou
Steved
"Ron de Bruin" wrote:
See
http://www.rondebruin.nl/mail/prevent.htm
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Steved" wrote in message ...
Hello from Steved
I would like to please put in a command to the below that will turn off
Security Alert dailog box I use office 2007
Thankyou.
Sub MailToDepots()
'Working in 97-2007
Dim wb As Workbook
Dim Shname As Variant
Dim Addr As Variant
Dim N As Integer
Dim TempFilePath As String
Dim TempFileName As String
Dim FileExtStr As String
Dim FileFormatNum As Long
Shname = Array("1-City", "1-City", "2-Roskill", "2-Roskill",
"3-Papakura", "3-Papakura", "4-Wiri", "4-Wiri", "5-Shore", "5-Shore",
"6-Orewa", "6-Orewa", "7-Swanson", "7-Swanson", "8-Panmure", "8-Panmure")
Addr = Array("Bret Wilson", "Gavin Cook", "Colin Somerville", "Roskill
Tutor", "Warren Fowler", "Lisa Craik", "Warren Fowler", "Lisa Craik", "John
Taylor", "Janet Dunthorne", "John Taylor", "Janet Dunthorne", "Ralph
Williams", "Barbara Allen", "Bret Wilson", "Gavin Cook")
If Val(Application.Version) = 12 Then
'You run Excel 2007
FileExtStr = ".xls": FileFormatNum = 56
Else
'You run Excel 97-2003
FileExtStr = ".xls": FileFormatNum = -4143
End If
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
TempFilePath = Environ$("temp") & "\"
'Create the new workbooks/Mail it/Delete it
For N = LBound(Shname) To UBound(Shname)
TempFileName = "Sheet " & Shname(N) & " " & Format(Now, "dd-mmm-yy
h-mm-ss")
ThisWorkbook.Sheets(Shname(N)).Copy
With ActiveSheet.UsedRange
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
Set wb = ActiveWorkbook
With wb
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormatNum
On Error Resume Next
.SendMail Addr(N), _
"Drivers Annulments"
On Error Resume Next
.Close SaveChanges:=False
End With
Kill TempFilePath & TempFileName & FileExtStr
Next N
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
|