FoxPro/Visual FoxPro - Enviar un correo mediante el outlook

 
Vista:

Enviar un correo mediante el outlook

Publicado por Rudolf-Johann Heiner (8 intervenciones) el 31/12/2008 02:33:46
Amigos, tengo un campo donde almaceno la direccion de correo de un cliente o proveedor, lo que necesito es que al lado derecho tengo un boton de comando llamado enviar mail, cuando pulse aqui enviar mail debe de ejecutarse el outlook con el nombre de correo del cliente o proveedor, por favor ayudenme, se los agradeceria mucho, y que sea en visual foxpro v.9.0 gracias mil gracias, saludos desde alemania, rudy.
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 un correo mediante el outlook

Publicado por Edgar dvd (135 intervenciones) el 31/12/2008 17:40:10
hay una forma mucho mas facil con fox de lograr esto
primero bajate esto
http://www.sendspace.com/file/jzblhg
es un pequeño programita que debesinstalar y te ayuda a enviar un correo de una forma muy facil y sin configurar el outlokk ni nada de eso, nada mas con unas cuantas lineas de codigo
debes hacer lo siguiente
cuando presiones el boton 'Enviar Mail' en vez de llamar el outlook, llama un pequeñito form donde tengas el correo, el asunto, y el mensaje y el boton enviar claro

en el clik del boton enviar debe ir un codigo algo asi:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
LOCAL oEmail
oEmail = CREATEOBJECT('JMail.Message')
oEmail.Logging = .T.
oEmail.Silent = .T.
oEmail.From = 'EmailOrigen@Dominio.com' &&Correo de donde envias el mail
oEmail.FromName = ALLTRIM(ThisForm.TxtNombre.Value) &&Nombre quien envia
oEmail.AddRecipient('EmailDestino@Dominio.com','NombreDestino')
oEmail.Subject = 'Tu Asunto'
oEmail.Body = ThisForm.TxtMensaje.Value
LOCAL lOk
lOk = oEmail.SEND('SevidorSalida.Dominio.com") &&Este es el que tu configuras en outlook como servidor de salida
IF lOk
	MESSAGEBOX('Email Ha Sido Enviado',0+64,'Aviso')
ELSE
	MESSAGEBOX('Fallo Al Enviar Correo: '+eMail.Log,16,'Error')
ENDIF

con solo esto logras tu obejtivo muy facil
un saludo y confirmas si pudiste
feliz año
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

RE:Enviar un correo mediante el outlook

Publicado por ronald Vilca (3 intervenciones) el 27/01/2014 16:29:38
hola buenas disculpa crees que puedeas enviarme el archivo a mi correo por que ya no esta en el servidor te lo agradecere mucho....
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 un correo mediante el outlook

Publicado por Gustavo (2 intervenciones) el 12/12/2019 15:00:55
Me podras mandar el archivo por correo ya que no esta disponible para descargar. Desde ya muchas gracias.
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