Mandar correos a varios destinatarios sin que truene

[miguelillo2]

Ya estufas, agregando las funcionalidades del outlook se puede lograr. Debes de agregar la referencia que esta en COM y que se denomina Microsoft Outlook Lybrary 10.0 (o la versión que tengas).

Este es el codigo empleado:

Código:

  Dim m_OutLook As Outlook.Application

        Try

            '* Creamos un Objeto tipo Mail 

            Dim objMail As Outlook.MailItem

            '* Inicializamos nuestra apliación OutLook 

            m_OutLook = New Outlook.Application


            '* Creamos una instancia de un objeto tipo MailItem 

            objMail = m_OutLook.CreateItem(Outlook.OlItemType.olMailItem)


            '* Asignamos las propiedades a nuestra Instancial del objeto 

            '* MailItem 

            objMail.To = "[email protected];[email protected];[email protected]; [email protected]"

            objMail.Subject = "Prueba de integración con Outlook"

            objMail.Body = "Esto es una prueba de integración de WorkFlow con Outlook"

            '* Enviamos nuestro Mail y listo! 

            objMail.Send()


            '* Desplegamos un mensaje indicando que todo fue exitoso 

            'MessageBox.Show("Mail Enviado", "Integración con OutLook", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

        Catch ex As Exception

            '* Si se produce algun Error Notificar al usuario 

            MessageBox.Show("Error enviando mail")


        Finally

            m_OutLook = Nothing


        End Try