Discussion :

[bapt592]

Bonjour

j'ai finalisé une macro qui permet de selectionner des données dans un tableau et de les insérer dans un mail en VBA sur excel
mon problème c'est que le .bodyHtml que j'utilise n'est pas reconnus par la macro et je voudrai savoir qu'elle moyen utiliser pour le debeuger (référence a ajouter ou autre

merci d'avance

je vous passe la macro

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Sub examen()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
    Dim i As Integer
    Dim N As Integer
    Dim Msg, Subj, Msgbody As String
 
Msg = Msg & "Bonjour," & vbCrLf
Msg = Msg & vbCrLf
Msg = Msg & "Voici les résultats de l'évaluation n°" & Cells(14, 10) & " de la semaine dernière." & vbCrLf
Msg = Msg & "Bon courage"
Msg = Msg & vbCrLf
 
Subj = Subj & vbCrLf
Subj = Subj & "..." & vbCrLf
Subj = Subj & "..." & vbCrLf
Subj = Subj & "..." & vbCrLf
Subj = Subj & "..." & vbCrLf
Subj = Subj & "..." & vbCrLf
 
N = Cells(11, 10)
 
N = N + 1
 
For i = 2 To N
 
Msgbody = Msgbody & "<table>"
Msgbody = Msgbody & "<tr><td>" & Cells(1, 2).Value & "</td><td>" & Cells(1, 3).Value & "</td><td>" & Cells(1, 4).Value & "</td><td>" & Cells(1, 5).Value & "</td><td>" & Cells(1, 6).Value & "</td><td>" & Cells(1, 7).Value & "</td><td>" & Cells(1, 8).Value & "</td></tr>"
Msgbody = Msgbody & "<tr><td>" & Cells(i, 2).Value & "</td><td>" & Cells(i, 3).Value & "</td><td>" & Cells(i, 4).Value & "</td><td>" & Cells(i, 5).Value & "</td><td>" & Cells(i, 6).Value & "</td><td>" & Cells(i, 7).Value & "</td><td>" & Cells(i, 8).Value & "</td></tr>"
Msgbody = Msgbody & "</table>"
        Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    With OutMail
        .To = Cells(i, 1)
        .Subject = "Resultats évalutations n°" & Cells(14, 10)
        .Body = Msg
        .bodyHTML = Msgbody
        .Body = Subj
        .Send
    End With
 
Next
 
 
End Sub

[halaster08]

Code :

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

1
2
3
4
5
6
7
8
    With OutMail
        .To = Cells(i, 1)
        .Subject = "Resultats évalutations n°" & Cells(14, 10)
        .Body = Msg
        .bodyHTML = Msgbody
        .Body = Subj
        .Send
    End With

Bonjour,

Je ne pense pas que tu puisse définir deux fois le body, soit tu fait tout en HTML soit tu ne fais rien, mais tu ne peux mélanger les deux.

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
Msg = Msg & "Bonjour," &  "<br>"
Msg = Msg & "<br>"
Msg = Msg & "Voici les résultats de l'évaluation n°" & Cells(14, 10) & " de la semaine dernière." & "<br>"
Msg = Msg & "Bon courage"
Msg = Msg & "<br>"

Code :

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

1
2
3
4
5
6
7
With OutMail
        .To = Cells(i, 1)
        .Subject = "Resultats évalutations n°" & Cells(14, 10)
        '.Body = Msg
        .bodyHTML =Msg & Subj
        .Send
    End With

[bapt592]

J'ai essayé en mettant que le BodyHTML mais meme problème il m'indique propriété ou methode non gèré par cet objet

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
Sub examen()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
    Dim i As Integer
    Dim N As Integer
    Dim Msg, Subj, Msgbody As String
 
Msg = Msg & "Bonjour," & "<br>"
Msg = Msg & "<br>"
Msg = Msg & "Voici les résultats de l'évaluation n°" & Cells(14, 10) & " de la semaine dernière." & "<br>"
Msg = Msg & "Bon courage"
Msg = Msg & "<br>"
 
Subj = Subj & vbCrLf
Subj = Subj & "..." & vbCrLf
Subj = Subj & "..." & vbCrLf
Subj = Subj & "..." & vbCrLf
Subj = Subj & "..." & vbCrLf
Subj = Subj & "..." & vbCrLf
 
N = Cells(11, 10)
 
N = N + 1
 
For i = 2 To N
 
Msgbody = Msgbody & "<table>"
Msgbody = Msgbody & "<tr><td>" & Cells(1, 2).Value & "</td><td>" & Cells(1, 3).Value & "</td><td>" & Cells(1, 4).Value & "</td><td>" & Cells(1, 5).Value & "</td><td>" & Cells(1, 6).Value & "</td><td>" & Cells(1, 7).Value & "</td><td>" & Cells(1, 8).Value & "</td></tr>"
Msgbody = Msgbody & "<tr><td>" & Cells(i, 2).Value & "</td><td>" & Cells(i, 3).Value & "</td><td>" & Cells(i, 4).Value & "</td><td>" & Cells(i, 5).Value & "</td><td>" & Cells(i, 6).Value & "</td><td>" & Cells(i, 7).Value & "</td><td>" & Cells(i, 8).Value & "</td></tr>"
Msgbody = Msgbody & "</table>"
        Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    With OutMail
        .To = Cells(i, 1)
        .Subject = "Resultats évalutations n°" & Cells(14, 10)
        .BodyHTML = Msgbody
        .Send
    End With
 
Next
 
 
End Sub

[bapt592]

c'est bon ca fonction ce n'est juste pas .bodyHTML mais HTMLBody