Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Bruno coió

Corpo de email

Por , em ASP Clássico

Recommended Posts

Bruno coió    0

Bruno coió
Postado

Fala galera beleza,

preciso de uma ajuda

sou iniciante em asp, fiz um formulario em flash q envia as informações via post para a minha pagina de cadastro em asp

a pagina em asp recupera as variáveis e envia para email, mas não estou obtendo sucesso alguem pode me ajudar?

estou enviando o código abaixo.

vlw e t+

 

<%
  Dim nome, mail, inscricao

  sch = "http://schemas.microsoft.com/cdo/configuration/"

  Response.Expires=0

  nome=Request.Form("nome")
  mail=Request.Form("mail")
  inscricao=Request.Form("inscricao")
  
  Set cdoConfig=Server.CreateObject("CDO.Configuration")
  cdoConfig.Fields.Item(sch & "sendusing") = 2
  cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
  cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.site.com.br"
  cdoConfig.Fields.Item(sch & "sendusername") = "webmaster@site.com.br"
  cdoConfig.Fields.Item(sch & "sendpassword") = "camporthosite3"
  cdoConfig.fields.update

  Set cdoMessage=Server.CreateObject("CDO.Message")
  
  Set cdoMessage.Configuration = cdoConfig

  cdoMessage.From="webmaster@site.com.br"
  cdoMessage.To="contato@site.com.br"
  cdoMessage.Bcc="joao@site.com.br"
  cdoMessage.Subject="CONTATO - ORTHOMEETING"

  Corpo="<html >
<head>
<title>Untitled Document</title>
</head>

<body bgcolor='#E1E1E1'>
<table width='100%' border='0'>
  <tr>
	<td colspan='3'>
  <table background='confirma_ortho.jpg' width='450' height='444' border='0' align='center'>
			<tr>
				<td width='40' height='195'> </td>
				<td width='271'> </td>
				<td width='97'> </td>
				<td width='40'> </td>
			  </tr>
			  <tr>
				<td height='34'> </td>
				<td><strong><font color='#FFF'>"
  Corpo=Corpo & "Dr(a): "& nome
  Corpo=Corpo & "</font></strong></td>
		   	  <td><strong><font color='#FFF'>Nº: "& inscricao
  Corpo=Corpo & "</font></strong></td>
				<td> </td>
			  </tr>
			  <tr>
				<td> </td>
				<td> </td>
				<td> </td>
				<td> </td>
			  </tr>
		</table>
	</td>
  </tr>
</table>
</body>
</html>
"

  cdoMessage.HTMLBody = Corpo

  cdoMessage.Send
  Set cdoMessage = Nothing
  Set cdoConfig = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito