Excel envois Fichier PDF piece jointe Outlook

Bonjour,
Je voudrais envoyer un fichier PDF qui à été générer par une macro excel par outlook.
J'ai essayer cela:
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.Attachments.Add "C:\DOCUME~1\gbidault\LOCALS~1\Temp\ComOutils.pdf"
End With
Mais ça ne fonctionne pas. il ne reconnais pas le Outlook. Application
J'utillise Office 2007.
Merci
Cordiallement Guillaume