Visual Basic 2005: Enviar correos

[moradazo]

He visto muchos temas al respecto de esto que pregunto, pero por que reincido con el tema que alguien ya habia hecho? Primero que lo que he visto piden de todo para que un programa sirva como plataformas de correo, otra pues veo que requieren de ciertas "referencias".

Lo que necesito es que por medio de un boton, se habra el Microsoft Outlook y que en su destinatario haya un nombre fijo. NADA MAS.

Les agradeceria su colaboracion, y si necesito una de esas referencias, no se donde agregarlos, he buscado pero nada, me podrian ubicar donde se encuentran?

Gracias!

[David]

Se puede hacer con ShellExecute.

Aquí un ejemplo: http://www.forosdelweb.com/f69/envia...utlook-579912/

[moradazo]

Gracias David.

El problema es que hay muchas cosas de VB6 que no conozco, de hecho nunca programe en VB6.

Por ejemplo en .net el programa no reconoce el nombre del formulario con el mail, ejemplo: Form1.mail. En VB6 si lo hace parece. Luego en el codigo que vi del link que me enviaste no se de que es SW_SHOW, y el programa me dice que no esta declarado.

Este fue el codigo que encontre:

Código PHP:

  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 
    Private Sub Button1_Click(ByVal hwnd As Long, ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        ShellExecute(hwnd, "open", "mailto:" & Mail.Dictionary & "?body=Se ha creado la prevision " & Num_doc.Text & "&Subject=Requisicion Creada" & Num_doc.Text, vbNullString, vbNullString, SW_SHOW)  
   

Si me puedes dar una mano con respecto a esta duda. Gracias!

[David]

El Form1.mail solo era parte del ejemplo anterior pero veo que ya lo reemplazaste.

En cuanto al SW_SHOW es esta constante:

Código PHP:

  Private Const SW_SHOW = 5  
   

[moradazo]

Iniciado por David el Grande

El Form1.mail solo era parte del ejemplo anterior pero veo que ya lo reemplazaste.

En cuanto al SW_SHOW es esta constante:

Código PHP:

  Private Const SW_SHOW = 5  
   

Gracias David, por tu respuesta tan inmediata y la paciencia.
Con lo del Dictionary.Mail o viceversa es por que estuve probando las formas posibles de nombrar a ver si detecta pero aun asi esta como desconocido.

Si yo declaro: (Asumiendo con lo que puse, Dictionary es Form1)

Mail.Form1: Me dice que Mail no esta declarado
Form1.Mail: Me dice que Mail no es miembro de Form
Form1(Mail): Me da doble error

Por ahi ando, creo que de alguna manera se debe declarar, seguire buscando y si sabes algo me avisas, muchas gracias.

[David]

Pero esa es solo la variable donde está guardado el correo donde quieres mandar, si tienes eso en una variable solo reemplaza por esa variable y listo.

[moradazo]

Listo David ya resolvi parte de lo que quiero

System.Diagnostics.Process.Start("mailto:admin@mor adazo.com")

Con eso se abre el outlook y ya pone el destinatario, solo me falta que la informacion de un textbox se pegue al cuerpo del mensaje del outlook.

Gracias

[David]

Es igual que con ShellExecute, solo coloca después de la dirección:

Código PHP:

  "?body=" & Text1.Value  
   

[moradazo]

Gracias David, pero me sigue saliendo error, es que el codigo de visual basic 6 en este caso no se interpretarlo como debe ser, de todas maneras muchas gracias.

Seguire buscando y/o tratando de seguir interpretando lo que me escribiste.

Gracias.

[David]

Pero se supone que debería funcionar con Visual Basic .NET:

Código PHP:

  System.Diagnostics.Process.Start("mailto:[email protected]?body=" & Text1.Value)  
   

¿o cómo lo estás poniendo?

[moradazo]

En efecto David, estas en lo correcto, la linea que me escribiste me funciono de maravilla solo con un cambio:

Que el textbox no es con Value en visual 2005 si no con text:

System.Diagnostics.Process.Start("mailto:arfm64@ho tmail.com?body=" & TextBox1.Text)

Otra ayuda completada por ti David, gracias!! Que el tema le sirva a muchos amigos programadores.

[David]

Jeje, en Visual Basic 6 también es .Text, no sé de donde habré sacado el Value . Tal vez porque ya estaba al final del día .

Saludos .