ENVIO DE EMAIL COM ANEXO

JCM0867 23/01/2016 13:57:55
#456432
Olá pessoal
Gostaria de fazer um loop para enviar vários emails usando a classe system.Net,Mail
tenho uma lista de e-mails e seus respectivos anexos

Para manda email funcionou perfeitamente, [txt-color=#e80000]Mas como faço para colocar Anexo?[/txt-color]

Segue o código:

[txt-color=#0000f0]Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

[ô]Cria objeto com dados do e-mail.
Dim objEmail As New System.Net.Mail.MailMessage()

[ô]Define o Campo From e ReplyTo do e-mail.
objEmail.From = New System.Net.Mail.MailAddress([Ô]Nome <email@seudominio.com.br>[Ô])
objEmail.ReplyTo = New System.Net.Mail.MailAddress([Ô]Nome <email@seudominio.com.br>[Ô])

[ô]Define os destinatários do e-mail.
objEmail.To.Add([Ô]Nome <email@dominio.com.br>[Ô])

[ô]Enviar cópia para.
[ô]objEmail.CC.Add([Ô]Nome <email@dominio.com.br>[Ô])

[ô]Enviar cópia oculta para.
[ô]objEmail.Bcc.Add([Ô]Nome <email@dominio.com.br>[Ô])

[ô]Define a prioridade do e-mail.
objEmail.Priority = System.Net.Mail.MailPriority.Normal

[ô]Define o formato do e-mail HTML (caso não queira HTML alocar valor false)
objEmail.IsBodyHtml = True

[ô]Define o título do e-mail.
objEmail.Subject = [Ô]Teste de envio de emails usando System.Net.Mail em VB.NET[Ô]

[ô]Define o corpo do e-mail.
objEmail.Body = [Ô]<b>Teste de envio de emails usando System.Net.Mail em VB.NET</b>[Ô]

[ô]Para evitar problemas com 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)
objSmtp.Host = [Ô]localhost[Ô]

[ô]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()

End Sub[/txt-color]

Onde adiciono o Anexo?

Grato
Júlio
KERPLUNK 23/01/2016 17:35:00
#456436 Resposta escolhida
O objeto System.Net.MailMessage possui a propriedade attachments. Basta incluir arquivos nesta propriedade.
JCM0867 23/01/2016 17:56:54
#456437
Citação:

:
O objeto System.Net.MailMessage possui a propriedade attachments. Basta incluir arquivos nesta propriedade.



Achei:
objEmail.Attachments.Add(New Net.Mail.Attachment([txt-color=#0000f0]Arquivo[/txt-color]))

valeu
JCM0867 24/01/2016 19:00:06
#456461
Olá pessoal, outro problema,
Ele funciona perfeitamente pra enviar email pelo terra e provedor próprio,
mas não Consigo fazer funcionar para enviar emails usando remetente com Outlook/Hormail e Gmail. não testei o yahoo,
Todos dão erro de autenticação.
O que preciso fazer?
KERPLUNK 24/01/2016 19:57:53
#456468
Isso não tem nada a haver com seu código. O caso é que permitir ou não anexos é configuração de cada serviço de e-mail. Alguns possuem até mesmo políticas quanto ao tipo de arquivo enviado.
JCM0867 24/01/2016 20:21:32
#456470
KERPLUNK
Pois é, pensei no anexo (arquivo TXT), deixei sem, mas deu erro igual
Na internet o pessoal relatou o mesmo problema, deram uma solução, mas o erro persistiu
Notei que no caso do Gmail, que está inserido no Live mail além do SMTP tem também o IMAP (porta 993), só que não tem IMAP no System.Net.Mail, só se está com outro nome.
Não poderia a falta do imap.gmail.com estar bloqueando o envio?
Tópico encerrado , respostas não são mais permitidas
Voltar