[Resolvido] Fileupload arquivo .doc / email

cintiadel · Outubro 13, 2008

preciso que o tipo de arquivo carregado no fileupload seja somente .doc e que ele além de ser enviado para pasta e salvar o caminho no banco seja enviado por email?

Try
			'Verificamos se tem alguma coisa postada 
			If Not IsNothing(flpCurriculo.PostedFile) Then
				'Pegamos as informacoes do arquivo postado 
				Dim infoarquivo As New IO.FileInfo(flpCurriculo.PostedFile.FileName)
				'Definimos onde ele será salvo 
				Dim strCaminho As String = "C:\Pasta\" & infoarquivo.Name
				'Salvamos o mesmo 
				flpCurriculo.PostedFile.SaveAs(strCaminho)
				sqlGrava.InsertCommand = "Insert into tabela(nome,rg,cpf,dt_nascimento,sexo,cod_estadocivil,necessidade_especial,desc_nec
essidade,ddd_telefone,telefone,ddd_celular,celular,endereco,numero,complemento,b
a
irro,cidade,estado,cep,email,instituicao,curso,curriculo,como_conheceu,opcao,dat
a
_hora,status)values('" & Session("nome") & "', '" & Session("rg") & "','" & Session("cpf") & "','" & FormatDateTime(Session("dia_nasc") & "/" & Session("mes") & "/" & Session("ano")) & "','" & Session("sexo") & "','" & Session("est_civil") & "','" & Session("nec_especial") & "','" & Session("desc_nec") & "','" & Session("ddd_tel") & "','" & Session("tel") & "','" & Session("ddd_cel") & "','" & Session("cel") & "','" & Session("endereco") & "','" & Session("numero") & "','" & Session("complemento") & "', '" & Session("bairro") & "','" & Session("cidade") & "','" & Session("estado") & "','" & Session("cep1") & Session("cep2") & "','" & Session("email") & "','" & Session("instituicao") & "','" & Session("cursograd") & "','" + infoarquivo.Name + "','" & Session("conheceu") & "','" & Session("cod_curso") & "','" & Now & "','" & Session("status") & "')"
				sqlGrava.Insert()
				Dim mail As New System.Net.Mail.SmtpClient("smtp.dominio.br", 25)
				Dim de As New System.Net.Mail.MailAddress("email@dominio.br")
				'Dim de As New System.Net.Mail.MailAddress("email@dominio.br")
				Dim mensagem As New System.Net.Mail.MailMessage


				Dim para = txt_email.Text


				mensagem.To.Add(para)
				'mensagem.Bcc.Add("email@dominio.br")
				mensagem.From = de
				mensagem.Subject = "Teste: " & Session("nome") & ""
				mensagem.Attachments.Add(New System.Net.Mail.Attachment("infoarquivo"))
				mensagem.IsBodyHtml = True
				mensagem.BodyEncoding = Encoding.ASCII
				mensagem.Body = "<font face='verdana' size='3'>Segue em anexo o currículo de " & Session("nome") & ",<br><br>"
				mail.Send(mensagem)


				mail = Nothing
				mensagem = Nothing


				

				'Mensagem de confirmacao 
				'Response.Write("Arquivo enviado com sucesso!")
				Response.Redirect("Obrigado.aspx")
			End If
		Catch ex As Exception
			'Se der algum erro, exibimos a mensagem 
			'Response.Write("Erro:" + ex.Message.ToString)
		End Try

quintelab · Outubro 13, 2008

O seu código da algum erro?

Abraços...

cintiadel · Outubro 13, 2008

O seu código da algum erro?

Abraços...

não nenhum mas n ta enviando o email

quintelab · Outubro 13, 2008

O código que esta dentro do seu bloco catch esta comentado.

Catch ex As Exception
			'Se der algum erro, exibimos a mensagem
			'Response.Write("Erro:" + ex.Message.ToString)

Tem certeza que não esta dando nenhum erro. Descomente o responde.write pra verificar.

