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

Y compris Power BI, Power Query et toute autre question en lien avec Excel
S
SkillzZ
Membre fidèle
Membre fidèle
Messages : 210
Inscrit le : 12 avril 2017
Version d'Excel : 2010 FR

Message par SkillzZ » 29 mai 2017, 14:43

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
S
SkillzZ
Membre fidèle
Membre fidèle
Messages : 210
Inscrit le : 12 avril 2017
Version d'Excel : 2010 FR

Message par SkillzZ » 29 mai 2017, 15:06

Oubliez les copains, je viens de m'en sortir ! N'hésitez pas à commenter si ça vous intéresse ! Ciaooo
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message