FoxPro/Visual FoxPro - Enviar archivo por mail

   
Vista:

Enviar archivo por mail

Publicado por Ivan H ivanfhc@hotmail.com (8 intervenciones) el 13/08/2014 04:45:30
Saludos Foxeros
Estoy tratando de enviar un archivo por mail, pero las funciones que hay me dan error por mas que le doy vueltas no funcionan, estoy usando vfp 9, con windows 7
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

Enviar archivo por mail

Publicado por Jaime Ramirez jaimearamirez@hotmail.com (1 intervención) el 15/08/2014 21:06:52
Te paso un codigo que manejo para el envio de archivos.

Se ejecuta asi> =mailsend('correo destino', 'asunto', 'texto del mail', 'ruta y nombre del archivo')
-------------------------------------------------------------------------------------------------------------------------
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
procedure mailsend(recipname,subject,msgnote,attachs)
	local lcschema, loconfig, lomsg, loerror, lcerror, lnfiles
 
	store 0 to lnfiles
	store '' to lcerror
	lcschema = 'http://schemas.microsoft.com/cdo/configuration/'
	try
		wait(' Enviando, Gmail ',1,48)
		loconfig = createobject('cdo.configuration')
		with loconfig.fields
			.item(lcSchema + "smtpserver") = "smtp.gmail.com"
			.item(lcSchema + "smtpserverport") = 465
			.item(lcSchema + "sendusing") = 2
			.item(lcSchema + "smtpauthenticate") = .T.
			.item(lcSchema + "smtpusessl") = .T.
			.item(lcSchema + "sendusername") = 'aqui tu correo gmail'
			.item(lcSchema + "sendpassword") = 'aqui tu contraseña'
			.update
		endwith
		if !empty(attachs)
			lnfiles = adir(lcfiles,attachs)
			attachs = substr(attachs,1,len(alltrim(attachs))-(len(justfname(attachs))))
		endif
		lomsg = createobject('cdo.message')
		with lomsg
			.configuration = loconfig
		    .from = 'aqui correo origen'
		    .to = recipname
		    .Subject = subject
		    .TextBody = msgnote
		    if lnfiles # 0
				for i = 1 to lnfiles
					.addattachment(attachs+lcfiles(i,1))
				next
			endif
			.send()
		endwith
	catch to loerror
		lcerror = [Error: ] + str(loerror.errorno) + chr(13)+ ;
		          [Linea: ] + str(loerror.lineno) + chr(13)+ ;
		          [Mensaje: ] + loerror.message
	finally
		release loconfig, lomsg, lcfiles
		store .null. to loconfig, lomsg
		if !empty(lcerror)
			wait(lcerror,3,16)
		endif
	endtry
 
return .t.
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