Abraços...

cintiadel · Outubro 14, 2008

O código que esta dentro do seu bloco catch esta comentado.
Catch ex As Exception
			'Se der algum erro, exibimos a mensagem
			'Response.Write("Erro:" + ex.Message.ToString)
Tem certeza que não esta dando nenhum erro. Descomente o responde.write pra verificar.

Abraços...

The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value. The statement has been terminated.

quintelab · Outubro 14, 2008

Eu acho que o problema é na hora de gravar no seu banco e não no envio de e-mail.

Em qual linha esta dando o erro?

Abraços...

cintiadel · Outubro 14, 2008

Eu acho que o problema é na hora de gravar no seu banco e não no envio de e-mail.

Em qual linha esta dando o erro?

Abraços...

acredito que seja isso, mas nao mostra a linha, so depois do insert cai na excessao

quintelab · Outubro 14, 2008

Justamente, veja os dados que você esta gravando, esta gravando algo que não compete com o tipo do banco.

Abraços...

cintiadel · Outubro 14, 2008

Justamente, veja os dados que você esta gravando, esta gravando algo que não compete com o tipo do banco.

Abraços...

tinha dois campos no banco que eram datetime, eu mudando eles pra varchar gravou, mas deveria funcionar como datetime tbm não é?

já ao tentar enviar o email ele esta dando esse erro:

Could not find file 'C:\Arquivos de programas\Microsoft Visual Studio 9.0\Common7\IDE\infoarquivo'.

cintiadel · Outubro 15, 2008

Justamente, veja os dados que você esta gravando, esta gravando algo que não compete com o tipo do banco.

Abraços...

PRECISO DE AJUDA PARA VERIFICAR SE O ARQUIVO É .DOC?

Mário Monteiro · Outubro 15, 2008

pode usar ate javascript para verificar a extenção

E mais uma coisa nao post a mesmo coisa em varios locais

Creio que seja a quarta vez que leio isso hoje

cintiadel · Outubro 15, 2008

pode usar ate javascript para verificar a extenção

E mais uma coisa nao post a mesmo coisa em varios locais

Creio que seja a quarta vez que leio isso hoje

desculpe mas esse é o único post sobre isso

pode me ajudar a fazer essa verificacao com javascript?

Mário Monteiro · Outubro 15, 2008

Desculp-me

Realmente foi no minimo a quarta vez que li sobre o upload do .doc, soq ue tem outro usuario com o mesmo problema

E como nao costumo muito ver o usuario e sim a sua duvida nao percebi qeu se tratavam de usuarios difirentes

Um exemplo passo a passo mas pode encurtar fiz detalhado para voce entender

arquivo = "mario.doc"
posicao = arquivo.indexOf(".");
tamanho = arquivo.length;
arquivo = arquivo.substring(posicao, tamanho);

if (arquivo == ".doc" ){
   return true;
}

cintiadel · Outubro 16, 2008

Desculp-me

Realmente foi no minimo a quarta vez que li sobre o upload do .doc, soq ue tem outro usuario com o mesmo problema

E como nao costumo muito ver o usuario e sim a sua duvida nao percebi qeu se tratavam de usuarios difirentes

Um exemplo passo a passo mas pode encurtar fiz detalhado para voce entender
arquivo = "mario.doc"
posicao = arquivo.indexOf(".");
tamanho = arquivo.length;
arquivo = arquivo.substring(posicao, tamanho);

if (arquivo == ".doc" ){
   return true;
}

eu coloquei o seguinte codigo

