Publicado em 3 de set.

Form + Arquivo por e-mail!

#asp classico

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 - Solicitação de Confirmação de Leitura

rem -

Mailer.ConfirmRead = false

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

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

rem - 1 = UUEncoded

rem - 2 = MIME

rem -

Mailer.Encoding = 2

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

rem - Tipo de Caracter (default é Ascii)

rem - 1 = US Ascii

rem - 2 = ISO-8859-1

rem -

Mailer.CharSet = 2

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

rem - Tipo de Conteúdo

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

rem -

Mailer.ContentType = "text/html"

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

rem - Prioridade da Mensagem

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

rem -

Mailer.Priority = 1

Mailer.Urgent = false

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"](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...

Discussão (5)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Carregando comentários...