Save data after sending email

Premium

Deze code is een simpele manier om de data die we opgelsgen hebben in een tempvars weg te schrijven naar een tabel.

Code

Function save_send()

    On Error GoTo save_send_Error

    Dim db As DAO.Database
    Dim rstsave As DAO.Recordset

    Set db = DBEngine.Workspaces(0).Databases(0)
    Set rstsave = db.OpenRecordset("tblsenddigbestelling", dbOpenDynaset)
  
    rstsave.AddNew
    rstsave!Bestelnummer = TempVars!ATB
    rstsave!Datumv = date
    rstsave!sendtime = time()
    rstsave!Verstd = TempVars!internemedewerker
    rstsave!Aan = TempVars!mailaan
    rstsave!Path = TempVars!myfile
    rstsave!afdeling = TempVars!Lijn
    rstsave.Update
  

/* … (more lines hidden — purchase to unlock) … */

Premium snippet You’re viewing a preview. Purchase to unlock the full code.

Already purchased? Log in

Tijdens het versturen leggen we de belangrijkste gegevens voor het wegschrijven vast in een tempvars.
De Tempvars houd het vast totdat hij wordt overschreven of wanneer de database gesloten wordt.
dus het is een goede manier van werken de tempvars te legen wanneer het opslaan is voltooid.