none
Mostrar la libreta de direcciones de exchange

    Question

  • Buenas a todos, les comento mi necesidad. Estoy intentando hacer una aplicación que mande mails utilizando la cuenta de correo del usuario. La parte de armar el mail y enviarlo lo tengo, lo que no puedo hacer es que al presionar le botón para o cc. se despliege la libreta de direcciones.

    El código que estoy utilizando para armar el correo es el siguiente:

    Desde ya agradezco su respuesta!!

     Private Sub BtnEnviarMail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            '* Creamos un Objeto que hará referencia a nuestra aplicación Outlook
            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

    ##ESTA ASIGNACIÓN ES LA QUE DEBERÍA CAMBIAR POR EL RESULTADO DEL PARA"#####
                objMail.To = "pmonjes@jaa.com
                objMail.Subject = "Enviando correo desde VB2010 .NET"
                objMail.Body = "Este es el cuerpo del mensaje. Si te sirve twitealo en @joelprada"
                Dim Rta = MsgBox("¿Realmente desea enviar el correo?", MsgBoxStyle.YesNo)
                If Rta = 6 Then
                    '* Enviamos nuestro Mail y listo!
                    objMail.Send()
                    '* Desplegamos un mensaje indicando que todo fue exitoso
                    MessageBox.Show("Envìo exitoso.", "Enviar Mail", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

                ElseIf Rta = 7 Then
                    MessageBox.Show("Envío cancelado", "Enviar Mail", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                End If

            Catch ex As Exception
                '* Si se produce algun Error
                MessageBox.Show("Error enviando mail")
            Finally
                m_OutLook = Nothing ' Destruimos el objeto (recoger la basura...)
            End Try
        End Sub

    Friday, March 09, 2012 4:24 PM

All replies