Hello-

I'm using the code below to automatically update a spreadsheet and
email it to users w/out my intervention. It works great and the email
looks fine in Outlook. When it arrives on the recipients'
Blackberries, they get the follwing on the top of the message before
the "Introduction" line:



FAQ 600 600 Sheet1 3 $A$1:$C$52 False False False $D$72:$D$73,$D$70,$D
$55:$D$59 Greater 0 Less 0 8955 11355 1665 1290 False False

This appears related to the Selection I am grabbing to send.

The code is as follows:



Private Sub Workbook_Open()

ActiveWorkbook.RefreshAll

Range("c2:c1000").Select
ActiveWorkbook.Names.Add Name:="ShipDate", RefersToR1C1:= _
"=RevPerDay!R2C3:R1000C3"
Range("a2:a1000").Select
ActiveWorkbook.Names.Add Name:="Prefix", RefersToR1C1:= _
"=RevPerDay!R2C1:R1000C1"
Range("b2:b1000").Select
ActiveWorkbook.Names.Add Name:="Revenue", RefersToR1C1:= _
"=RevPerDay!R2C2:R1000C2"
Range("D2:D1000").Select
ActiveWorkbook.Names.Add Name:="DayOfWeek", RefersToR1C1:= _
"=RevPerDay!R2C4:R1000C4"

Application.Goto (ActiveWorkbook.Sheets("FAQ").Range("A1:C52"))
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = Now()
.Item.To = "e-mail addresses of recipients"
.Item.Subject = "Update"
.Item.Send
End With

ActiveWorkbook.Save
Application.Quit


End Sub

Any idea why view on Blackberry is different for Outlook?