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
Pergunta
Rafaelcs
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
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.