Discussion :

[dlbminot]

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

[PPz78]

Es-tu certain que les informations utiles Adress Objet Msg sont accessibles dans Sendmail elles n'ont pas l'air d'être publiques

PPz

[dlbminot]

Elles sont dans le même module que sendmail donc je pense qu'elles n'ont pas besoin d'être public.
En plus cela marche si Outlook est ouvert donc cela n'est pas en lien avec les déclarations de ces variables.
Enfin, je crois ?

[sabzzz]

bonjour dlbminot,

ce que je remarque,

tu as mit Option Explicit en début de programme et la variable "Objet"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Objet = Range("B2").Value

n'est pas définie, et aussi ce n'est pas une bonne idée d'utiliser un mot excel en variable.
aussi tu ne mentionnes pas avoir mit la référence à la bibliothèque Outlook.

[dlbminot]

Bonsoir sabzzz
La variable Objet est définie mais j'ai mal fait mon copier-coller (si elle avait été non définie, je pense qu'un message me l'indiquant aurait pointé dés la compilation du programme)
Pour l'utilisation du nom Excel, tu as raison mais il ne s'y arrête pas lors de l'exécution du programme, de plus si Outlook est ouvert cela marche
Enfin la référence à la bibliothéque Outlook est bien cochée
Je vérifie néanmoins le nom Objet au cas où !
Merci sabzzz