corps de message dans outlook

Version imprimable

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:

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 ?

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

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
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.

27/06/2023, 12h11
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