General information
Category:
Forms & Form designer
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
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only