Ayuda para enviar correos desde VB

Adrian
22 de Marzo del 2010
Hola soy nuevo en esto de la programacion y necesitaria saber un codigo que me permita, mediante un formulario, el envio de correos electronicos a un servidor de correo, en este caso a un gmail. He probado con otros codigos que estan colgados por Internet pero no he logrado hacer funcionar ninguno, si alguien controla de este tema le agradeceria su ayuda. Un saludo

Luis Jenry
19 de Mayo del 2010
Hola, aunque relaciono una seccion de enviar informacion en formato zip. intente con esto:

Sub envia_Email(ByVal _sMensaje As String)

Dim _Message As New System.Net.Mail.MailMessage()
Dim _Cad, _Directory As String
Dim _SMTP As New System.Net.Mail.SmtpClient
'Configuración del SMTP

_SMTP.Credentials = New System.Net.NetworkCredential(“ususario”, “contraseña”)
_SMTP.Host = "smtp.live.com" '"65.54.244.40"'"smtp.gmail.com" '
_SMTP.Port = 25 '"hotmatil'587'gmail
_SMTP.EnableSsl = True

' Configuración del Mensaje

_Message.[To].Add(sReg2) 'Cuenta de Correo al que se le quiere enviar el e-mail
_Message.From = New System.Net.Mail.MailAddress(“ususario”, “contraseña”, System.Text.Encoding.UTF8) 'Quien lo envía
_Message.Subject = "Atención" 'Sujeto del e-mail
_Message.SubjectEncoding = System.Text.Encoding.UTF8 'Codificacion
_Message.Body = "Este es un mensaje." 'contenido del mail
_Message.BodyEncoding = System.Text.Encoding.UTF8
_Message.Priority = System.Net.Mail.MailPriority.High
_Message.IsBodyHtml = False

'Adicionar datos
Dim _File As String
_File = _sMensaje 'txtFile.Text
_Cad = Ruta_Zip(_File)

'Comprimir los archivos
_Directory = _Cad & "Fotos.rar"
Dim zip As New ZipFile(_Directory)

zip.AddDirectory(_Cad)
zip.Save()

Dim _Attachment As New System.Net.Mail.Attachment(_Directory, System.Net.Mime.MediaTypeNames.Application.Octet)
_Message.Attachments.Add(_Attachment)

'Envio
Try
_SMTP.Send(_Message)
Catch ex As System.Net.Mail.SmtpException
MessageBox.Show(ex.ToString)
Finally
_Attachment.Dispose()
_Message.Dispose()
_Message = Nothing
_SMTP = Nothing
zip.Dispose()
zip = Nothing
End Try
End Sub