Visual Basic - Email desde Visual Basic

Life is soft - evento anual de software empresarial
 
Vista:

Email desde Visual Basic

Publicado por grego (4 intervenciones) el 20/01/2003 10:06:37
Hola que tal, necesito ayuda urgente. Solo me queda ver como se envian mensajes desde visual y acabo la aplicación que tengo entre manos. He visto que es con el control MAPIMessages pero no consigo ver como. Si algien me puede ayudar lo agradecería mucho.
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:Email desde Visual Basic

Publicado por lokoperales (61 intervenciones) el 20/01/2003 10:25:35
Visita www.ambsoftware.com y busca por la palabra "email".
Encontrarás el ejemplo que andas buscando.
Un saludo
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:Email desde Visual Basic

Publicado por grego (4 intervenciones) el 20/01/2003 10:43:52
Muchas gracias por la respuesta y por la rapidez. Ahora voy aver
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:Email desde Visual Basic

Publicado por Jesús Salavera (4 intervenciones) el 20/01/2003 23:43:54
Hola, te digo como lo hago yo.
Meto una etiqueta (label) en la que el caption es mi dirección de correo.

A esa etiqueta le meto este codigo:

Private Sub LabelMAIL_Click()
Dim nFile As Integer
'****************************************************************
' ESTA INSTRUCCION SIRVE PARA HACER QUE ENVIE UN E-MAIL
'****************************************************************
' Desarrollada por Jesús Salavera
' E-MAIL: [email protected]
'****************************************************************


'CREA UN ARCHIVO TEMPORAL
nFile = FreeFile
Open App.Path & "\TEMP.URL" For Output As #nFile
Print #nFile, "[InternetShortcut]"
Print #nFile, "URL=" & "mailto:" & LabelMAIL.Caption
Close #nFile

'EJECUTA EL PROGRAMA DE CORREO PREDETERMINADO
Shell "rundll32.exe shdocvw.dll,OpenURL " & App.Path & "\temp.url", vbNormalFocus

'ELIMINA EL ARCHIVO TEMPORAL
Kill App.Path & "\TEMP.URL"
End Sub

Espero sirva de ayuda.
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