well one way would be to look at the database itself and send an email manually... easier if you only have to do it once... if you want an easily *repeatabe* solution: welcome to the wonderful world of cdo...
Set emailvar = CreateObject("CDO.Message")
Set configvar = CreateObject("CDO.Configuration")
configvar.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "123.123.123.123"
configvar.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
configvar.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
configvar.Fields.Update
Set emailvar.Configuration = configvar
sql = "SELECT username, password, email where id=" & theid
vrec.open sql, adoCon
emailvar.to = vrec("email")
emailvar.subject = "Your Login Details"
emailvar.textbody = "Login: " & vrec("username") & vbcrlf & vbcrlf & "Password: " & vrec("password")
emailvar.send
then close all your stuff and you're done...
Topic Options
Post Options
Thanks(0)
