FoxPro/Visual FoxPro - Usar tabla como libreta de direcciones

 
Vista:

Usar tabla como libreta de direcciones

Publicado por Claudio gonzález Soto (11 intervenciones) el 06/10/2001 02:09:55
Hola amigos!
la pregunta es, si se puede utilizar una tabla, con los datos de los destinatarios, como libreta de direcciones, para enviar correo via outlook?.
si alguien sabe como hacerlo, me puede dar las indicaciones,

Gracias

Suerte a todos!
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

tabla y correo

Publicado por wences (457 intervenciones) el 13/10/2001 14:21:21
Este codigo es un ejemplo para enviar desde fox usando una tabla con los datos ...:

if !used('correo')
use correo in 59 shared
endif
select correo
set order to nombre
set filter to correo.selecto=.T. and alltrim(correo.destino)!=""
go top
do while !eof('correo')
scatter memvar
IF primera='Si'
this.parent.OleMSess.signon
this.parent.OleMMess.sessionid=this.parent.OleMSess.sessionid
this.parent.OleMMess.msgindex=-1
this.parent.OleMMess.compose
set default to alltrim(defecto.discotra)+'\'+alltrim(defecto.directra)
primera='No'
endif
this.parent.OleMMess.Recipdisplayname=alltrim(correo.destino)
this.parent.OleMMess.recipaddress=alltrim(correo.destino)
if !empty(alltrim(correo.texto))
this.parent.OleMMess.msgnotetext=alltrim(correo.texto)
else
this.parent.OleMMess.msgnotetext=""
endif
if !empty(alltrim(correo.comentario))
this.parent.OleMMess.msgsubject=alltrim(correo.comentario)
else
this.parent.OleMMess.msgsubject=""
endif
if !empty(alltrim(correo.fichero))
m.fichero=alltrim(correo.fichero)
this.parent.OleMMess.attachmentindex=0
this.parent.OleMMess.attachmentposition=0
this.parent.OleMMess.attachmentpathname=m.fichero
this.parent.OleMMess.attachmentname=""
this.parent.OleMMess.attachmenttype=0
endif
this.parent.OleMMess.send(0)
select correo
skip 1
loop
enddo
if primera='No'
this.parent.OleMSess.signoff
primera='Si'
endif

y salimos ...

lee otras
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