Aqui é onde eu defino os parâmetros dos componentes de e-mai. São três mas vou por só o que eu uso.
CASE "3" 'CDONTS Set l_cmpema = Server.CreateObject("CDONTS.NewMail") l_cmpema.From = p_from l_cmpema.To = p_to l_cmpema.bcc = p_tobcc l_cmpema.BodyFormat = 0 'html format l_cmpema.MailFormat = 0 l_cmpema.Subject = p_subject l_cmpema.Body = p_body p_msgerro = l_cmpema.Send SET l_cmpema = NOTHING END SELECT END SUB
Escolho CDONTS
l_componente = 3 'CDONTS l_smtp = "smtp.flipp.com.br" l_from = "andryo@flipp.com.br" l_fromname = request.form("nome") l_to = request.form("email") l_subject = request.form("assunto") l_body=request.form("mensagem") call envia_email( l_componente, l_smtp, l_from, l_fromname, l_to, l_tobcc, l_subject, l_body, msn ) END SUB
Bom.. sei q não é o local adequado.. mas caso precise aí vai o código do Flash q coloquei no botão pra carregar as variáveis...
on(release) { msn = "enviando o email" loadVariablesNum("flash2.asp", 0, "POST"); gotoAndPlay(2); }
Espero q consigam ver onde tá isso pq não aguento mais!
Abraço galera..
Edição feita por: andryo, 13/02/2004, 10:58.