Automatisch een mail versturen vanuit Access

[woltz]

Ik ben bezig met een MS Access database. Ik ben bezig met het maken va een mail systeem. Nu is da al aardig gelukt, maar nu wil ik dat de mailtjes automatisch verzonden worden. maar hij opent nu een nieuw bericht in outlook, en moet ik nog op verzenden klikken. Is er iemand die weet hoe ik dit automatisch kan laten verzenden?

Function MailAlle()

Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim stDocName As String
Dim Email As String
  
    Set db = CurrentDb()
    Set rs1 = db.OpenRecordset("tblTutor")

    rs1.MoveFirst
    
    Do Until rs1.EOF
        
        Email = rs1![email]
        stDocName = "repOverzichtperKlas"
        DoCmd.SendObject acReport, stDocName, acFormatHTML, Email
        rs1.MoveNext
    
    Loop
  
    rs1.Close
    Set rs1 = Nothing
    Set db = Nothing
  
End Function

 

[Guus2005]

Maak een outlook object aan en vul de parameters.
Op die manier kan je ook mails verzenden. Ik meen dat er op HELPMIJ wel een voorbeeldje zwerft. Even zoeken dus.

HTH