8 replies to this topic

[andryo]

Iae galera esse é o código q eu to usando pra enviar mensagem em form.

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.

[andryo]

Égua!! Desculpa o UP, mas é tão difícil assim?

[cybermix]

qual erro que retorna?

que erro acontece?


outra coisa nao entendi muito bem a sua duvida, se pudesse ser + claro. eu vi os dois cases, eles ficam no mesmo arquivo? qual a relacao entre eles?

[andryo]

Puts eu não fui avisado dessa resposta!

Ele não retorna erro nenhum e tb nem vai pro próximo frame [já sei q c entende de flash então vou especificar mais..] que seria o "enviando e-mail"...

Esses códigos ali estão no mesmo arquivo sim. No arquivo existem 3 cases pra escolher o componente de e-mail: JMail.Message, SMTPsvg.Mailer, CDONTS.NewMail).

No primeiro código são os parâmetros setados pro CDONTS, que foi o componente q eu escolhi (vide segundo código).

Essa é a relação q eles têm.

Dá uma força ae cyber eu to no apuuuro!

Valeu!

[Rodrigo]

seu server suporta cdonts ?

[andryo]

Sim

Po e agora apareceu a msg "enviando o e-mail".. mas não veio nada. :/

Aparentemente o código tá certo?

Edição feita por: andryo, 19/02/2004, 11:23.

[cybermix]

voce que fez esse codigo?

ele esta totalmente esquizito. voce quer apenas enviar um email com asp + flash é isso?

[andryo]

É! hauehaue.. eu tentei com uma parada mais simples q eu achei por aq mas tb não funcionou.. esse código qm fez foi um desenvolvedor aq do trampo e o cara garantiu q funça pq sempre usa esse!

[Jucaweb]

Sim

Po e agora apareceu a msg "enviando o e-mail".. mas não veio nada. :/

Aparentemente o código tá certo?

Estou com o mesmo problema...

Eu clico no Bt Enviar e só fica na msg "Enviando Mensagem". Eu preciso de algum outro código para ele ler a msg de retorno?

____________________________________________________________________

o código que estou usando no botão é:

on(release)
{
status = "ENVIANDO MENSAGEM";
loadVariables("http://www.meusite.c...br/aspMail.asp", 0, "POST");
}

e o código ASP:

<%@ Language=VBScript %>
<%
Dim myMail, fields, f1, f2

f1 = "Email: " & Request.Form("email") & vbcrlf
f2 = "MSG: " & Request.Form("msg") & vbcrlf

fields = f1 & f2

Set myMail = CreateObject("CDONTS.NewMail")

myMail.From = request.Form("nome")
myMail.To = "meuemail@meusite.com.br"
myMail.MailFormat = 1
myMail.Body = fields
myMail.Send

Set myMail = Nothing

Response.write "status=MENSAGEM ENVIADA COM SUCESSO"
%>