ved en event skal en mail sendes

hvordan automatiserer jeg afsendelse af en mail med besked om felters indhold (f.eks. navn og fødselsdag) når et event er \"aktivt\" f.eks. at der er en uge til en fødselsdag.

jeg har end del af det..so checker om der er fødselsdage i nærheden

Private Sub Form_Open(Cancel As Integer)
    Dim db As Database
    Dim rs As Recordset
    Dim sSQL As String
   
    sSQL = \"Select * from Venner\"
    Set db = OpenDatabase(\"Venner\")
    Set rs = db.OpenRecordset(\"Mine-Venner\", dbOpenDynaset)
    rs.MoveFirst
    While Not rs.EOF
        If Abs(DateDiff(\"d\", Mid(Now, 1, 5), Mid(rs(\"fødselsdag\"), 1, 5))) < 8 Then
            MsgBox rs(\"fornavn\") + \" har snart fødselsdag\"
        End If
        rs.MoveNext
    Wend
End Sub


jeg har desværre KUN 25 point at gøre godt med.