Sleeper: Email Code issue

[mduff]

Hi All I set up this code to send a workbook to a distribution list. On my system with Excel 2000 and outlook 2000 it's working fine but when I give this same sheet to some one with excel 2002 and outlook 2002 when it gets to the code in BOLD instead of sending the sheet it opens IE and locks up excel

Any ideas if I need to add something to the code form use with office 2002 or a setting or something any help is really appreciated

Sub Mail_SheetsArray()
Dim Arr() As String
    Dim N As Integer
    Dim cell As Range
N = 0
    For Each cell In Columns("G").Cells.SpecialCells(xlCellTypeConstants)
        If cell.EntireRow.Hidden = False And cell.Value Like "*@*" Then
            N = N + 1
            ReDim Preserve Arr(1 To N)
            Arr(N) = cell.Value
        End If
    Next cell
Dim wb As Workbook
Dim ws As Worksheet
Dim strdate As String
strdate = Format(Now - 1, "dd-mm-yy")
Application.ScreenUpdating = False
Sheets("Summary").Select 
ActiveSheet.Copy
For Each ws In Worksheets
    With ws.UsedRange
        .Value = .Value
    End With
Next
Set wb = ActiveWorkbook
With wb
.SaveAs "C:\MS-EL-SAL Summary" _
& " " & strdate & ".xls"
 On Error Resume Next
.SendMail Arr, Subject:=Sheets("Summary").Range("A1").Value
.ChangeFileAccess xlReadOnly
MsgBox "Email Sent"
On Error GoTo 0
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
Sheets("Master").Select
End Sub

[mdmackillop]

Works OK in 2003 (little consolation I know), but you get the "Office Outlook" warning. Is this a feature in 2002, or maybe it just halts the send?

BTW, What does this bit do, as it only applies to one worksheet anyway?

For Each ws In Worksheets
        With ws.UsedRange
            .Value = .Value
        End With
    Next

[Norie]

Is this code not another way to replace formulas with values in a worksheet?

For Each ws In Worksheets 
    With ws.UsedRange 
        .Value = .Value 
    End With 
Next 

[mdmackillop]

Thanks Norie
You're right, and a lot neater than my usual method
MD

[Anne Troy]

In case I haven't said so, Norie...we're SO glad you're here!! It's so obvious that you make a HUGE contribution at MrExcel. We're thrilled to have even a teeny tiny portion of your time!

(you too, MD. But then...I think you know that!!)

[mduff]

Works OK in 2003 (little consolation I know), but you get the "Office Outlook" warning. Is this a feature in 2002, or maybe it just halts the send?

I not sure if 2002 has that limit does any one know any code that will skip this warning? I know there are Addis but I just curious if there are any code that could accomplish this

thanks