Ver Mensaje Individual
  #8 (permalink)  
Antiguo 11/01/2013, 04:44
maialenlopez
 
Fecha de Ingreso: abril-2012
Mensajes: 449
Antigüedad: 12 años, 1 mes
Puntos: 7
Pregunta Respuesta: Mandar email con un boton

Cita:
Iniciado por jhonjairo00 Ver Mensaje
Hola maialenlopez,

No estoy seguro con que a lo que te refieres con que se envíe mas de una cosa dentro del contenido del objMail.Body sea más líneas dentro del cuerpo o que si lo quieras cargar con varios contenidos desde una base de datos o algo así, pero pues objMail.Body es una propiedad de tipo string, y por ende aquí le puedes cargar casi todo lo que quieras, es más podrías pasar el cuerpo del correo como un parámetro del método, así ya lo traes cargado con lo que tu quieras...

Te dejo el ejemplo
Código vb:
Ver original
  1. Private Sub SendMail(ByVal _to As String, ByVal _subject As String, ByVal _Body As String)
  2.         Dim m_OutLook As Outlook.Application
  3.         Try
  4.  
  5.             '* Creamos un Objeto tipo Mail
  6.  
  7.             Dim objMail As Outlook.MailItem
  8.  
  9.             '* Inicializamos nuestra apliación OutLook
  10.  
  11.             m_OutLook = New Outlook.Application
  12.  
  13.  
  14.             '* Creamos una instancia de un objeto tipo MailItem
  15.  
  16.             objMail = m_OutLook.CreateItem(Outlook.OlItemType.olMailItem)
  17.  
  18.  
  19.             '* Asignamos las propiedades a nuestra Instancial del objeto
  20.  
  21.             '* MailItem
  22.  
  23.             objMail.To = _to
  24.  
  25.             objMail.Subject = _subject
  26.  
  27.             objMail.Body = _Body
  28.  
  29.             '* Enviamos nuestro Mail y listo!
  30.  
  31.             objMail.Send()
  32.  
  33.  
  34.             '* Desplegamos un mensaje indicando que todo fue exitoso
  35.  
  36.             MessageBox.Show("Mail Enviado", "Integración con OutLook", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
  37.  
  38.         Catch ex As Exception
  39.  
  40.             '* Si se produce algun Error Notificar al usuario
  41.  
  42.             MessageBox.Show("Error enviando mail")
  43.  
  44.  
  45.         Finally
  46.  
  47.             m_OutLook = Nothing
  48.  
  49.  
  50.         End Try
  51.  
  52.  
  53.     End Sub

Espero te sirva

Saludos

Tenia otra duda, Te la comento y a ver si me puedes echar una mano.

La aplicación web la e echo en mi ordenador, pero tengo que pasarla a un servidor para poder atacar a esta aplicación desde otros ordenadores. El apartado de mandar el email, desde mi ordenador va perfectamente ya que tengo en el trabajo cada uno tenemos configurado nuestro correo en Outlook. Pero una vez introducida la aplicación en el servidor y cuando ataco a esta desde mi ordenador el apartado del email va pero la persona a la que quiero enviar el email no lo recibe.
¿Sabes si tengo que configurar algo o hacer algo para que esto funcione?
__________________
Gracias por todo;

Un saludo