Microsoft 365 code VBA envoie de mail

zhennya

XLDnaute Nouveau
Bonjour,
Je viens vers vous, car je suis un peu perdu sur le code que je voudrais réaliser.
Je viens vers vous, car je suis un peu perdu sur le code que je voudrais réaliser.
- j'ai un tableur excel qui regroupe le nom de document et des date de mise à jour ainsi que les mails des personnes en charge de ce document.
Je voudrais envoyer un mail quand le délai de mise à jour arrive à son terme.
J'ai déjà chercher et j'ai trouvé ce code que j'ai modifié pour convenir à mon tableur :

Sub mail()

For ligne = 2 To 200
If Date > Cells(ligne, 5) And Cells(ligne, 5) <> "" Then

Dim OutApp As Object 'Déclaration de l'application objet Outlook
Dim OutMail As Object 'Déclaration du mail objet Outlook
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Worksheets("feuil1").Cells(ligne, 6) 'va cherche la valeur dans le cellule B1 de la feuille "mail"'
.CC = Worksheets("feuil1").Range("H1") 'va cherche la valeur dans le cellule B1 de la feuille "mail"
.BCC = ""
.Subject = "Test de " & Worksheets("feuil1").Cells(ligne, 2) & " à " & Time() & propID
' séparer deux valeurs par un &
' le texte écrit 'en dur' doit toujours être entouré de ""
' & Time() & propID permet d'avoir l'heure de création du mail
.Body = "Ceci est un message test " & vbCrLf & Worksheets("feuil1").Cells(ligne, 2)
' ajouter & vbCrLf & pour aller à la ligne entre deux valeurs





.Display 'affiche le mail en brouillon dans Outlook, pratique
'pour vérifier avant d'envoyer
'.Send 'envoie directement le mail
'.Save 'sauvegarde le mail
End With
Set OutMail = Nothing 'nettoie la mémoire en nettoyant les variables
Set OutApp = Nothing 'nettoie la mémoire en nettoyant les variables
Else
End If

Next ligne
End Sub


Le souci, j'envoie 1 mail par document à mettre à jour :
J'aimerais savoir si cela est possible d'envoyer un mail à la personne concernée avec les différents documents qu'elle doit travailler ?
Merci pour vos retours
 

Pièces jointes

  • exemple.xlsm
    22 KB · Affichages: 8

Statistiques des forums

Discussions
313 262
Messages
2 096 641
Membres
106 697
dernier inscrit
Zedid