Foro de elhacker.net

Imports System.Net
Imports System.Net.Mail
 
Module Correo
 
    Private correos As New MailMessage
    Private envios As New SmtpClient
 
    Sub enviarCorreo(ByVal emisor As String, ByVal password As String, ByVal mensaje As String, ByVal asunto As String, ByVal destinatario As String)
        Try
            correos.To.Clear()
            correos.Body = ""
            correos.Subject = ""
            correos.Body = mensaje
            correos.Subject = asunto
            correos.IsBodyHtml = True
            correos.To.Add(Trim(destinatario))
 
            correos.From = New MailAddress(emisor)
            envios.Credentials = New NetworkCredential(emisor, password)
 
            'Datos importantes no modificables para tener acceso a las cuentas
 
            envios.Host = "smtp.gmail.com"
            envios.Port = 587
            envios.EnableSsl = True
 
            envios.Send(correos)
            MsgBox("El mensaje fue enviado correctamente. ", MsgBoxStyle.Information, "Mensaje")
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Mensajeria 1.0 vb.net ®", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
 
    End Sub
 
End Module
 
 

• Re: Como puedo enviar mails masivos con archivos adjuntos (https://foro.elhacker.net/programacion_general/como_puedo_enviar_mails_masivos_con_archivos_adjuntos-t477860.0.html;msg2148710#msg2148710)

Partial Public NotInheritable Class MailUtil : Inherits AestheticObject

"El tipo AestheticObject no esta definido"

 SendGMailText("Username@Gmail.com", "Password", "Email Subject", "Message Body", "Address@Server.com")

'SendGMailText' no está declarado.

NAMESPACE_DE_TU_PROGRAMA.NET.Tools.MailUtil.SendGMailText( ...parámetros... )

SystemOS.NET.Tools.MailUtil.SendGMailText("grup.fisica.638@gmail.com", "*", txtAsunto.Text, rtbMensaje.Text, "maria7diaz@hotmail.com")

• https://pastebin.com/YXatPRiU

#If NET45 OrElse NET46 Then

#End If

Private Shared Sub SendGMail(ByVal username As String,
                             ByVal password As String,
                             ByVal subject As String,
                             ByVal body As String,
                             ByVal addresses As MailAddressCollection,
                             ByVal attachments As Collection(Of Attachment),
                             ByVal isBodyHtml As Boolean)
 
...
For Each attachment As Attachment In attachments
    msg.Attachments.Add(attachment)
Next attachment
...

If (attachments IsNot Nothing) Then
    For Each attachment As Attachment In attachments
        msg.Attachments.Add(attachment)
    Next attachment
End If