Ir para conteúdo

POWERED BY:

Arquivado

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

wren

Form + Arquivo por e-mail!

Por , em ASP Clássico

Recommended Posts

wren    0

wren
Postado

<%

 

if (Request.ServerVariables("REQUEST_METHOD") = "POST") then

 

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

 

rem ------------------------------------

rem - Solicitação de Confirmação de Recepção

rem -

Mailer.ReturnReceipt = false

rem ------------------------------------

 

rem ------------------------------------

rem - Solicitação de Confirmação de Leitura

rem -

Mailer.ConfirmRead = false

rem ------------------------------------

 

rem ------------------------------------

rem - Tipo de Codificação (default é MIME)

rem - 1 = UUEncoded

rem - 2 = MIME

rem -

Mailer.Encoding = 2

rem ------------------------------------

 

rem ------------------------------------

rem - Tipo de Caracter (default é Ascii)

rem - 1 = US Ascii

rem - 2 = ISO-8859-1

rem -

Mailer.CharSet = 2

rem ------------------------------------

 

rem ------------------------------------

rem - Tipo de Conteúdo

rem - Texto = "", HTML = "text/html"

rem -

Mailer.ContentType = "text/html"

rem ------------------------------------

 

rem ------------------------------------

rem - Prioridade da Mensagem

rem - 1 = alta, 3 = Normal, 5 = baixa

rem -

Mailer.Priority = 1

Mailer.Urgent = false

rem ------------------------------------

 

rem ------------------------------------

rem - TimeOut (Default é 60 )

rem -

Mailer.Timeout = 60

rem ------------------------------------

 

Mailer.RemoteHost = "smtp.marktime.com.br"

Mailer.Subject = "Curriculum Enviado"

Mailer.AddRecipient "Trabalhe Conosco", "fabio@marktime.com.br"

Mailer.FromName = Request.Form("nome")

 

if (Request.Form("email") = "") then

Mailer.FromAddress = "marktime@marktime.com.br"

else

Mailer.FromAddress = Request.Form("email")

end if

 

if (Mailer.ContentType = "text/html") then

NovaLinha = "<br>"

else

NovaLinha = Chr(13) & Chr(10)

end if

 

Msg = ""

Msg = Msg & " - CURRICULUM -------------------------------------------------"

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>DADOS PESSOAIS </font></body></html>"

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Nome.........: </font></body></html>"

Msg = Msg & Request.Form("nome")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Telefone.........: </font></body></html>"

Msg = Msg & Request.Form("foneres")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Telefone (rec).........: </font></body></html>"

Msg = Msg & Request.Form("fonerec")

Msg = Msg & "<html><body><font color='#666666'> C/ </font></body></html>"

Msg = Msg & Request.Form("nomecontato")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Celular.........: </font></body></html>"

Msg = Msg & Request.Form("celular")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>E-mail.........: </font></body></html>"

Msg = Msg & Request.Form("email")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Endereço.........: </font></body></html>"

Msg = Msg & Request.Form("end")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Bairro.........: </font></body></html>"

Msg = Msg & Request.Form("bairro")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Cidade.........: </font></body></html>"

Msg = Msg & Request.Form("cidade")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Estado.........: </font></body></html>"

Msg = Msg & Request.Form("es")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>CEP.........: </font></body></html>"

Msg = Msg & Request.Form("cep")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Data de Nascimento.........: </font></body></html>"

Msg = Msg & Request.Form("dia")

Msg = Msg & " / "

Msg = Msg & Request.Form("mes")

Msg = Msg & " / "

Msg = Msg & Request.Form("ano")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Nacionalidade.........: </font></body></html>"

Msg = Msg & Request.Form("nacio")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Estado Civil.........: </font></body></html>"

Msg = Msg & Request.Form("estcivil")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Sexo.........: </font></body></html>"

Msg = Msg & Request.Form("sexo")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Altura.........: </font></body></html>"

Msg = Msg & Request.Form("alt")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Peso.........: </font></body></html>"

Msg = Msg & Request.Form("peso")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Manequim.........: </font></body></html>"

