Automatically generated email from Excel

[Ross]

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("D21000").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?

 

[Jialiang Ge [MSFT]]

Hello Ross,

Welcome to Microsoft Newsgroup Support Service!

From your post, my understanding on this issue is: You wonder why the email
message sent by Excel Automation has an additional line "FAQ 600 600¡­"
before the "Introduction" line in Blackberries. If I'm off base, please
feel free to let me know.

From my point of view, there can be two possible reasons for the issue:
1. Workbook / Excel specific problem. i.e. something's wrong with the
Workbook or Selection we grabbed to send.
2. Blackberry specific problem. i.e. Blackberry does not interpret Excel's
XML format correctly, and results in the additional line.

In order to narrow down our focus, let's verify the above guesses:

The KB article "How to send a range of cells in an e-mail message by using
Visual Basic for Applications in Excel"
http://support.microsoft.com/kb/816644
introduces the standard way to send a range of cells in Excel. We can
create a new workbook, input some simple text into A1:B5 (e.g. "aa", "bb"),
then copy & paste the VBA code in the KB article to the workbook's
VBAProject (ALT+F11), run it and see if Blackberry displays the spreadsheet
correctly. If you still get an additional line in Blackberry, it is very
likely that Blackberry does not interpret Excel's XML format correctly. And
I'd suggest you contact Blackberry support for further assistance
(https://www.blackberry.com/CSOHelp/)

To see the HTML source sent by Excel, we can open the email in Outlook,
right click on the introduction line, and select "View Source" command. The
resulting html should contain something like:

<div id=cover-sheet>This is the introduction line.
<hr>

This part of HTML is for the introduction line. You can check the HTML
source before this part, and see if there is anything like "FAQ 600 600¡­".
If you are not comfortable with HTML, please send the HTML source to my
mailbox ([email protected]), and I will check it for you. It will be
helpful if you can send the workbook to me too. Honestly, I do not have
Blackberry at hand, but I will do my best to help you from other angles of
the issue.

Regards,
Jialiang Ge ([email protected], remove 'online.')
Microsoft Online Community Support

Delighting our customers is our #1 priority. We welcome your comments and
suggestions about how we can improve the support we provide to you. Please
feel free to let my manager know what you think of the level of service
provided. You can send feedback directly to my manager at:
(e-mail address removed).

==================================================
Get notification to my posts through email? Please refer to
http://msdn.microsoft.com/subscriptions/managednewsgroups/default.aspx#notif
ications.

Note: The MSDN Managed Newsgroup support offering is for non-urgent issues
where an initial response from the community or a Microsoft Support
Engineer within 1 business day is acceptable. Please note that each follow
up response may take approximately 2 business days as the support
professional working with you may need further investigation to reach the
most efficient resolution. The offering is not appropriate for situations
that require urgent, real-time or phone-based interactions or complex
project analysis and dump analysis issues. Issues of this nature are best
handled working with a dedicated Microsoft Support Engineer by contacting
Microsoft Customer Support Services (CSS) at
http://msdn.microsoft.com/subscriptions/support/default.aspx.
==================================================
This posting is provided "AS IS" with no warranties, and confers no rights.

 

[Jialiang Ge [MSFT]]

Hello Ross,

I am writing to check the status of the issue. Ross, would you mind letting
me know the result of the suggestions? If there is anything I can do for
you, feel free to let me know. I will be more than happy to be of
assistance.

Have a great day!

Regards,
Jialiang Ge ([email protected], remove 'online.')
Microsoft Online Community Support

=================================================
Delighting our customers is our #1 priority. We welcome your comments and
suggestions about how we can improve the support we provide to you. Please
feel free to let my manager know what you think of the level of service
provided. You can send feedback directly to my manager at:
(e-mail address removed).

This posting is provided "AS IS" with no warranties, and confers no rights.
=================================================