MAILTO ???

ALEXPASSOS 11/04/2010 16:40:20
#339067 Resposta escolhida

Sub AttachmentFromFile()
[ô]create the mail message
Dim mail As New Net.Mail.MailMessage()

[ô]set the addresses
mail.From = New Net.Mail.MailAddress([Ô]abaje@abaje.com[Ô])
mail.To.Add(txtEmail.Text)

[ô]set the content
mail.Subject = txtAssunto.Text
mail.Body = txtTexto.Text

[ô]add an attachment from the filesystem
For Each o As Object In lbAnexo.Items
mail.Attachments.Add(New Net.Mail.Attachment(o.ToString()))
Next

[ô]send the message
Dim smtp As New Net.Mail.SmtpClient([Ô]mail.abaje.com[Ô])
smtp.Credentials = New Net.NetworkCredential([Ô]abaje@abaje.com[Ô], [Ô]elohim10[Ô])
smtp.Send(mail)

End Sub [ô]AttachmentFromFile

ALEXPASSOS 11/04/2010 16:43:53
#339069

Esse código enviar e-mail com anexo

é só adicionar os anexos no ListBox

lbAnexo.Items.Add(txtAnexar.Text)

Tente ai e qualquer coisa me fala