Voor de maandelijkse periodeafsluiting wil ik graag herinneringen sturen naar mijn collega's als de deadline gepasseerd is (of bijna nadert).
In een kolom heb ik de taken, daarnaast de persoon die de taak moet doen en vervolgens de deadline.
In een extra tabblad staan de mailadressen van de betreffende personen.
Hoe kan ik daar een macro voor maken, met een soort loop die alle personen bij langs gaat en de mailtjes verstuurt?
Eigenlijk zou er in de tekst of in het onderwerp ook nog een variabele moeten staan met de naam van de taak.
Dit scriptje vond ik en daarmee wordt wel een mail verstuurd, maar er moet dus een loop in en de mogelijkheid om een variabele tekst te versturen.
In een kolom heb ik de taken, daarnaast de persoon die de taak moet doen en vervolgens de deadline.
In een extra tabblad staan de mailadressen van de betreffende personen.
Hoe kan ik daar een macro voor maken, met een soort loop die alle personen bij langs gaat en de mailtjes verstuurt?
Eigenlijk zou er in de tekst of in het onderwerp ook nog een variabele moeten staan met de naam van de taak.
Dit scriptje vond ik en daarmee wordt wel een mail verstuurd, maar er moet dus een loop in en de mogelijkheid om een variabele tekst te versturen.
Code:
Err.Number = 0
On Error Resume Next
Set OutApp = GetObject(, "Outlook.Application")
If Err.Number > 0 Then
Set OutApp = CreateObject("Outlook.Application")
Err.Clear
End If
On Error GoTo 0
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "jan@test.nl"
.CC = ""
.BCC = ""
.Subject = "Herinnering openstaande taak"
.HTMLBody = "Je hebt nog de volgende taak openstaan:"
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
Laatst bewerkt:
