WITH THISFORM.Cusmapi1 mNumberOfMail = .ReadMail() IF mNumberOfMail > 0 FOR mMailCnt = 1 TO mNumberOfMail * Select current message .Getmessage(mMailCnt) mSender = 'Sender : ' + .GetSender() mSubject = 'Subject : ' + .GetSubject() mBody = .GetBodyText() mCount = .GetAttachmentCount() IF mCount > 0 FOR mAttachFileCnt = 1 TO mCount mAttachFile = .GetAttachmentFile(mAttachFileCnt) MESSAGEBOX(mAttachFile) &&Show Only 1st Email's Attachment ENDFOR ENDIF ENDFOR ENDIF ENDWITH>I m using NBC MAIP Mail Class to read attachment.
>mNumberOfMail =THISFORM.Cusmapi1.ReadMail() >IF mNumberOfMail > 0 > FOR mMailCnt = 1 TO mNumberOfMail > > mSender = 'Sender : '+THISFORM.CusMapi1.GetSender(mMailCnt) > mSubject = 'Subject : '+THISFORM.CusMapi1.GetSubject(mMailCnt) > mBody = THISFORM.CusMapi1.GetBodyText(mMailCnt) > mCount = THISFORM.CusMapi1.GetAttachmentCount(mMailCnt) > IF mCount > 0 > FOR mAttachFileCnt = 1 TO mCount > mAttachFile = THISFORM.CusMapi1.GetAttachmentFile(mAttachFileCnt) > MESSAGEBOX(mAttachFile) &&Show Only 1st Email's Attachment > ENDFOR > ENDIF > ENDFOR >ENDIF