>>>>* SendMail Routine >>>> >>>>WAIT WINDOW NOWAIT NOCLEAR "Please Wait... Sending Electronic Change Order Files" >>>> >>>>* Send mail using MSMAPI >>>>* Add instances of the MSMAPI.MAPISession and MSMAPI.MAPIMessages OLE controls to this form. >>>>ThisForm.NewObject("Session1","MAPISess","MAPIClas.vcx") >>>>ThisForm.NewObject("Message1","MAPIMsgs","MAPIClas.vcx") >>>> >>>>* Call the signon method of the MAPISession control. If the user is not >>>>* logged on to mail, this will prompt the user to logon. This also sets >>>>* the SessionID property for the MAPIsession control. >>>>ThisForm.Session1.SignOn >>>> >>>>* Set the SessionID of the MAPIMessage control >>>>* to the SessionID of the MAPISession control, which was just obtained. >>>>ThisForm.Message1.SessionID = ThisForm.Session1.SessionID >>>> >>>>* Start an e-mail message >>>>ThisForm.Message1.Compose >>>> >>>>* Set the Subject line and Message text >>>>ThisForm.Message1.MsgSubject = "Change Order " + Ord_Ma(2) >>>>ThisForm.Message1.MsgNoteText = "Electronic Change Order Text file for Order Number: " + Ord_Ma(2) >>>> >>>>* Increment the Recipient index >>>>ThisForm.Message1.RecipIndex = 0 >>>> >>>>* Keep track of how many times you loop thru. >>>>* Should loop thru 1 time for mWhoGets = "P" and >>>>* should loop thru an additional time for mWhoGets = "C" "E" or "W" >>>>STORE 0 TO mSendCounter >>>> >>>> SET FILTER TO Members.Flag = mWhoGets >>>> SCAN >>>> * Attach the proper .txt file >>>> IF mWhoGets = "P" >>>> ThisForm.Message1.AttachmentPathname = "ChOPrice.txt" >>>> ELSE >>>> ThisForm.Message1.AttachmentPathname = "ChgOrder.txt" >>>> ENDIF >>>> * Get figures for Calculating AttachmentPosition >>>> mMsgNoteTextLength = "Electronic Change Order Text file for Order Number: " + Ord_Ma(2) >>>> mMsgNoteTextLength = LEN(mMsgNoteTextLength) >>>> ThisForm.Message1.AttachmentPosition = (mMsgNoteTextLength - 1) && Count starts from position 0 >>>> * Set the Recipient Name >>>> ThisForm.Message1.RecipDisplayName = ALLTRIM(Name) >>>> * Resolve the Recipient Name >>>> ThisForm.Message1.ResolveName >>>> * Sends the e-mail message. >>>> ThisForm.Message1.Send >>>> ENDSCAN >>>> SET FILTER TO && Reset FILTER TO filter nothing. >>>> >>>>* Remove instances of the MSMAPI.MAPISession and MSMAPI.MAPIMessages OLE controls from this form. >>>>ThisForm.RemoveObject("Session1","MAPISess","MAPI.vcx") >>>>ThisForm.RemoveObject("Message1","MAPIMsgs","MAPI.vcx") >>>> >>>>* END of SendMail routine. >>>>