default email client

[jmharris]

I have a character field in my V8 database for storing email address'. I would like for the default email client to be launched when a GUI client (95/98)user clicks on the email address. How can this be accomplished?

 

[Chris Kelleher]

You can use the following code to call MAPI to send an email message:

<BLOCKQUOTE><font size="1" face="Arial, Verdana">code:</font><HR><pre>
PROCEDURE SendEmail :
/*------------------------------------------------------------------------------
Purpose:
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/
DEFINE INPUT PARAMETER ipMessageSendTo AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER ipMessageSubject AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER ipMessageText AS CHARACTER NO-UNDO.

DEFINE VARIABLE iCounter AS INTEGER NO-UNDO.

define variable chSession as com-handle no-undo.
define variable chMessage as com-handle no-undo.
define variable chRecipient as com-handle no-undo.

/***
define variable chAttach as com-handle no-undo.
***/

create "MAPI.session" chSession.

chSession:logon( getRegistryValue("HKEY_CURRENT_USER",
"Software\Microsoft\Windows Messaging Subsystem",
"Profiles",
"DefaultProfile")
).

chMessage = chSessionutbox:messages:add.

chMessage:Type = "IPM.Note".
chMessage:Subject = ipMessageSubject.
chMessage:Text = ipMessageText + CHR(10).

/***
chAttach = chMessage:Attachments:Add.
chAttach:Name = "config.sys".
chAttach:ReadFromFile("c:\config.sys").
chAttach:Type = 1.
/*********************************
AttachmentType
1 ByValue
4 ByReference
5 EmbeddedItem
6 OLE
***********************************/
release object chAttach.
***/

REPEAT iCounter = 1 TO NUM-ENTRIES(ipMessageSendTo):
chRecipient = chMessage:Recipients:Add.
chRecipient:name = TRIM( ENTRY (iCounter,ipMessageSendTo) ).
chRecipient:Type = 1.
chRecipient:resolve.
END.

chMessage:Update.
chMessage:send(Yes, No, 0).

release object chRecipient.
release object chMessage.
release object chSession.

END PROCEDURE.
[/code]

HTH.

-Chris

------------------
Chris Schreiber
ProgressTalk.com Manager
chris@fast4gl.com