Bonjour à tous,
je cherche à aller à la ligne dans un mail que ma macro envoie et je n'y arrive pas.
Le message est long et s'affiche sur une ligne, moche de voir le contenu et le cordialement surr la meme ligne.
Quelqu'un n'aurait pas une solution par hasard?
Voici mon bout de code
Sub aargh()
Set ws = Sheets("2017")
Dim signature As String, sigstring As String
With CreateObject("Outlook.Application")
For i = 5 To ws.Cells(Rows.Count, 1).End(xlUp).Row
If ws.Cells(i, "A") + 7 < Now() & ws.Cells(i, "C") <> "SANS OBJET" And ws.Cells(i, "Y") <> "CLOS" Then
With .CreateItem(0)
.To = ws.Cells(i, "AD")
.Subject = "Relance POD"
.Body = "Bonjour, Sauf erreur de notre part nous n'avons toujours pas reçu votre POD pour le transport . Numéro Retour " & ws.Cells(i, "C")
.Display