Information générale
Titre:
Problem with Mapimail.vcx
I'm trying to develop am app to get the attached file from an
e-mail from Outlook Express sended by someone using the
Mapimail class createt by Nigel Coates.
Has someone an ideia how or why GETATTACHMENTCOUNT() returns allways 0
is there a workaround to handle this problem ?
could someone help me please!
TIA
I have written this little sample code for test:
SET CLASSLIB TO mapimail ADDITIVE
enviado_por = "Alexandre Martins Dantas" && send by
data_ini = {^2001/01/01} && start Date
data_fim = DATE() && end Date
loMail = CREATEOBJECT("cusMAPI") && Load class for e-mail
lnMail = loMail.ReadMail("","",.F.,enviado_por,"",data_ini, data_fim,.T.)
IF lnMail > 0 && If exist e-mail send by this person
nMensagem = loMail.GetFirstMessage()&& get the first message from this person
* Problem starts next line because allways it returns 0 from GETATTACHMENTCOUNT
* even if I see in Outlook Express attached files in the mail.
nArqAtachado = loMail.GetAttachmentCount(nMensagem) && verify if a file there
IF nArqAtachado <> 0 && If exist a file attached
FOR N = 1 TO nArqAtachado && get the file
z = loMail.GetAttachmentFile(N)
IF UPPER(JUSTEXT(z)) = "XLS" && If the attached file is an excel file
COPY FILE z TO C:\_teste_vfp\e_mail\acoes.XLS && copy file to dir.
*=copy_to_dbf("acoes.xls") && copy information to Table and delete xls file
ENDIF
ENDFOR
lnMailx = lnMail + 1
DO WHILE lnMailx <= lnMail
= loMail.GetNextMessage()
nArqAtachado = loMail.GetAttachmentCount(nMensagem) && verify in an file
IF nArqAtachado <> 0
FOR N = 1 TO nArqAtachado && get the file
z = loMail.GetAttachmentFile(N)
IF UPPER(JUSTEXT(z)) = "XLS"
COPY FILE z TO C:\_teste_vfp\e_mail\acoes.XLS && copy file to dir.
*=copy_to_dbf("acoes.xls") && copy information to Table and delete xls file
ENDIF
ENDFOR
ENDIF
lnMailx = lnMailx + 1
ENDDO
ENDIF
ENDIF
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement