Visual Basic - Ayuda Con Aplicacion

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda Con Aplicacion

Publicado por LoGo (1 intervención) el 08/06/2011 16:06:01
Bueno quisiera saber como hacer una aplicacion,la cual deve tener 2 textbox,en los cuales hay que poner unos datos y cuando le de a un boton que estara mas abajo envie los datos a mi correo,al mismo tiempo deve aparecer un mensaje de error y apagar la aplicacion.

Si alguien es tan amable de explicarme como hacerlo plis
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda Con Aplicacion

Publicado por apacheco (63 intervenciones) el 15/06/2011 14:48:59
Carga la referencia Microsoft OutlooK 11.0 Object Library

Ojo 11.0 (es la version) pertenece a Outlook 2003, para Outlook 2007 es 12.0

Dim objOL As Outlook.Application
Dim Msg As Outlook.MailItem

para enviar el e_mal
Set objOL = New Outlook.Application
Set Msg = objOL.CreateItem(olMailItem)

With Msg
.To = "xxxxxx@hotmail.com" ' Para (direccion de correo del receptor)
.Subject = "Liquidación" ' Asunto
.Body = "Adjunto les enviamos " ' Cuerpo del mensaje
' lo siguiente por si quieres adjuntar cualquier archivo
.Attachments.Add xxxxxxx.pdf" ' Fichero a enviar

.Send
End With

Set objOL = Nothing
Set Msg = Nothing

Puedes enviar los datos el . Body de la siguiente manera

.Body = TextBox1.Text & " - " & TextBox2.Text

y no utilizar el .Attachments.Add

o bien

Crear un fichero de texto (resultado.txt) y utilizar el
.Attachments.Add resultado.text
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar