General information
Title:
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
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only