This will only work if you use Outlook

For Windows Mail use SendMail (see the first section of this page)
http://www.rondebruin.nl/sendmail.htm
Or use CDO


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Alain Bernard" wrote in message ...
Hi,

The following code run perfectly with Windows2000 and Outlook. Using Vista
OSa nd Windows Mail that doesn't work any more. Is there a specific library
to select ? or Is there a different code ?

Set myMailApp = CreateObject("Outlook.Application")
Set myMail = myMailApp.CreateItem(olMailItem)
With myMail
.To = "
.Subject = "test"
.Body = "test"
'.Attachments.Add Path & "\" & File
.ReadReceiptRequested = True
.Display
End With

Could any body send me back information to adapt this code in my environment
?

Thank you in advance.
Alain