>>>* 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. >>>