function arquivo(arquivo) {

posicao = arquivo.indexOf(".");

tamanho = arquivo.length;

arquivo = arquivo.substring(posicao, tamanho);

if (arquivo == ".doc") {

return true;

}

else {

(arquivo =! ".doc")

alert("Selecione um arquivo .doc")

}

</script>

e no campo chamei a função onKeyPress=" return arquivo();"

tentei anexar um arquivo .pdf e ele deixou sem exibir erro

Mário Monteiro · Outubro 16, 2008

mas ficou muito confuso com o nome da funcao igual ao do paramentro

que erro deu?

troque o nome e vamos corrigir

cintiadel · Outubro 16, 2008

mas ficou muito confuso com o nome da funcao igual ao do paramentro

que erro deu?

troque o nome e vamos corrigir

function carrega(arq) {
		posicao = arquivo.indexOf(".");
		tamanho = arquivo.length;
		arquivo = arquivo.substring(posicao, tamanho);

		if (arquivo == ".doc") {
			return true;
		}
		else {
			alert("Selecione um arquivo .doc")
		}
	}

e no fileupload coloquei a funcao onKeyPress=" return carrega();"

não está apresentando nenhum erro mesmo qdo carrego outro tipo de arquivo

cintiadel · Outubro 16, 2008

mas ficou muito confuso com o nome da funcao igual ao do paramentro

que erro deu?

troque o nome e vamos corrigir

solução:

Protected Sub btn_inscrever_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_inscrever.Click

		Dim conexao As New Data.SqlClient.SqlConnection("")

		Session("nome") = txt_nome.Text
		Session("rg") = txt_rg.Text
		Session("cpf") = txt_cpf.Text
		Session("dia_nasc") = ddl_dia.Text
		Session("mes") = ddl_mes.Text
		Session("ano") = ddl_ano.Text
		Session("sexo") = ddl_sexo.Text
		Session("est_civil") = ddl_est_civil.SelectedValue
		Session("nec_especial") = ddl_necessidades.SelectedValue
		Session("desc_nec") = txt_desc_nec.Text
		Session("ddd_tel") = txt_ddd.Text
		Session("tel") = txt_tel.Text
		Session("ddd_cel") = txt_ddd_cel.Text
		Session("cel") = txt_celular.Text
		Session("endereco") = txt_endereco.Text
		Session("numero") = txt_numero.Text
		Session("complemento") = txt_complemento.Text
		Session("bairro") = txt_bairro.Text
		Session("cidade") = txt_cidade.Text
		Session("estado") = ddl_estado.Text
		Session("cep1") = txt_cep1.Text
		Session("cep2") = txt_cep2.Text
		Session("email") = txt_email.Text
		Session("instituicao") = txt_instituicao.Text
		Session("cursograd") = txt_curso.Text
		'Session("curriculo") = flpCurriculo.PostedFile.FileName
		Session("conheceu") = rbl_con_uniabc.SelectedValue
		Session("cod_curso") = ddl_opcao.SelectedValue
		Session("status") = "Indefinido"


		If IsPostBack Then
			Dim fileOK As Boolean = False
			If flpCurriculo.HasFile Then
				Dim fileExtension As String
				fileExtension = System.IO.Path. _
					GetExtension(flpCurriculo.FileName).ToLower()
				Dim allowedExtensions As String() = _
					{".doc"}
				For i As Integer = 0 To allowedExtensions.Length - 1
					If fileExtension = allowedExtensions(i) Then
						fileOK = True
					End If
				Next
				If fileOK Then
					Try
						'Pegamos as informacoes do arquivo postado 
						Dim infoarquivo As New IO.FileInfo(flpCurriculo.PostedFile.FileName)
						'Definimos onde ele será salvo 
						Dim strCaminho As String = "C:\pasta\" & infoarquivo.Name
						'Salvamos o mesmo 
						flpCurriculo.PostedFile.SaveAs(strCaminho)

						'Enviando o curriculo por e-mail
						'cria objeto com dados do e-mail 
						Dim objEmail As New System.Net.Mail.MailMessage()
						'remetente do e-mail 
						objEmail.From = New System.Net.Mail.MailAddress(Session("email"))
						'destinatários do e-mail 
						'objEmail.To.Add("email")
						objEmail.To.Add("email")
						'enviar cópia para 
						'objEmail.Bcc.Add("email")
						'prioridade do e-mail 
						objEmail.Priority = System.Net.Mail.MailPriority.Normal
						'formato do e-mail HTML (caso não queira HTML alocar valor false) 
						objEmail.IsBodyHtml = True
						'título do e-mail 
						objEmail.Subject = "assunto"
						'anexar arquivo
						objEmail.Attachments.Add(New System.Net.Mail.Attachment("C:\pasta\" & infoarquivo.Name))
						'corpo do e-mail 
						objEmail.Body = "mensagem"
						' Para evitar problemas de caracteres "estranhos", configuramos o charset para "ISO-8859-1" 
						objEmail.SubjectEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
						objEmail.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
						'cria objeto com os dados do SMTP 
						Dim objSmtp As New System.Net.Mail.SmtpClient
						'alocamos o endereço do host para enviar os e-mails, localhost(recomendado) ou smtp2.locaweb.com.br 
						objSmtp.Host = "smtp"
						'enviamos o e-mail através do método .Send() 
						Try
							objSmtp.Send(objEmail)
							Response.Write("E-mail enviado com sucesso !")
						Catch ex As Exception
							Response.Write("Ocorreram problemas no envio do e-mail. Error = " & ex.Message)
						End Try

						'excluímos o objeto de e-mail da memória 
						objEmail.Dispose()


						sqlGrava.InsertCommand = "Insert tabela(nome,rg,cpf,dt_nascimento,sexo,cod_estadocivil,necessidade_especial,desc_nec
essidade,ddd_telefone,telefone,ddd_celular,celular,endereco,numero,complemento,b
a
irro,cidade,estado,cep,email,instituicao,curso,curriculo,como_conheceu,opcao,dat
a
_hora,status)values('" & Session("nome") & "', '" & Session("rg") & "','" & Session("cpf") & "','" & FormatDateTime(Session("dia_nasc") & "/" & Session("mes") & "/" & Session("ano")) & "','" & Session("sexo") & "','" & Session("est_civil") & "','" & Session("nec_especial") & "','" & Session("desc_nec") & "','" & Session("ddd_tel") & "','" & Session("tel") & "','" & Session("ddd_cel") & "','" & Session("cel") & "','" & Session("endereco") & "','" & Session("numero") & "','" & Session("complemento") & "', '" & Session("bairro") & "','" & Session("cidade") & "','" & Session("estado") & "','" & Session("cep1") & Session("cep2") & "','" & Session("email") & "','" & Session("instituicao") & "','" & Session("cursograd") & "','" + infoarquivo.Name + "','" & Session("conheceu") & "','" & Session("cod_curso") & "','" & Now & "','" & Session("status") & "')"
						sqlGrava.Insert()


						'Mensagem de confirmacao 
						'Response.Write("Arquivo enviado com sucesso!")
						Response.Redirect("Obrigado.aspx")

					Catch ex As Exception
						alert.Text = "Falha no upload"
					End Try
				Else
					alert.Text = "Anexe somente arquivos .doc"
				End If
			End If
		End If
	End Sub

Mário Monteiro · Outubro 16, 2008

Deu certo o seu codigo?

cintiadel · Outubro 16, 2008

Deu certo o seu codigo?

com javascript nao, mas com esse q eu coloquei acima funcionou

valeu

Mário Monteiro · Outubro 16, 2008

Que bom

Parabens

Arquivado

[Resolvido] Fileupload arquivo .doc / email

Recommended Posts

cintiadel 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

quintelab 91

Compartilhar este post

Link para o post

Compartilhar em outros sites

cintiadel 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

quintelab 91

Compartilhar este post

Link para o post

Compartilhar em outros sites

cintiadel 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

quintelab 91

Compartilhar este post

Link para o post

Compartilhar em outros sites

cintiadel 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

quintelab 91

Compartilhar este post

Link para o post

Compartilhar em outros sites

cintiadel 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

cintiadel 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

cintiadel 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

cintiadel 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

cintiadel 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

cintiadel 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

cintiadel 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179