Ja, het is zeker mogelijk om een macro te maken die automatisch een e-mail voor jou klaarzet in Outlook op basis van de datum in Excel. Hier zijn de algemene stappen die je kunt volgen:
Open Excel en druk op Alt + F11 om de Visual Basic Editor te openen.
Klik op Invoegen en selecteer Module om een nieuwe module te maken.
Geef de module een naam (bijvoorbeeld "AutoEmail") en voeg de volgende code toe:
Sub AutoEmail()
Dim OutApp As Object
Dim OutMail As Object
Dim datDatum As Date
Dim strEmail As String
Dim strOnderwerp As String
Dim strTekst As String
Dim iRij As Integer
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
For iRij = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
datDatum = Cells(iRij, "D").Value 'Vervang "D" met de kolomletter waarin de datum staat
If datDatum = Date Then
strEmail = Cells(iRij, "C").Value 'Vervang "C" met de kolomletter waarin het e-mailadres staat
strOnderwerp = "Onderwerp van de e-mail" 'Vervang met het onderwerp van de e-mail
strTekst = "Tekst van de e-mail" 'Vervang met de tekst van de e-mail
With OutMail
.To = strEmail
.Subject = strOnderwerp
.Body = strTekst
.Display 'Hiermee wordt de e-mail weergegeven in Outlook en kun je deze controleren en eventueel bewerken voordat je deze verstuurt
End With
End If
Next iRij
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Pas de code aan op basis van jouw Excel-bestand, bijvoorbeeld door de kolomletters en de tekst van de e-mail aan te passen.
Sla het bestand op als een Excel Macro-enabled Workbook (.xlsm).
Open het Excel-bestand en druk op Alt + F8 om de macro op te roepen. Selecteer de "AutoEmail" macro en klik op Uitvoeren om de e-mails voor de geselecteerde datums aan te maken.
De e-mails zullen worden weergegeven in Outlook en je kunt deze controleren en eventueel bewerken voordat je deze verstuurt.
Ik hoop dat dit helpt! Let op dat het belangrijk is om de macro te testen voordat je deze op jouw echte data toepast om ervoor te zorgen dat alles naar behoren werkt.
