*-- Yours at the moment This.oleMMess.attachmentindex = 0 This.oleMMess.attachmentName = lcFileName This.oleMMess.attachmentPathName = lcFilePath This.oleMMess.attachmentType = 0 *-- Try this This.oleMMess.attachmentindex = This.oleMMess.attachmentCount && or try 1 *-------- *-- I think the position is what is causing the problem for you. *-- you need it set in Outlook 2000. This is how I set it. lnAttachPos = (LEN(cbodytext)-ALEN(THIS.aattachmentfiles,1))-1 && aAttachmentFiles[1] is lcFilePath, This.oleMMess.attachmentPosition = lnAttachPos *-------- This.oleMMess.attachmentName = lcFileName This.oleMMess.attachmentPathName = lcFilePath