envoi du corps de mail avec une concatenation

[jebbayou]

Bon jour a tous,

j'utilise ce code pour envoyer un mail sous excel.
Mon problème est que je ne réussi pas a envoyer un ebody avec plus de 3 concaténations, au bout de la 4 eme le mail ne s’envoie plus
les infos sont dans une autres feuil
j'ai besoin d'envoyer une concaténation de plusieurs cellule

Merci d'avance

Sub envoi_Tech()

1 Dim CdoMessage As Object
2 Dim Fichier As Variant
  
3  On Error GoTo erreurtransport

4    ESubject = Worksheets("Donnees").Range("A8").Value
5    Fromo = Worksheets("Donnees").Range("A10").Value
6   SendTo = Worksheets("Donnees").Range("A10").Value
7   BCCto = Worksheets("Donnees").Range("A10").Value
8   Ebody = Worksheets("Donnees").Range("D6").Value & Chr(10) & Worksheets("Donnees").Range("I6").Value & Chr(10) & Worksheets("Donnees").Range("K6").Value
    
10   Set CdoMessage = CreateObject("CDO.Message")
   
11   With CdoMessage
12      .Subject = ESubject
13        .From = Fromo
14        .To = SendTo
15        .Bcc = BCCto
16        .TextBody = Ebody
          
17        .AddAttachment NewFileName
18        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
19        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "srv-msgch1.sogetrel.fr"
       
20       .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

21        .Configuration.Fields.Update
   
22 .Send
    
     End With
     Sheets("Donnees").Range("A4") = DateValue(Now)
24   Set CdoMessage = Nothing
        Exit Sub
25 erreurtransport:
     Application.Wait Now + TimeSerial(0, 0, 5)
26  Resume

27 End Sub

 

[jebbayou]

Re : envoi du corps de mail avec une concatenation

bjr, pas de solution a mon probleme?

 

[mprexcel]

Re : envoi du corps de mail avec une concatenation

Bonjour Jebbayou, bonjour le forum,
Peut-être une piste : CDO peut rencontrer des problèmes quand le nombre de caractère du texte de l'émail dépasse 1000.

Si cela n'est pas ton cas, as-tu essayer en faisant une boucle du style :
ebody=""
for i = 4 to 9
ebody=ebody & Worksheets("Donnees").cells(6,i).value
next i
(pas testé)

A+