SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: PitufoFilosofo en Viernes 5 de Octubre de 2007, 18:54

Título: Envio De Mai
Publicado por: PitufoFilosofo en Viernes 5 de Octubre de 2007, 18:54

Hola a todos:
Estoy desarrollando una aplicación en la que necesito enviar un Mail a un grupo de Personas dentro de una misma Compañia.
Utilizo el VB.Net 2005 y tengo instalado el Office 2003
e intentado con varias opciones que encontre en internet  pero ninguna me funciona siempre dan error.
ej:
Public Sub SendMailMessage(ByVal strFrom As String, ByVal strTo As String, ByVal strSubjet As String, ByVal strMessage As String, ByVal FileList() As String)

Try

For Each item As String In strTo

'este siclo FOR es por cada eMail destino que se Ponga

Dim MailMsg() As New MailMessage(New MailAddress(strFrom.Trim()).Address(item))

MailMsg.Subject = strSubjet.Trim()

MailMsg.Body = strMessage.Trim() & vbCrLf

MailMsg.Priority = MailPriority.Normal

MailMsg.IsBodyHtml = True

'Ciclo por si se envian archivos adjuntos

For Each strFile As String In FileList

If Not strFile = "" Then

Dim MsgAttach As New Attachment(strFile)

MailMsg.Attachments.Add(MsgAttach)

End If

Next

'Crear la variable de conexion

Dim stpmMail As New SmtpClient

' Enviar datos Login

'---------Modificar-----------

Dim theCredentials As New Net.NetworkCredential("Usuario", "Password")

stpmMail.Credentials = theCredentials

'Indicar Host

'----------Modificar----------

stpmMail.Send(MailMsg)

Next

Catch ex As Exception

MsgBox(ex.Message)

End Try

Por favor ayudenme  :(

Título: Re: Envio De Mai
Publicado por: PitufoFilosofo en Miércoles 10 de Octubre de 2007, 17:47

Encontre una solución que me resuelve mi Problema y aquí la comparto con ustedes.

‘ Declaro esta variables en la parte de declaraciones
‘ Instancio la Aplicación que se va a utilizar
Dim myOlApp As New Microsoft.Office.Interop.Outlook.Application
‘ Instancio un MailItem que se va a utilizar
Dim myOlItem As Microsoft.Office.Interop.Outlook.MailItem
‘ Declaro un Nuevo Intems
Dim myOlItems As Microsoft.Office.Interop.Outlook.Items

‘ Coloco el siguiente codigo en el boton de Enviar
Private Sub cmbSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbSend.Click
        Try
            myOLItem = myOlApp.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
                     
            With myOlItem
                .To = "Aquí se coloca la Direccion de Correo donde sera Enviado "
                .Subject = "Aquí se coloca el Titulo del Mail (Subjetc) "
                .Body = "Aquí se coloca el Cuerpo del Mail "
                .Importance = Microsoft.Office.Interop.Outlook.OlImportance.olImportanceHigh
            End With
            ‘envia el mail
            myOLItem.Send()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

‘ Creo un Objeto para que corra el Outlook
    Public Sub Initialize_handler()
        myOlApp = CreateObject("Outlook.application")
    End Sub

Esto lo hice con el Outlook del Ofice 2003 y Visual 2005 y me resulto

Espero le sirva alguno de Ustedes y no pasen tantos dolores de cabeza como yo
bay :hola: