Ir para conteúdo
Fórum Script Brasil

Rafaelcs

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

Tudo que Rafaelcs postou

  1. então eu num sei o codigo upload, to vendo se alguém me ajuda a montar ou se alguém tem o codigo!! as variaveis do dp_nome e email eu so não coloquei, essa parte ele puxa o nome e o email da pessoa quando digita no formulario!! meu smtp sim esta certo!!
  2. Pessoal to com um problema aqui de anexar o arquivo no formulario! eu sei que eu tenho que primeiro fazer o upload para o servidor depois mandar para o email, so que eu não estou conseguindo fazer!! o codigo é esse ai! pra fazer o upload coloquei a parte de cima <% Dim Count Set Upload = Server.CreateObject("Persits.Upload.1") Count = upload.Save("C:\Inetpub\wwwroot\Web\Curriculos") %> <%=Count %>Upload com Sucesso! e a parte de baixo pra anexar no email num ta indo também!! Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = dp_nome ' Nome Remetente Mailer.FromAddress= dp_email ' E-Mail Remetente Mailer.RemoteHost = "smtp2.locaweb.com.br" ' Seu servidor SMTP Mailer.AddRecipient "email", "email@email.com.br" ' Nome e E-mail do destinatário 'Mailer.AddBCC "", "" Mailer.ContentType = "text/html" Mailer.Subject = "Envio de curriculo" ' Assunto do e-mail Mailer.BodyText = strBody ' Corpo da mensagem if Mailer.SendMail then Response.Redirect "obrigado.asp" else Response.Write "Seu email não foi enviado - erro " Response.Write Mailer.Response end if Set Mailer = Nothing
×
×
  • Criar Novo...