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
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
