FoxPro/Visual FoxPro - enviar mail

   
Vista:

enviar mail

Publicado por jose pienda (2 intervenciones) el 18/01/2008 16:49:41
Hola estoy interesando en hacer una aplicacion que me envie correos automaticos desde una tabla que contenga los correos o sea tengo una tabla con varios correos automaticos y este me enviara de manera automatica a todos los correos de la tabla archivos que estan relacionados por medio del nombre de archivo a las diferentes personas

cada persona tiene un archivo diferente ejemplos estados de cuenta
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 mail

Publicado por Lean++ (10 intervenciones) el 18/01/2008 17:07:44
Usa este codigo:
Procedure Enviar_mail
*--------------------

parameters xEnviarA,asunto,texto,xArchivo
sesion = CREATEOBJECT("MSMAPI.MAPISESSION.1")
sesion.DownloadMail = .f.
sesion.LogonUI = .f.
sesion.SignOn
if sesion.SessionID = 0 && No pudo conectarse
Return
else
msg = CREATEOBJECT("MSMAPI.MAPIMESSAGES.1")
msg.SessionID = sesion.SessionID
msg.Compose()
sesion.signon()
With msg
.MsgIndex=-1
.RecipDisplayName = xEnviarA
.MsgSubject = Alltrim(Asunto)
.MsgNoteText = Alltrim(texto)
.SessionID= sesion.SessionID
If !Empty(xarchivo)
.AttachmentIndex = 0
.AttachmentPosition = 1
.AttachmentPathName = xArchivo
EndIf
.send()
Endwith
sesion.signoff()
Release sesion
Release msg
endif
endproc
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 mail

Publicado por jose pineda (2 intervenciones) el 18/01/2008 17:20:47
me sale un error

OLE IDispatch exception code 0 from mapi session: logon failure valid session id already exists

no se que pueda ser??
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