Visual Basic - Enviar email

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 1
Ha aumentado su posición en 86 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Enviar email

Publicado por Matias (136 intervenciones) el 14/11/2007 20:14:56
Hola chicos? como estas? bueno estoy intentando enviar los datos de un formulario via email, y la idea es antes que nada poder ejecutar outlook pero no se como hacerlo, no se como ejecutarlo ni como darle parametros como la direccion a la que sera enviado este mail.
Tampoco se como colocar en el cuerpo del mail el control msflexgrid que quiero enviar con algunos otros controles como los totales y titulos (que son labels y textbox) . bueno si pueden ayudarme a ejecutar el outlook les agradeceria
Chau chau
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

RE:Enviar email

Publicado por Maria Antoni@ (9 intervenciones) el 14/11/2007 20:58:57
Bien Matias ya sabemos que no sabes nada pero al menos tienes una idea.

Suerte!!
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
sin imagen de perfil
Val: 1
Ha aumentado su posición en 86 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE: Tenes Razon Maria

Publicado por Matias (136 intervenciones) el 15/11/2007 03:45:44
Hola Maria teness razon no se hacerlo pero soy bonito, capaz si me conoces te dan ganas de enseñarme no???
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

RE:Enviar email

Publicado por El conejo (124 intervenciones) el 15/11/2007 04:42:48
Hola.

Use Api Sr..

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Const SW_NORMAL = 1
private sub command1_click()
msn = "mailto:" & textdeladirecciondestino.text & "?body=" & msflexgrid & "&subject=" & textoasunto.text
Dim X
X = ShellExecute(Me.hwnd, "Open", msn, &O0, &O0, SW_NORMAL)
end sub
Funciona con Outlook.
Apliquelo a su forma, espero le sirva.
Saludos.
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