Formulário Em Cdosys

Lunna · Março 25, 2007

Amigos,

já fazem dias que estou tentando montar um formulário para enviar e-mails usando o Cdosys.

O meu alojamento, não aceita a programação que vem em alguns códigos prontos que encontrei na net.

Eles me deram um exemplo de Formúlário e um exemplo contendo alguns scripts para envio...

O problema é que, eu estou aprendendo asp...

Preciso urgente de uma pessoa amiga que me possa ajudar a montar este código para o meu site...

Vou postar aqui os códigos, só que, este formúlário tem coisas a mais... Só preciso que contenha:

Nome - E-mail - Telefone - Assunto.

Muito obrigada a todos e desculpem se fiz mal em abrir um tópico.

Sou nova no fórum, não quero desobedecer qualquer regra.

Lunna.

Codigo do Formulário:

<HTML>

<HEAD>

<Title>ASP/CDOSYS Test Page</TITLE>

</HEAD>

<BODY>

<%

Call ShowGeneral()

If Len(Request.Form("sendgeneral")) AND _

Request.Form("sendgeneral") = "go" Then Call SendGeneral()

Sub ShowGeneral()

%>

<TR>

<TD>

<TABLE>

<TR>

<TH colspan="2">Test ASP/CDOSYS</TH>

</TR>

<TR>

<TH class="cname" width="25%" align="right">SMTP Server IP:</TH>

</TR>

<TR>

<TH class="cname" width="25%" align="right">SMTP Server Port:</TH>

</TR>

<TR>

</TR>

<TR>

</TR>

<TR>

<TH class="cname" width="25%" align="right">Subject:</TH>

</TR>

<TR>

</TR>

<TR>

</TD>

</TR>

</TABLE>

</FORM>

</TD>

</TR>

</TABLE>

<%

End Sub

Sub SendGeneral()

On Error Resume Next

Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"

Const cdoSendUsingPort = 2

Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"

Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"

Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"

Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"

Const cdoBasic = 1

Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername"

Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword"

Dim objConfig ' As CDO.Configuration

Dim objMessage ' As CDO.Message

Dim Fields ' As ADODB.Fields

Set objConfig = Server.CreateObject("CDO.Configuration")

Set Fields = objConfig.Fields

With Fields

.Item(cdoSendUsingMethod) = cdoSendUsingPort

.Item(cdoSMTPServer) = Trim(Request.Form("SMTPIP"))

.Item(cdoSMTPServerPort) = Trim(Request.Form("SMTPPORT"))

.Item(cdoSMTPConnectionTimeout) = 10

.Item(cdoSMTPAuthenticate) = cdoBasic

.Item(cdoSendUserName) = "<e-mail completo>"

.Item(cdoSendPassword) = "<password>"

.Update

End With

Set objMessage = Server.CreateObject("CDO.Message")

Set objMessage.Configuration = objConfig

With objMessage

.To = Trim(Request.Form("emailto"))

.From = Trim(Request.Form("emailfrom"))

.Subject = Trim(Request.Form("subject"))

.TextBody = Trim(Request.Form("body"))

.Send

End With

Set Fields = Nothing

Set objMessage = Nothing

Set objConfig = Nothing

If Err Then

%>

<TR>

<TH>

An Error has occurred.<br>

<b>Number:</b> <%=err.number%><br>

<b>Description:</b> <%=err.description%>

</TH>

</TR>

</TABLE>

<%

Else

%>

<TR>

<TH>

Your E-Mail has been sent.<br>

</TH>

</TR>

</TABLE>

<%

End If

End Sub

%>

</center>

</div>

</body>

</html>

----------------------------------------------------------

Scripts para envio:

<%

Dim ObjSendMail

Set ObjSendMail = CreateObject("CDO.Message")

'This section provides the configuration information for the remote SMTP server.

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.yoursite.com"

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password.

'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication

'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="somemail@yourserver.com"

'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="yourpassword"

ObjSendMail.Configuration.Fields.Update

'End remote SMTP server configuration section==

ObjSendMail.To = "someone@someone.net"

ObjSendMail.Subject = "this is the subject"

ObjSendMail.From = "someone@someone.net"

' we are sending a text email.. simply switch the comments around to send an html email instead

'ObjSendMail.HTMLBody = "this is the body"

ObjSendMail.TextBody = "this is the body"

ObjSendMail.Send

Set ObjSendMail = Nothing

%>

Enviar email de texto:

<%

Set myMail=CreateObject("CDO.Message")

myMail.Subject="Sending email with CDO"

myMail.From="mymail@mydomain.com"

myMail.To="someone@somedomain.com"

myMail.TextBody="This is a message."

myMail.Send

set myMail=nothing

%>

Outra possibilidade:

%

'cria o objeto para o envio de e-mail

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'cria o objeto para configuração do SMTP

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.dominio.com.br"

'porta do SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")

= 25

'porta do CDO

objCDOSYSCon.Fields

