mail sturen vanuit rooster aan student

joreve · 16 mrt 2018

Goedemorgen,

Is het mogelijk aan de hand van een rooster in elk excel elke student individueel een mail te sturen met onderstaande erin:
1. Datum en tijd
2. Locatie
3. Lokaal
4. Naam
5. Toets
We sturen een rooster 3 weken van te voren aan een docent die de aanvraag gedaan heeft, echter komt het vaak voor dat het lokaal pas een week van te voren bekend is bij ons. Voor docenten is het dan bijna niet te doen zelf de studenten een mail nog te sturen. Het komt dan ook regelmatig voor dat een student niet komt.
Voor het reserveren van een lokaal zit er een macro is, deze gaat altijd naar het zelfde emailadres AFZ, we passen dan in die mail de eindtijd aan omdat het dan om een hele ochtend of middag gaat.
Weet hier iemand de richting waarin ik zou moeten zoeken zodat iedere student alleen zijn eigen tijd krijgen en niet een heel rooster?

In het tabblad studenten staat wel het emailadres van de student.

HSV · 16 mrt 2018

De body die ik heb overgenomen zal je waarschijnlijk moeten aanpassen naar eigen idee.

Code:

Sub student()
Dim sv, i As Long, strbody As String, c As Range
sv = Sheets("planning").Cells(1).CurrentRegion
With CreateObject("Outlook.Application").CreateItem(0)
  For i = 2 To UBound(sv)
    strbody = "Reserveringsverzoek voor Gespreksruimte/Lokaal: " & sv(i, 9) & vbNewLine & vbNewLine & _
              "Referentie/Code: " & sv(i, 31) & vbNewLine & vbNewLine & _
              "Locatie: " & sv(i, 8) & vbNewLine & _
              "Datum: " & Format(sv(i, 5), "dd-mm-yyyy") & vbNewLine & _
              "Starttijd: " & Format(sv(i, 5), "hh:mm") & vbNewLine & _
              "Eindtijd: " & Format(sv(i, 6), "hh:mm") & vbNewLine & vbNewLine & _
              "Opmerkingen: Gelieve voor aanvang een fles water en bekertjes klaar te zetten in de ruimte." & vbNewLine & vbNewLine & _
              "Met vriendelijke Groet," & vbNewLine & vbNewLine & vbNewLine & _
              "Het Centraal Examenbureau." & vbNewLine & vbNewLine & vbNewLine & vbNewLine & _
              "Deze e-mail is geautomatiseerd verzonden en derhalve niet (digitaal) ondertekend. Indien er vragen zijn over deze e-mail of de inhoud, dan kunt u gewoon op deze e-mail reageren."


   Set c = Sheets("studenten").Columns(1).Find(sv(i, 15), , , xlWhole)
   If Not c Is Nothing Then
     If c.Offset(, 15) <> "" Then
        .To = c.Offset(, 15).Value
        .Subject = "RTB Reservering - " & sv(i, 31)
        .Body = strbody
        .Display   'or use .Send
      End If
    End If
  Next i
End With
End Sub

mail sturen vanuit rooster aan student

joreve

Gebruiker

HSV

Inventaris

Nieuwste berichten

Wij waarderen jouw privacy