Discussion :

[esse2016]

Bonjour,

Je recherche la solution à ma programmation, je n'arrive pas à mettre dans le corps du message outlook ma variable tableau (ici operations) c'est à dire que pour chaque éléments du tableau "operations" une ligne s'ajoute dans le corps du message avec la valeur de ce tableau

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
 
Dim NewMail As MailItem
 
 
With NewMail
 
       'Sujet :
       .Subject = "test" & TextBox1.Value
       'Copies
       .To = NomCourriel(0) '"xxx@gmail.com"
     'Corps du mail :
 
       .Body = "Bonjour," & vbCrLf _
    & vbCrLf _
    & "Pour information" _
 
    & "Cordialement." _
    & vbCrLf
For i = 1 To 5
    Operations (i) & vbCrLf
Next i
       .Send

ça ne marche pas cette façon de faire (je ne voudrais pas passer par du html). Il m'insulte et c'est normal par "procédure attendue et non une variable"

j'ai mis ma boucle "en dehors" de la balise .body mais idem seul le dernier element de operations et pris en considération
comment faire svp ?

[Franc]

Bonjour, essaie ceci, j'ai ajouté une boucle pour ajouter chaque élément du tableau dans le corps du message:

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
Dim NewMail As MailItem
 
With NewMail
 
    'Sujet :
    .Subject = "test" & TextBox1.Value
    'Copies
    .To = NomCourriel(0) '"xxx@gmail.com"
    'Corps du mail :
 
    .Body = "Bonjour," & vbCrLf _
        & vbCrLf _
        & "Pour information" _
        & vbCrLf
    'parcours du tableau et ajout des éléments
    For i = 1 To 5
        .Body = .Body & Operations(i) & vbCrLf
    Next i
 
    .Body = .Body & "Cordialement." _
        & vbCrLf
 
    .Send
End With

Oups, pas lu ton code jusqu'au bout, je vois que tu as déjà essayé la même méthode.

[esse2016]

bonjour Franc,

merci, c'est exactement ça je ne savais pas qu'il fallait faire .body = .body ....

Merci beaucoup ça fonctionne très bien