[Resolvido] Fileupload arquivo .doc / email

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