Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » FoxPro/Visual FoxPro » Abrir OUTLOOK con direccion y arch. adjunto listo para mandar

FoxPro/Visual FoxPro - Abrir OUTLOOK con direccion y arch. adjunto listo para mandar

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil
Val: 11
Ha aumentado su posición en 8 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Abrir OUTLOOK con direccion y arch. adjunto listo para mandar

Publicado por devilsito (12 intervenciones) el 10/12/2018 17:50:56
Hola:
Mi petición de ayuda es la siguiente
A partir de una aplicación VFP poder abrir OUTLOOK con un archivo adjunto, dirección email de destino y el asunto, de tal manera que solo reste por parte del usuario escribir el texto en el cuerpo del correo y presionar el boton ENVIAR.

Desde ya agradezco la ayuda que pudieran brindarme,

Atte-

DEVILSITO
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
sin imagen de perfil
Val: 20
Ha aumentado su posición en 2 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Abrir OUTLOOK con direccion y arch. adjunto listo para mandar

Publicado por Marcelo (L) (186 intervenciones) el 27/12/2018 01:41:27
Hola proba con CDO que te permite enviar desde la aplicación tuya.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
try
loCfg = CREATEOBJECT("CDO.Configuration")
WITH loCfg.Fields
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = xservidor
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = xpuerto
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = xusuario
  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = xclave
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = xautenticar
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = xusarssl
  .Update
ENDWITH
 
loMsg = CREATEOBJECT ("CDO.Message")
WITH loMsg
*   messagebox('configuro mail')

  .Configuration = loCfg
  .From = xdesdemail
  .To = xdestino
  if !empty(xccdestino)
	  .cc = xccdestino
  endif
  .Subject = xasunto
  .TextBody = xtexto
  *-- Formato HTML desde un disco
  *.CreateMHTMLBody("file://D:\piedemail.htm", 0)
  *-- Archivo adjunto
  if !empty(xadjunto)
	  .AddAttachment(xadjunto)
  endif
  if !empty(xadjunto2)
	  .AddAttachment(xadjunto2)
  endif
  if !empty(xadjunto3)
	  .AddAttachment(xadjunto3)
  endif
  if !empty(xadjunto4)
	  .AddAttachment(xadjunto4)
  endif
  .Send()
endwith
catch to loerror
if loError.ERRORNO=1429
	SET PRINTER TO MAILERROR.TXT
	set console off
	set print on
	?'Error....: '+Transform(loError.ErrorNo)

	?'Mensaje..: '+loError.Message

	set print off
	set console on
	SET PRINTER TO
 	entregado=1
endif
finally
endtry
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