Sending a mail via outlook excel 2003

[lussac]

I had to send a email every day via excel 2003..it is a big rang
equivalent to 4 pages (b2:j300) with tables and charts...I have alread
a macro but it is not really a good one as I have to the finish the wor
by doing control V to past inside the mail the picture...and when I sen
the mail, the picture is not good and moves...so I am looking for idea
in order to send my range with charts properly with a nice picture i
the body of the mail and a pdf file if possible...I don't mind if it i
not automatic (opening of email) as I prefer to check before cliking o
send at the end...current macros does not send a range with charts..So
am looking forward for any help ..here is my current macro...thks i
advance for your help


Sub Send1()
ThisWorkbook.Activate
Worksheets("Global strat").Activate
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Global strat")

Dim aname As Name
Set aname = ThisWorkbook.Names("Impression")
aname.RefersToRange.Select

aname.RefersToRange.Copy

Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objMail = objOL.CreateItem(olMailItem)
objMail.Display

With objMail
.BCC = "(e-mail address removed)"
.Subject = "Strategies "

End With

Set objMail = Nothing
Set objOL = Nothing

Const OverwriteExisting = True
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
ObjFSO.CopyFile "P:\.gif", "P:\\", OverwriteExisting

Dim FS
Set FS = CreateObject("Scripting.FileSystemObject")

Application.ScreenUpdating = True
Application.DisplayAlerts = TrueEnd Su