("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'timeout

objCDOSYSCon.Fields

("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

'atualiza a configuração do CDOSYS para o envio do e-mail

Set objCDOSYSMail.Configuration = objCDOSYSCon

'e-mail do remetente

objCDOSYSMail.From = "eu@MeuDominio.com.br"

'e-mail do destinatário

objCDOSYSMail.To = "destinatario@dominio.com.br"

'assunto da mensagem

objCDOSYSMail.Subject = "Teste do CDOSYS"

'conteúdo da mensagem

objCDOSYSMail.TextBody = "Teste do componente CDOSYS"

'para envio da mensagem no formato html altere o TextBody para HtmlBody

'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS"

'objCDOSYSMail.fields.update

'envia o e-mail

objCDOSYSMail.Send

'destrói os objetos

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

response.write "E-mail enviado para destinatario@dominio.com.br ..."

%>

LucasForever · Março 28, 2007

Ai luna, um código muito bom, que reformulei e funciona legal...

<%
'abro uma seção com o nome de "envia"
session("envia") = true
Server.ScriptTimeOut = 60

'esta linha pedi o parametro "nome" do formulário flash ou html.
nome = request("nome")
'esta linha pedi o parametro "email" do formulário flash ou html.
email = request("email")
'esta linha pedi o parametro "telefone" do formulário flash ou html.
telefone = request("telefone")
'esta linha pedi o parametro "mensagem" do formulário flash ou html.
mensagem = request("mensagem")


'Mensagem que será enviada em html para o susite.com.br
mensagem01 = "<table width='100%' border='0' cellpadding='0' cellspacing='0' bgcolor='#FFFFFF'><tr><td width='100%' valign='middle'><div align='left'><p>CONTATO DO SEUSITE.COM.BR</p><p><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>Nome: <font color='#333333' face='Arial, Helvetica, sans-serif'> "&nome&"</font> <br>  E-mail: <font color='#333333' face='Arial, Helvetica, sans-serif'> "&email&"</font><br> Telefone: <font color='#333333' face='Arial, Helvetica, sans-serif'> "&telefone&"</font> <br> Mensagem: <font color='#333333' face='Arial, Helvetica, sans-serif'> "&mensagem&"</font> </font></p></div></td></tr></table>"
'Mensagem que será enviada em html para o destinatario
mensagem02 = "<table width='100%' border='0' cellpadding='0' cellspacing='0' bgcolor='#FFFFFF'><tr><td width='100%' valign='middle'> <div align='left'><p>**MENSAGEM AUTOM&Aacute;TICA**</p><p><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>Prezado(a)<font color='#333333' face='Arial, Helvetica, sans-serif'>"&nome&",</font><br><br>Agradecemos sua visita.<br>Sua mensagem foi recebida em nossos servidores.<br>Estaremos respondendo em breve, Obrigado.<strong><br></strong></font></p></div></td></tr><tr><td valign='middle'><div align='left'></div><div align='left'><p><strong></strong></p></div></td></tr><tr><td valign='middle'><p><strong><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>Atenciosamente</font></strong></p><p><strong><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>SEU seusite.COM.BR</font></strong></p></td></tr><tr><td valign='middle'>&nbsp;</td></tr><tr><td valign='middle'><p><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>Fone: (16)3722-4614</font><BR><font size='2' face='Verdana, Arial, Helvetica, sans-serif'></font><BR>E-mail: contato@seusite.com.br</p><p>&nbsp;</p></td></tr></table>"


'configuração para o servidor de envio de e-mail.
'não modificar esta linha.
Set semail = Server.CreateObject("CDO.Message")
'não modificar esta linha.
Set sconfigure = Server.CreateObject ("CDO.Configuration") 
'esta linha abaixo pode ser modificada dependendo do caminho do servidor.
sConfigure.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 
'não modificar esta linha.
sConfigure.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
'não modificar esta linha.
sConfigure.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'não modificar esta linha.
sConfigure.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 
'não modificar esta linha.
sConfigure.Fields.update

'primeira mensagem que será enviada para o contato do seusite.com.br    
Set semail.Configuration = sConfigure

        'remetente da mensagem
        semail.from = nome&"<"& email &">"
        'para onde vai a mensagem
        semail.to = "contato@seusite.com.br"
        'assunto da mensagem
        semail.subject = "formulario do site seusite.COM.BR" 
        'mensagem que será enviada em html- mensagem 01
        semail.HTMLBody = mensagem01 
        'envia a mensagem01
    semail.send

'segunda mensagem que será enviada para o destinatario "é aconfirmação automática "         
Set semail.Configuration = sConfigure
        'rementente da mensagem
        semail.from = "contato@seusite.com.br"
        'para onde vai a mensagem
        semail.to = nome&"<"& email &">"
        'assunto da mensagem
        semail.subject = "contato do site www.seusite.com.br"
        'mensagem que será enviada em html - mensagem 02
        semail.HTMLBody = mensagem02
        'envia a mensagem02 
    semail.send

' destruo os objetos
Set semail = Nothing 
set sConfigure = Nothing
    
'Apago a seção utilizada
session("envia") = false

%>

qualquer dúvida posta ai...vlw..?? :ph34r: :ph34r:

Entrar

Formulário Em Cdosys

Pergunta

Lunna

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

LucasForever

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades