List...

[mkboy 1]

E ae, beleza.

 

Desculpa eu lhe incomodar, mas é que eu sou lento mesmo.

 

Não to conseguindo fazer ele selecionar e enviar no email.

 

Eu considerei que o list chama-se horario e montei meu codigo:

 

<%

 

Destino = "meuemail@pescaki.com.br"

servidor = "smtp.pescaki.com.br"

titulo = "Fale Conosco"

 

'Retirar dados do formulário

 

nome = Request("nome")

email = Request("email")

assunto = Request("assunto")

mensagem = Request("mensagem")

horario = Request("horario")

 

'Criar objeto

 

Set Mail = Server.CreateObject("Persits.MailSender")

 

 

' Criar compo da mensagem

strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#555555'>"

strBody = strBody & "Departamento: "

strBody = strBody & "<b>" & horario & "</b><br><br>"

strBody = strBody & "Nome: "

strBody = strBody & "<b>" & nome & "</b><br><br>"

strBody = strBody & "E-mail: "

strBody = strBody & "<b>" & email & "</b><br><br>"

strBody = strBody & "Assunto: "

strBody = strBody & "<b>" & assunto & "</b><br><hr><br>"

strBody = strBody & "Mensagem: <br>"

strBody = strBody & mensagem & chr(10)

strBody = strBody & "</font>"

 

 

'Propriedades do ASPMAIL

Mail.Host = servidor

Mail.Port = 25 ' Valor opcional. 25 é a porta de erro

Mail.From = "meuemail@pescaki.com.br"

Mail.FromName = email ' Opcional

Mail.Subject = assuno

Mail.Body = strBody

Mail.IsHTML = True

Mail.AddAddress Destino

 

 

 

Mail.Send

 

 

' Controlar erros do ASPMAIL

 

If Err <> 0 Then

      Response.Write "popup.mensaje=Error, envíelo mas tarde " & Err.Description

Else

  Response.Write  "popup.mensaje=Mensagem enviada com sucesso!"

End If

 

'Destruir o  aspmail

Set Mail = Nothing

 

%>

:( Mas ao enviado o email ele nao aparece nada em frente descr~ição.

 

Poderia me ajudar, vendo aonde eu errei!

 

 

Valeu cara!

[Cable 0]

Isso é ASP...vou redirecionar para o forum de ASP.

[mkboy 1]

Amigo, isso foi postado no forum certo. FLASH!!!!Essa e a action de meu form flash, a qual estou tentando pegar os valores de um list box, um componente do flash!!!!!!Se nao percebeu, sou ativo no ASP tb, e saberia postar no forum asp se fosse so asp.VALEUUUUU! :angry: