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