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> <center> <% Call ShowGeneral() If Len(Request.Form("sendgeneral")) AND _ Request.Form("sendgeneral") = "go" Then Call SendGeneral() Sub ShowGeneral() %> <TABLE width="100%"> <TR> <TD> <form name="contact" method="post"> <input type="hidden" name="required" value="emailto"> <input type="hidden" name="required" value="emailfrom"> <input type="hidden" name="required" value="subject"> <input type="hidden" name="required" value="body"> <input type="hidden" name="sendgeneral" value="go"> <TABLE> <TR> <TH colspan="2">Test ASP/CDOSYS</TH> </TR> <TR> <TH class="cname" width="25%" align="right">SMTP Server IP:</TH> <TD class="clink" align="left"><input type="text" name="SMTPIP" size="15" maxlength="15" value="127.0.0.1"></TD> </TR> <TR> <TH class="cname" width="25%" align="right">SMTP Server Port:</TH> <TD class="clink" align="left"><input type="text" name="SMTPPORT" size="5" maxlength="5" value="25"></TD> </TR> <TR> <TH class="cname" width="25%" align="right">To:</TH> <TD class="clink" align="left"><input type="text" name="emailto" size="50" maxlength="100"></TD> </TR> <TR> <TH class="cname" width="25%" align="right">From:</TH> <TD class="clink" align="left"><input type="text" name="emailfrom" size="50" maxlength="100"></TD> </TR> <TR> <TH class="cname" width="25%" align="right">Subject:</TH> <TD class="clink" align="left"><input type="text" name="Subject" size="50" maxlength="100"></TD> </TR> <TR> <TH class="cname" align="right">Body:</TH> <TD class="clink" align="left"><textarea name="body" rows="10" cols="40" maxlength="100"></textarea></TD> </TR> <TR> <TH class="cname" align="right"> </TH> <TD class="clink" align="left"> <input type="submit" name="Submit" value="Send"> <input type="reset" name="Reset" value="Reset"> </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 %> <TABLE width="100%"> <TR> <TH> An Error has occurred.<br> <b>Number:</b> <%=err.number%><br> <b>Description:</b> <%=err.description%> </TH> </TR> </TABLE> <% Else %> <TABLE width="100%"> <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 ..." %>
