Bonjour

Je développe une petite application en visual basic 2005.
J'essaie d'envoyer un email via Outlook
J'utilise ce bout de code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Public Sub SendEmailtoContacts(ByVal AdresseMail As String)
    Dim subjectEmail As String = "Sujetdumail"
    Dim bodyEmail As String = "Corpsdumessage"
    CreateEmailItem(subjectEmail, AdresseMail, bodyEmail)
End Sub
 
Private Sub CreateEmailItem(ByVal subjectEmail As String, _
    ByVal toEmail As String, ByVal bodyEmail As String)
    Dim Outlook As Microsoft.Office.Interop.Outlook.Application
 
    Outlook = New Microsoft.Office.Interop.Outlook.Application
    Dim eMail As Microsoft.Office.Interop.Outlook.MailItem = _
            Outlook.CreateItem(Outlook.OlItemType.olMailItem)
    With eMail
        .Subject = subjectEmail
        .To = toEmail
        .Body = bodyEmail
        .Importance = Outlook.OlImportance.olImportanceLow
        .Send()
    End With
 
End Sub

J'obtiens le message d'erreur suivant :
Impossible de créer le composant ActiveX.
Quelqu'un aurait-il une idée ?

Merci d'avance