enviar email com vb6

Question

 

quero enviar com autenticação e anexo, alguém pode me ajudar.

 

abs

 

carlos

Answer 1

Carlos,

 

     Minha sugestão: Faça um assembly (DLL) em .NET e depois utilize no VB6

  

     Código para criar o e-mail com anexo em .NET 

     Para enviar o e-mail com anexo (Adicione na referência do projeto o componente: System.Net)  :

 

Code Snippet

Imports System.Net.Mail

                    

Sub AttachmentFromFile()

'create the mail message

Dim mail As New MailMessage()

'set the addresses

mail.From = New MailAddress("[e-mail]")

mail.To.Add("[e-mail]")

'set the content

mail.Subject = "This is an email"

mail.Body = "this content is in the body"

'add an attachment from the filesystem

mail.Attachments.Add(New Attachment("c:\temp\example.txt"))

'to add additional attachments, simply call .Add(...) again

mail.Attachments.Add(New Attachment("c:\temp\example2.txt"))

mail.Attachments.Add(New Attachment("c:\temp\example3.txt"))

'send the message

Dim smtp As New SmtpClient("127.0.0.1")

smtp.Send(mail)

End Sub 'AttachmentFromFile

  

 

 

com vários anexos:

http://forums.microsoft.com/msdn-br/ShowPost.aspx?PostID=1185362&SiteID=21

 

Para criar a DLL compativel com VB6 no .NET

 

Como usar uma dll .Net no VB6

http://www.50minutos.com.br/2008/05/como-usar-uma-dll-net-no-vb6/

http://www.projetando.net/Sections/ViewArticle.aspx?ArticleID=77

 

Interop Forms Toolkit 2.0 (Use .NET forms no VB6)

http://msdn.microsoft.com/en-us/vbasic/bb419144.aspx

 

VB.NET 2005 - Pacotes Poderosos - Power Packs

http://www.macoratti.net/07/07/vbn5_pwp.htm

 

Inclusive no próprio fórum MSDN vc encontra diversos post sobre esse assunto (basta fazer uma pesquisa)

 

http://forums.microsoft.com/msdn-br/ShowPost.aspx?PostID=718629&SiteID=21

http://forums.microsoft.com/msdn-br/ShowPost.aspx?PostID=3884545&SiteID=21

http://forums.microsoft.com/msdn-br/ShowPost.aspx?PostID=1217612&SiteID=21

 

 

 

[ ]'s

 Laércio.

Ajude a melhorar o nosso Fórum!
Não esqueça de marca a mensagem como "útil", caso tenha ajudado.