Here is a sample to get you started. Be sure to add both the mapisession and mapimessages control to your form. Name the mapisession control MapiSession and the mapimessages control MapiMessages respectively.

Good luck!!



DEFINE CLASS form1 AS form


Top = 0
Left = 0
Height = 91
Width = 205
DoCreate = .T.
Caption = "Form1"
Name = "Form1"


ADD OBJECT mapisession AS olecontrol WITH ;
Top = 0, ;
Left = 0, ;
Height = 100, ;
Width = 100, ;
Name = "MapiSession"


ADD OBJECT mapimessages AS olecontrol WITH ;
Top = 0, ;
Left = 36, ;
Height = 100, ;
Width = 100, ;
Name = "MapiMessages"


ADD OBJECT command1 AS commandbutton WITH ;
Top = 48, ;
Left = 60, ;
Height = 27, ;
Width = 84, ;
Caption = "Test", ;
Name = "Command1"


PROCEDURE command1.Click
ThisForm.MapiSession.SignOn
With This.Parent.MAPIMessages
.MsgIndex=-1
.RecipDisplayName="John Doe"
.MsgSubject="Test Message"
.MsgNoteText="This is cool!!"
.SessionID=This.parent.MapiSession.sessionid
.Send
Endwith
ENDPROC


ENDDEFINE