Envoi mail outlook

Hello tous,

Je un souci pas mal sioux pour ce qui aime:

Voici mon souci :

Je cherche a envoyer des mails via une application avec la dll outlook voici mon code :

 

            Dim olApp As Microsoft.Office.Interop.Outlook.Application

            Dim objNewMail As Microsoft.Office.Interop.Outlook.MailItem

 

            olApp = New Microsoft.Office.Interop.Outlook.Application

            objNewMail = olApp.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)

 

            objNewMail.Subject = txtExp.Text & " : " & txtObjet.Text

            objNewMail.Body = rTxtCorps.Text

            objNewMail.Recipients.Add(nom@monEntreprise.fr)

            objNewMail.Send()  

et voilà mon beau message d'erreur  au niveau de objNewMail.Recipients.Add(nom@monEntreprise.fr):
Opération abandonnée (Exception de HRESULT : 0x80004004 (E_ABORT))

Si vous pourriez me donner un ptit coup de main ...

Merci d'avance

Youpitralalalalere

si t'a trouvé la reponce merci de la dir car j'ai le mm blem cordialement