Bonjour
A partir d'un programme VBA Excel, je cherche à envoyer un mail via Outlook. Ce que j'ai écrit marche jusqu'au moment de l'envoi par .send où un message d'erreur apparaît :
"Erreur d'exécution 287 - Erreur définie par l'application ou par l'objet".
A noter que si j'ouvre Outlook avant d'utiliser mon programme Excel, je n'ai pas d'erreur et le mail part comme prévu
Voici mon programme car je séche :

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
24
Option Explicit
 
Public OutlookApp As Outlook.Application
Public MItem As Outlook.MailItem
Dim Adress As String
Dim Repres As String
Dim Civilite As String
Dim Module As String
Dim Msg As String
 
Sub Mail1()
 
    'Récupérer les données de la feuille Mail
    RecupDonnees
 
    'Composer le message
    Msg = "Bonjour " & Civilite & " " & Repres & vbCrLf & vbCrLf
    Msg = Msg & "A la suite de notre contact téléphonique, vous trouverez en piéces jointes les modalités d'inscription à notre module de formation," & vbCrLf
    Msg = Msg & "Dans l'attente de votre confirmation, veuillez recevoir mes salutations distinguées." & vbCrLf & vbCrLf
 
    'Créer le mail et le transmettre
    SendMail
 
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub RecupDonnees()
 
    'Créer l'objet Outlook
    Set OutlookApp = New Outlook.Application
 
    'Obtenir les données
    Worksheets("Mail").Activate
    Adress = Range("B1").Value
    Objet = Range("B2").Value
    Repres = Range("B3").Value
    Civilite = Range("B4").Value
    Module = Range("B5").Value
 
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub SendMail()
 
    'Créer le contenu du mail et le transmettre
    Set MItem = OutlookApp.CreateItem(olMailItem)
    With MItem
        .To = Adress
        .Subject = Objet
        .Body = Msg
        .Send    'c'est ici que cela bloque !!
    End With
 
End Sub
Nota : les données sont dans une feuille Excel intitulée "Mail"

Voilà, une idée salvatrice serait trés appréciée.
Merci d'avance