Macro toute version excel

**munity** · 02/10/2018, 16h06

salut le phorum

j'ai un petit souci concernant la création d'une macro
celle ci me crée un email avec PJ
de mon poste pas de problème par contre si autre poste avec autre version excel ca plante
donc j'ai mis comme conseillé un createobject plutot que la référence issue de la bibiliothéque afin que le fichier soit compatible toute version
par contre j'ai un souci sur cette ligne (en rouge)

Code :

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

1
2
3
4
5
6

Dim oOutlook As Object
Set oOutlook = CreateObject("Outlook.application")
Dim WasOutlookOpen As Boolean
'Dim oMailItem As oOutlook.MailItem

j'ai le message d'erreur

erreur de compilation, type défini par l'utilisateur non défini

une ame charitable pourrait elle venir à mon secour
merci d'avance

david

**pijaku** · 02/10/2018, 16h17

Bonjour,

oMailItem doit aussi être déclaré comme Object.

Regarde ce code complet.

**munity** · 02/10/2018, 16h24

ok merci pijaku

Code :

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

1
2
3
4
5
6
7
 
 
Dim oOutlook, oMailItem As Object
Dim WasOutlookOpen As Boolean
Set oOutlook = CreateObject("Outlook.Application")
Set oMailItem = oOutlook.CreateItem(0)
Dim Body As Variant

par contre maintenant il plante à la ligne

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
25
26
27
28
29
30
31

Body = ContenuEmail

    'vérification si le Contenu du mail n'est pas vide. Si oui, email n'est pas envoyé. Si vous voulez pouvoir envoyer les email vides, mettez en commentaire les 4 lignes de code qui suivent.
    If (Body = False) Then
        MsgBox "Mail non envoyé car vide", vbOKOnly, "Message"
        Exit Sub
       End If
    
    'préparer Outlook
    'PreparerOutlook oOutlook
    Set olMailItem = oOutlook.CreateItem(0)
    
    'création de l'email
    With oMailItem
        .To = destinataire
        .cc = DestinataireCopie
        .Subject = sujet
        
        'CHOIX DU FORMAT
        '----------------------
        'email formaté comme texte
            '.BodyFormat = olFormatRichText
            '.Body = Body
            
            'OU
            
        'email formaté comme HTML
            .BodyFormat = olFormatHTML
            .HTMLBody = "<html><p>" & Body & "</p></html>"

il m'indique

argument ou appel de procédure incorrect

**pijaku** · 02/10/2018, 16h27

Parce que tu travailles en Late binding, tu n'as pas d'accès à la library d'objets Outlook.
Ni, de ce fait, à ces constantes.

Ajoutes donc, en début de code :

Code :

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