Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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 TryCarregando comentários...