Passage Excel 2003 en Excel 2007

Version imprimable

03/12/2013, 15h00
babybell

Passage Excel 2003 en Excel 2007

Bonjour à tous

je rencontre un problème lors du passage d'excel 2003 à 2007 dans l'instruction

Code:

Set oSession = CreateObject("MAPI.Session")

qui me permet d'inclure dans le corps d'un mail une image ".jpg".
Lorsque le programme arrive sur cette ligne, Office veut me réinstaller Office 2003.
Suis-je assez clair dans mes explications ?
03/12/2013, 16h30
parmi

Bonjour,

Je pense que ça te prend une référence à CDO qui ne vient pas par défaut dans Office 2007. Voir ce lien qui explique un peu ce qu'il en est...
03/12/2013, 16h38
babybell

Effectivement, cela doit être ça. Dans mes références VBAProject se trouve Microsoft CDO 1.21 Library.
Faut-il en installer une autre et comment ?

Merci à toi

Sur le lien que je t'ai mis, ça explique un peu comment tu peux le retrouver, mais si c'est seulement pour inclure une image, tu pourrais essayer cette méthode qui a été fournie récemment dans un autre post... à modifier selon tes besoins...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    Dim objOL As Object, ObjMail As Object
    Dim oAttach As Object, ColAttach As Object
 
    Set objOL = CreateObject("Outlook.Application")
    Set ObjMail = objOL.CreateItem(0)
    Set ColAttach = ObjMail.attachments
    Set oAttach = ColAttach.Add("C:\Koala.jpg") 'Changer le chemin et le nom de l'image
 
    With ObjMail
        .To =  "Adresse d'envoi"
        .CC = "Adresse CC"
        .Subject = "Ton sujet"
        .HTMLBody = "<BODY><FONT face=Arial color=#000080 size=2></FONT>" & _
            "Bonjour, <br><br><IMG src=cid:Koala.jpg></BODY>"   'Nom de l'image sans chemin
        ObjMail.Save
        .Display    'Send   Display permet d'afficher le message, Send l'envoie sans affichage
    End With
 
    Set oAttach = Nothing
    Set ColAttach = Nothing
    Set ObjMail = Nothing
    Set objOL = Nothing

03/12/2013, 18h44
babybell

Cela ne fonctionne pas, le fichier se retrouve en Pièce Jointe
03/12/2013, 19h13
parmi

Pourtant, ici sous 2007, l'image est belle et bien affichée et aucune pièce jointe dans le courriel.

Peux-tu mettre ton code ?

C'est celui que tu m'as donné :

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
Sub test()
   Dim objOL As Object, ObjMail As Object
    Dim oAttach As Object, ColAttach As Object
 
    Set objOL = CreateObject("Outlook.Application")
    Set ObjMail = objOL.CreateItem(0)
    Set ColAttach = ObjMail.Attachments
    Set oAttach = ColAttach.Add("C:\Users\Philippe\Desktop\Base incidents\icone SG.jpg") 'Changer le chemin et le nom de l'image
 
    With ObjMail
        .To = "Adresse d'envoi"
        .CC = "Adresse CC"
        .Subject = "Ton sujet"
        .HTMLBody = "<BODY><FONT face=Arial color=#000080 size=2></FONT>" & _
            "Bonjour, <br><br><IMG src=cid:Koala.jpg></BODY>"   'Nom de l'image sans chemin
        ObjMail.Save
        .Display    'Send   Display permet d'afficher le message, Send l'envoie sans affichage
    End With
 
    Set oAttach = Nothing
    Set ColAttach = Nothing
    Set ObjMail = Nothing
    Set objOL = Nothing
End Sub

Et j'ai bien remis le nom de mon fichier .jpg

03/12/2013, 19h36
parmi

Dans .HTMLBody, change koala.jpg par icone SG.jpg ;)
03/12/2013, 19h38
babybell

C'est fait, c'est pareil
03/12/2013, 20h21
parmi

Étrange......
Tu utilises bien Excel 2007 et Outlook 2007 ?
Ici, ça fonctionne pourtant très bien...
03/12/2013, 20h29
babybell

oui, Excel et Outlook sont bien 2007. Par contre, à mon travail où ma macro sert aussi, j'ai Excel 2007 et Outlook 2003, d'où ma première question

Est-ce que dans Outlook je ne devrais pas avoir des références spéciales ?
03/12/2013, 20h33
parmi

En utilisant CreateObject, aucune référence à Outlook n'est nécessaire.
Il faudrait que tu testes dans les 2 environnements pour voir si ça fonctionne dans au moins un.

J'ai essayé de mettre 2 objets

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
Sub test()
   Dim objOL As Object, ObjMail As Object
    Dim oAttach As Object, ColAttach As Object
 
    Set objOL = CreateObject("Outlook.Application")
    Set ObjMail = objOL.CreateItem(0)
    Set ColAttach = ObjMail.Attachments
 
    Set oAttach = ColAttach.Add("C:\Users\Philippe\Desktop\Base incidents\icone SG.jpg")
    Set oAttach = ColAttach.Add("C:\Users\Philippe\Desktop\Suivi d'activité télécollecte\Références.gif")
 
    With ObjMail
        .To = "Adresse d'envoi"
        .CC = "Adresse CC"
        .Subject = "Ton sujet"
        .HTMLBody = "<BODY><FONT face=Arial color=#000080 size=2></FONT>" & "Bonjour, <br><br><IMG src=cid:icone SG.jpg></BODY>"
        .HTMLBody = "<BODY><FONT face=Arial color=#000080 size=2></FONT>" & "Bonjour, <br><br><IMG src=cid:Références.gif></BODY>"
        ObjMail.Save
        .Display
    End With
 
    Set oAttach = Nothing
    Set ColAttach = Nothing
    Set ObjMail = Nothing
    Set objOL = Nothing
End Sub

résultat, le 1er est en pièce jointe, le deuxième est dans le corps du mail.

03/12/2013, 21h35
parmi

C'est dû à l'espace dans le nom du fichier ...
Je viens de faire le test.

Reste maintenant à trouver une façon d'intégrer l'espace dans le HTMLBody... ou renommer le ficher...
03/12/2013, 21h40
babybell

j'ai essayé en renommant le fichier .JPG en "icone", cela ne change rien
03/12/2013, 21h51
parmi

N'oublie pas de changer le nom aux 2 endroits.
Je n'ai pas encore trouvé de moyen d'intégrer l'espace ...
03/12/2013, 21h53
babybell

j'arrête pour ce soir, je verrais demain au boulot. Bonne soirée
03/12/2013, 22h03
parmi

D'après les recherches que j'ai faites, il semble qu'il ne peut pas y avoir d'espace dans le nom de fichier.

Pour le reste, ça devrait fonctionner.
04/12/2013, 14h14
babybell

Bonjour
Et bien, sur mon poste de travail(Excel 2007 et Outlook 2003), le résultat est différent. Seule le deuxième fichier se trouve dans le corps du mail. Par contre je retrouve aussi les deux fichiers en pièces jointes.

Ca y est, trouvé. Il faut mettre le HTMLBody sur la même ligne:

Code:

.HTMLBody = "<BODY>" & "Bonjour, <IMG src='cid:Icone.jpg'> <IMG src='cid:Fichier.gif'>"

Merci encore