Is that what you're after? i totally misunderstood. Try ClickYes, or this:
http://www.mapilab.com/outlook/security/
For a small sampling of emails, the ClickYes is a great little program.
However, for larger email batches, use the link to the resource above.
You run this once on a computer when your Outlook message is created, and
then the security warnings never appear again; you don't have to wait for
5-second delays...
HTH,
Ryan---
--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.
"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