Hi. My code below sends the attachment through Outlook fine. The problem is that the attachment is displayed as "03-31-2005.xls" instead of "Quarterly Report.xls". Can someone please help! Thanks.


Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
objOutlookMsg.To = "SHK@hotmail.com"
objOutlookMsg.Subject = "Quarterly Report"
objOutlookMsg.Attachments.Add "C:\Quarterly Reports\03-31-2005.xls", 1, , "Quarterly Report" & ".xls"
objOutlookMsg.Send
Set objOutlookMsg = Nothing
Set objOutlook = Nothing