Ecrire un long mail dans VBA
Bonjour à tous,
J'ai un petit souci dans une macro. J'ai une macro qui permet d'envoyer des fichier excel à plusieurs destinataires via outlook. J'aimerai taper un texte directement dans VBA. J'utilise donc dans la macro :
ml.body = "corps du mail"
Cela fonctionne mais le problème c'est que le mail est assez long et que je suis limité en terme de caractère dans VBA. Je n'arrive pas à taper plus qu'une ligne (dans VBA).
Auriez-vous une solution ? Ou pour aller à la ligne ?
Merci beaucoup et bonne journée,
Ci-dessous la macro compléte :
Sub aargh()
rep = "chemin"
With Sheets("Mails")
dl = .Cells(Rows.Count, 2).End(xlUp).Row
Set ol = CreateObject("outlook.application")
For i = 7 To dl
Set ml = ol.createitem(0)
ml.To = .Cells(i, 5)
ml.Subject = .Cells(3, 3)
ml.body = "texte" --> je n'arrive pas ici à taper l'ensemble du corps du mail
ml.attachments.Add (rep & "\" & .Cells(i, 6).Value) & ".xlsx"
ml.display
ml.send
Next i
End With
End Sub
bonjour,
une façon de faire
msgbody= "texte"
msgbody=msgbody & "nouveau texte"
msgbody=msgbody & "suite du texte"
ml.body=msgbodyou utiliser le caractère de continuation _
ml.body="texte partie1 " _
& "partie 2 " _
& "partie 3"Merci beaucoup H2so !
J'ai opté pour msgbody=msgbody & "nouveau texte"