ANEXAR EMAIL

MOUSER 23/09/2016 17:00:07
#467399
Galera, estou com uma duvida em relação ao código abaixo. gostaria de saber se é possivel e se sim, qual comando para anexar um arquivo por email?
Citação:

Try
Dim Destinatario As String
Destinatario = txtDestinatario.Text
Dim SmtpServer As New SmtpClient()
Dim mail As New MailMessage()
SmtpServer.UseDefaultCredentials = False
SmtpServer.Credentials = New Net.NetworkCredential(Email, Senha) [ô](email remetente, senha remetente)
SmtpServer.Host = [Ô]smtp.gmail.com[Ô]
SmtpServer.Port = 587 [ô]server para Hotmail, GMail
SmtpServer.EnableSsl = True
mail.From = New MailAddress(Email) [ô]mail from ou seja de quem manda o e-mail
mail.To.Add(Destinatario) [ô] mail.to para quem vai . No meu caSO tou a mandar e-mail para mim mesmo
mail.Subject = txtAssunto.Text
mail.Body = txtMensagem.Text
SmtpServer.Send(mail) [ô]<----
MsgBox([Ô]E-mail enviado com sucesso[Ô], MsgBoxStyle.Information, [Ô]Envio Confirmado[Ô])
Catch ex As Exception
MsgBox([Ô]Verifique se existe Conexão[Ô], MsgBoxStyle.Critical, [Ô]Erro[Ô])
End Try



Tenho este código já funcionando. Obrigado deste já. Se demorar pra responder, é por estar pesquisando na internet (google) sobre o assunto.
NILSONTRES 23/09/2016 17:30:09
#467401 Resposta escolhida
oMail.Attachments.Add(New Attachment([Ô]caminho e nome do arquivo[Ô]))
vc pode fazer um for de uma lista de arquivos para anexar todos, ou repita para mais arquivos.
ZOWWT 23/09/2016 17:30:33
#467402
Olá, você deve criar uma variável e passar o local do arquivo, ou via filedialog

Vou te dar um exemplo

Dim  _Anexo as Mail.Attachment
_Anexo = new Mail.Attachment([Ô]C:\arquivo.pdf[Ô])
ou chamar um fileDialog e passar o valor para essa variável..
MOUSER 23/09/2016 17:32:06
#467403
Problema Resolvido. Comando está abaixo:

Citação:


Try
Dim Destinatario As String
Destinatario = txtDestinatario.Text
Dim SmtpServer As New SmtpClient()
Dim mail As New MailMessage()
SmtpServer.UseDefaultCredentials = False
SmtpServer.Credentials = New Net.NetworkCredential(Email, Senha) [ô](email remetente, senha remetente)
SmtpServer.Host = [Ô]smtp.gmail.com[Ô]
SmtpServer.Port = 587 [ô]server para Hotmail, GMail
SmtpServer.EnableSsl = True
mail.From = New MailAddress(Email) [ô]mail from ou seja de quem manda o e-mail
mail.To.Add(Destinatario) [ô] mail.to para quem vai . No meu caSO tou a mandar e-mail para mim mesmo
mail.Subject = txtAssunto.Text
mail.Body = txtMensagem.Text
mail.Attachments.Add(New Attachment(Anexo)) [ô]Caminho do Anexo Ex: C:\Documentos\Anexo.txt
SmtpServer.Send(mail) [ô]Enviando Email
MsgBox([Ô]E-mail enviado com sucesso[Ô], MsgBoxStyle.Information, [Ô]Envio Confirmado[Ô])
Catch ex As Exception
MsgBox([Ô]Verifique se existe Conexão[Ô], MsgBoxStyle.Critical, [Ô]Erro[Ô])
End Try
Tópico encerrado , respostas não são mais permitidas
Voltar