VBA - Envoi mail avec valeur cellule dans le corps du mail

Bonjour à tous!

J'ai le code suivant:

    Sub EnvoyerMailPM()
    Dim LastRw As Long, i As Long

      For i = 1 To Sheets("Mail").Cells(Rows.Count, 1).End(xlUp).Row
        Envoyer_Mail_Outlook Sheets("Mail").Range("A" & i)
      Next
    End Sub

    Function Envoyer_Mail_Outlook(dest As String)
    'Nécessite d'activer la référence "Microsoft Outlook Library"
    Dim ObjOutlook As New Outlook.Application
    Dim oBjMail

        Set ObjOutlook = New Outlook.Application
        Set oBjMail = ObjOutlook.CreateItem(olMailItem)

         With oBjMail
           .To = dest ' le destinataire
          .Subject = "Consolidation lignes projet RRS" ' l'objet du mail
          .Body = "Bonjour," & vbCrLf & vbCrLf & "Dans le but de consolider l'ensemble des lignes projet Business Services, pouvez-vous remplir vos lignes projets sur: " & ThisWorkbook.Worksheets("Mail").Range("E" & i).Value & "?" & vbCrLf & "Je vous remercie par avance," & vbCrLf & vbCrLf & "Cordialement,"
          .Display  ' Remplacer par .Send pour l'envoyer sans vérification
        End With

        Set oBjMail = Nothing
        Set ObjOutlook = Nothing

    End Function

Lorsque je tente de l'éxécuter, j'ai un bug et c'est toute la ligne .Body qui est surlignée. Le problème vient de l'ajout que j'ai réalisé:

ThisWorkbook.Worksheets("Mail").Range("E" & i).Value.

Je souhaiterais en fait envoyer des mails avec dans le corps du texte un contenu variable, d'où la présence de l'indice i dans le corps de mon mail.

Quelqu'un pourrait-il m'aider ?

Bon après-midi !

SkillzZ

Oubliez les copains, je viens de m'en sortir ! N'hésitez pas à commenter si ça vous intéresse ! Ciaooo

Rechercher des sujets similaires à "vba envoi mail valeur corps"