Macro toute version excel

Version imprimable

02/10/2018, 16h06
munity

Macro toute version excel
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:

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

Citation:

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

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

david
02/10/2018, 16h17
pijaku

Bonjour,

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

Regarde ce code complet.

ok merci pijaku

Code:

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:

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

Citation:

argument ou appel de procédure incorrect

02/10/2018, 16h27
pijaku

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:

Const olFormatHTML As Long = 2
02/10/2018, 16h44
munity

merci
tout est rentré dans l'ordre

j'avoue que je ne maitrise pas tout entre le liaison tardive et anticipée...

merci encore

david
02/10/2018, 16h47
munity

et pour déclarer en richtext

Code:

Const olFormatHTML As Long = 1

?
02/10/2018, 16h51
munity

c'est bon j'ai ma réponse
c'est la valeur 3

merci en tout cas