Bonsoir à tous,

j'ai créer un Classeur Excel, avec des Macros et un formulaire à la fin avec trois boutons:
1 /envois de mail
2/ envois de mail
3/ envois de mail

Apparemment, me suis plantée cela ne fonctionne pas
Juste le petit message "Erreur d'envoie du message" qui s'affiche.
Le pire! c'est que cela fonctionnais avant que je fasse des modif 80
(enfin, pour les deux premiers)

-Modif faites:
texte et l'@ mail (deux au lieu d'une seul, séparées par " ; " )


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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
 
Private Sub CommandButton1_Click()
On Error GoTo Err
 
    Set myOlapp = CreateObject("Outlook.Application")
    Set Email = myOlapp.CreateItem(olMailItem)
 
 
    Dim destinataires As String
    destinataires = Email.Recipients.Add(Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("C58").Value)
 
    Dim agence As String
    agence = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("H13").Value
 
    Email.Subject = "Prise en compte de l'intervention: " & agence
 
    Email.Body = corpsdumail()
 
    Email.Send
    MsgBox ("Le message a bien été envoyé")
 
 
Exit Sub
 
Err:
MsgBox ("Erreur d'envoie du message")
End Sub
 
 
 
 
 
Function corpsdumail() As String
    Dim Ninter As String
    Ninter = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("H8").Value
 
    Dim Presta As String
    Presta = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("B13").Value
 
    Dim Mot As String
    Mot = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("B29").Value
 
    Dim echea As String
    echea = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("D27").Value
 
    Dim delai As String
    delai = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("I30").Value
 
    Dim texte As String
    texte = "Bonjour," & _
    vbCrLf & "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX:" & vbCrLf & _
    vbCrLf & "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX:" & _
    vbCrLf & vbCrLf & "XXXXXXXXXX: " & Ninter & _
    vbCrLf & "XXXXXXXXXXXXXX: " & Presta & _
    vbCrLf & "XXXXXXXXXXXXXXXXX :" & Mot & _
    vbCrLf & "XXXXXXXXXXXXXXXXXXXXXXXXXXXéXXXXXX éXXXX : " & echea & _
    vbCrLf & "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX " & delai & "XXXX" & vbCrLf & _
    vbCrLf & "Cordialement" & vbCrLf & _
    vbCrLf & "XXXXXXXXXXXXXXXXXXXXXXXXXXXX."
 
 
    corpsdumail = texte
 
End Function
 
Private Sub CommandButton2_Click()
On Error GoTo Err
 
    Set myOlapp = CreateObject("Outlook.Application")
    Set Email = myOlapp.CreateItem(olMailItem)
 
    Dim destinataires As String
    destinataires = Email.Recipients.Add(Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("C58").Value)
 
    Dim agence As String
    agence = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("H13").Value
 
    Dim BO As String
    BO = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("G13").Value
 
    Email.Subject = " XXXXXXXXXXXXXXXXXXXXXXXXXXXXX : XXXXXX DE  " & agence & " " & BO
 
 
    Email.Body = corpsdumails()
 
    Email.Send
    MsgBox ("Le message a bien été envoyé")
Exit Sub
 
Err:
MsgBox ("Erreur d'envoie du message")
End Sub
 
 
 
 
 
 
Function corpsdumails() As String
    Dim Ninter As String
    Ninter = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("H8").Value
 
    Dim Age As String
    Age = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("H13").Value
 
    Dim BO As String
    BO = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("G13").Value
 
    Dim adrs As String
    adrs = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("G15").Value
 
    Dim Dpt As String
    Dpt = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("G16").Value
 
    Dim vil As String
    vil = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("H16").Value
 
    Dim dest As String
    dest = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("A44").Value
 
    Dim pan As String
    pan = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("B29").Value
 
    Dim texte As String
    texte = "XXXXXXXXXX" & _
    vbCrLf & "XXXXXXXXXXXXXXXXXXXXXXX : " & Ninter & vbCrLf & _
    vbCrLf & "Bonjour," & vbCrLf & _
    vbCrLf & "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX : " & vbCrLf & _
    vbCrLf & "XXXXXX :" & Age & _
    vbCrLf & "XXXXX :" & BO & _
    vbCrLf & "adresse :" & adrs & Dpt & vil & _
    vbCrLf & "XXXXXXXXX :" & dest & vbCrLf & _
    vbCrLf & vbCrLf & "XXXXXXXXXXXXXXXX:" & _
    vbCrLf & pan
 
 
     corpsdumails = texte
End Function
 
Private Sub CommandButton3_Click()
On Error GoTo Err
 
    Set myOlapp = CreateObject("Outlook.Application")
    Set Email = myOlapp.CreateItem(olMailItem)
 
 
    Dim destinataires As String
    destinataires = Email.Recipients.Add(Workbooks("GI 2009").Worksheets("Formulaire").Range("C58").Value)
 
    Dim agence As String
    agence = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("G13").Value
 
    Email.Subject = " Cloture de l'intervention " & agence
 
    Email.Body = corpsdumailss()
 
    Email.Send
    MsgBox ("Le message a bien été envoyé")
 
 
Exit Sub
 
Err:
MsgBox ("Erreur d'envoie du message")
End Sub
 
 
Function corpsdumailss() As String
    Dim Ninter As String
    Ninter = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("H8").Value
 
    Dim clo As String
    clo = Workbooks("GI 2009").Worksheets("FORMAULAIRE").Range("I27").Value
 
    Dim texte As String
    texte = "Bonjour," & _
    vbCrLf & "XXXXXXXXXXXXXXXXXXX" & Ninter & "a XXXXXXXXXXXXXXXXXXXXXXXXxx" & clo & ".Merci,XXXXXXXXXXXXX." & _
    vbCrLf & "XXXXXXXXXXXXXXXXXXXXXXXXX"
      corpsdumailss = texte
End Function
la cassse pour "corpsdumail"
pour chaque boutons je change la variable en:
corpsdumail s ou 1
corpsdumails s ou 2
....

et pour les retours ChariO?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
.....vbcrLf & _          
       vbcLf........"
End Sub
Pensez-vous que cela peut venir de là.
Si j'ai oublié des infos, n'hésitez pas.


MERCI à TouS