Discussion :

[grimgrim]

Bonjour,

J'ai utilisé un module d'envoi d'un mail dans un autre programme par un copier coller. Ce module fonctionne très bien dans le premier programme.

Or, dans mon nouveau programme, j'obtiens une erreur immédiate "Erreur de compilation - Type défini par l'utilisateur non défini

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
Sub Envoi_Fichier_Tableau()
 
Dim Destinataires As String
Dim DestinatairesCopy As String
Dim TexteCorps As String
Dim Semaine As Integer
Dim Fichier As String
Dim Cellule As Range
Dim DerLigneDest As Long
Dim DerLigneCopy As Long
Dim appliOutlook As New Outlook.Application
Dim emailOutlook As Outlook.MailItem
 
Set appliOutlook = New Outlook.Application
Set emailOutlook = appliOutlook.CreateItem(olMailItem)
Sheets("Destinataire").Select
 
Semaine = IsoWeekNum(Date)
 
DerLigneDest = [A1].End(xlDown).Row
DerLigneCopy = [B1].End(xlDown).Row
TexteCorps = [F1]

L'erreur est sur la ligne

Code :

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

Dim appliOutlook As New Outlook.Application

Merci pour votre analyse

[QuestVba]

Bonjour, tu as bien ajouté tes bibliothèques Microsoft Outlook?

Ajoute une référence à la bibliothèque d'objets Microsoft Outlook 10.0. Pour ce faire, procède comme suit :

• Dans le menu projet, clique sur Ajouter une référence.
• Sous l'onglet COM, clique sur Bibliothèque d'objets Microsoft Outlook 10.0, puis clique sur Sélectionner.
• Dans la boîte de dialogue Ajouter une référence, clique sur OK pour accepter tes sélections.

Ici

[grimgrim]

Merci

J'oublie facilement de modifier ce paramètre