I use this code to send a mail to the contact when I add an information in the database, but the code don´t work, could you please tell me what is bad:
Dim dkeys
message =""
dkeys = dict.keys
For n = 0 To dict.Count-1
Next
message = message & vbcrlf & "Número Reclamo:" & dict("numero_reclamo") & vbcrlf
message = message & vbcrlf & "Número Póliza" & ": " & dict("numero_poliza") & vbcrlf
message = message & vbcrlf & "Asegurado:" & vbcrlf & dict("asegurado") & vbcrlf
message = message & vbcrlf & "Fecha de Siniestro:" & vbcrlf & dict("fecha_de_siniestro") & vbcrlf
message = message & vbcrlf & "Intermediario:" & dict("intermediario") & vbcrlf
message = message & vbcrlf & "Ramo:" & dict("ramo") & vbcrlf
message = message & vbcrlf & "Email:" & dict("email_ajustador") & vbcrlf
email=dict("email_ajustador")
subject="Nuevo Registro"
sendmail email, subject, message
AVOC