TRY loMapiSession = CREATEOBJECT('MSMAPI.MapiSession') IF VARTYPE(loMapiSession)='O' WITH loMapiSession .UserName="" .Password="" .SigNon() IF (.SessionID>0) loMapiMessage=CREATEOBJECT('MSMAPI.MapiMessages') IF VARTYPE(loMapiMessage)='O' loMapiMessage.SessionID=.SessionId WITH loMapiMessage .Compose() .MsgSubject=tcSubject .MsgNoteText=tcBody lnAttachCnt=0 FOR i = 1 TO GETWORDCOUNT(tcAttachments,';') lcFileName=GETWORDNUM(tcAttachments,i,';') IF !EMPTY(lcFileName) AND FILE(lcFileName) .AttachmentIndex=lnAttachCnt .AttachmentPosition=lnAttachCnt .AttachmentName=JUSTFNAME(lcFileName) .AttachmentPathName=FULLPATH(lcFileName) .AttachmentType=0 lnAttachCnt=lnAttachCnt+1 ENDIF ENDFOR .Send(.T.) ENDWITH ENDIF ENDIF ENDWITH ENDIF CATCH TO loErr IF ![user cancelled]$LOWER(loErr.message) =MESSAGEBOX(loErr.Message,16,'Error Sending MAPI Mail') ENDIF FINALLY CD (lcCurDir) ENDTRY