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