IF NOT VFP_SendMailMapi("This is the subject", "This is the message.","yourname@yourdomain.com", "C:\TEMP\TEXTFILE.TXT") MESSAGEBOX("An error occured!", 48) ELSE MESSAGEBOX("Operation succesfully completed.", 64) ENDIF FUNCTION VFP_SendMailMapi LPARAMETER tcSubject, tcText, tcRecipient, tcAttachment LOCAL loSession, loMessage, llAttachment, llSendAttachment, lcDataPath,lcOldError, llError WAIT WINDOW NOWAIT "Creating email. Please wait." lcOldError = ON("ERROR") llSendAttachment = .F. llAttachment = NOT EMPTY(tcAttachment) llError = .F. ON ERROR llError = .T. IF llAttachment llSendAttachment = FILE(tcAttachMent) IF NOT llSendAttachment MESSAGEBOX("Error: file &tcAttachment not found.", 64, _screen.caption) llError = .T. ENDIF ENDIF IF NOT llError IF NOT EMPTY(tcRecipient) loSession = CREATEOBJECT("msmapi.mapisession") loMessage = CREATEOBJECT("msmapi.mapimessages") loSession.logonui = .T. loSession.downloadmail = .F. loSession.username = '' loSession.password = '' loSession.signon loSession.NewSession = .F. loMessage.sessionid = loSession.sessionid loMessage.MsgIndex = -1 loMessage.Compose loMessage.RecipAddress = tcRecipient loMessage.ResolveName loMessage.msgsubject = IIF(NOT EMPTY(tcSubject), tcSubject, "") loMessage.msgnotetext = IIF(NOT EMPTY(tcText), tcText, "") IF llSendAttachment loMessage.attachmentindex = 0 loMessage.attachmentpathname = tcAttachment ENDIF loMessage.send loSession.signoff ELSE MESSAGEBOX("Error: no recipient!", 64, _screen.caption) llError = .T. ENDIF ENDIF WAIT CLEAR RETURN NOT llError ENDFUNC