Msg = Msg & Request.Form("manequim")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Olhos.........: </font></body></html>"

Msg = Msg & Request.Form("olhos")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Sapato.........: </font></body></html>"

Msg = Msg & Request.Form("sapato")

Msg = Msg & NovaLinha

Msg = Msg & " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - "

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>ESCOLARIDADE </font></body></html>"

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Graduação.........: </font></body></html>"

Msg = Msg & Request.Form("graduacao")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Concluído em.........: </font></body></html>"

Msg = Msg & Request.Form("conc")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Entidade.........: </font></body></html>"

Msg = Msg & Request.Form("entidade")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Cursos realizados.........: </font></body></html>"

Msg = Msg & Request.Form("cursos")

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Indiomas.........: </font></body></html>"

Msg = Msg & Request.Form("isim")

Msg = Msg & Request.Form("inao")

Msg = Msg & " - "

Msg = Msg & Request.Form("indiomas")

Msg = Msg & NovaLinha

Msg = Msg & " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - "

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>EXPERIÊNCIA PROFISSIONAL </font></body></html>"

Msg = Msg & NovaLinha

Msg = Msg & "<html><body><font color='#666666'>Descrição da experiência profissional.........: </font></body></html>"

Msg = Msg & Request.Form("expprof")

Msg = Msg & "<html><body><font color='#666666'>Imagem.........: </font></body></html>"

Msg = Msg & Request.Form("foto")

Msg = Msg & NovaLinha

Msg = Msg & " -------------------------------------------------------------"

 

if (Mailer.ContentType = "text/html") then

Msg = Msg & "<br><b>eMail em Formato HTML</b></br>"

Msg = "<html><body><font face='Courier New, Courier, mono' size='2'>" & Msg & "</font></body></html>"

end if

 

Mailer.BodyText = Msg

 

Response.Write "<p align='center'>"

if not Mailer.SendMail then

Response.Write "Envio de eMail Falhou ... Erro: <br>"

Response.Write Mailer.Response

else

Response.Redirect "http://www.marktime.com.br/formsend.htm"

end if

Response.Write Mailer.Version

Response.Write "</p>"

 

 

end if

 

%>

 

Esse código pra enviar e-mails funciona direitinho, porém, alguém sabe como faço pra enviar um arquivo junto???? Tá phoda com ph...

Compartilhar este post

Link para o post
Compartilhar em outros sites

gastao    0

gastao
Postado

nao aconselho a enviar arquivos em anexo....... seu servidor vai xiar..... rsaconselho a enviar o arquivo no codigo html...

Compartilhar este post

Link para o post
Compartilhar em outros sites

wren    0

wren
Postado
Tudo bem eu até ja havia chegado a essa conclusão, porém, não sei como fazer isso. Só encontro tutoriais e exemplos de fazer um Upload de arquivo, que não me interessa, pois quero enviar o mesmo anexo, junto com a mensagem.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado
Tudo bem eu até ja havia chegado a essa conclusão, porém, não sei como fazer isso. Só encontro tutoriais e exemplos de fazer um Upload de arquivo, que não me interessa, pois quero enviar o mesmo anexo, junto com a mensagem.

Já procurou no site do fabricante do componente?

Compartilhar este post

Link para o post
Compartilhar em outros sites

wren    0

wren
Postado

Já pensei nisso tb gastao, porém, o que fica é o seguinte, se eu programar pra apagar a foto lá no servidor, logo depois de gerar e enviar a mensagem, não visualizarei a foto, quer dizer, ainda não testei, mas vou ver se funciona. Mas em todo caso, se não der certo, é mais fácil criar pra empresa um sistema em asp onde são cadastrados os currículos e eles mesmos tem a opção de excluir e o #@?$%~ a quatro do que eu ficar sempre acessando e apagar as fotos do servidor, pq se 200 mil pessoas enviarem a foto, vai ser f***, tanto fazer uma triagem do que presta e do que não presta como ocupar espaço no servidor...

Em todo caso, vou testar, ok.

Valeu pela dica.

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