Hello! Could you help me?;) I need to send some information from OI by e-mail, and I'd like this letter to be in HTML format. How can I set this property for Microsoft Outlook, using MAPI functions in OI?

And how should I create the source code for this letter to make it in HTML format? Thank you beforehands…

SimpleMapi (as exposed by the standard routines in OI) will not support this. You can either use more sophisticated sending techniques (using more advanced versions of MAPI yourself) or wait for OI 7.1 when the mailing options are being revamped. Alternatively you could look at SRPCS's offering at http://www.srpcs.com/resources/cl_downloads.aspx.

[email protected]

The Sprezzatura Group Web Site

World Leaders in all things RevSoft

Leo,

You can send simple mail in plain text (MAPISendMail). But to send complex letters or html pages you would need to send them as attachments. I've got the simple text stuff working quite easily but never tried to use the attachments functionality.

You could always try the MAPISendDocuments stuff, that's quite simple to use.

Tim

Below is a section of code - demonstrating part of a commuter modeule attached to window. This checks for browse list, generates report which is then attached to email. This is all to be superceeded in OIv 7.1.

Email.Menu:

• Called from a Window - checks if browse list and prepares report

If Get_Property(Win,'QBFSTATUS') then

  List=Get_Property(Win,'QBFLIST')

end else

• Check if record modified, if so save and reload

  GoSub ForceWrite

  List=RecID

end

Copies    =1

Multi     =0

PrintStyle=4

Hide      =0

StartMode =0

ErrorMsg  ='

EQU OIPI_Exp_Null$     TO  0

EQU OIPI_Exp_RTF$      TO  1

EQU OIPI_Exp_HTML$     TO  2

EQU OIPI_Exp_PDF$      TO  6

• Establish defaults

FileType   =OIPI_Exp_PDF$

FileName   =0

FileLocnName= 'Ark':List

FileLocnName:= '.pdf'

FileLocn    =C:'

GoSub Print_Main ;* Print the report as pdf of htm etc to a file

$Insert Mapi_Equates

Declare Function Unassigned, Set_Status, Get_Status

Declare Function MapiSendMail, MapiLogon, MapiLogoff, Msg

equ CRLF$ to \0D0A\

equ CR$   to \0D\

equ LF$   to \0A\

equ TAB$  to \09\

Txt  =Below Find your ARK Item Information" 	: CRLF$

Txt  := ""						         	    : CRLF$

Email_Address='

Mess='

Mess=Enter Email address'

Mess=RE'

Mess=?'

Mess=Email Address'

Email_Address=Msg(Win,Mess,'')

if len(email_address) or email_address NE Char(27) else

x=msg('','There is no email address entered for Reader ':cust_no:'.|Please enter one and try this process again')

return 0

End

Flags=MAPI_LOGON_UI$ 

Message='

Message=Your ARK Item Request"

Message=email_address

Message=Txt

Message=Flags

Message=IPM.Microsoft Mail.Note"

Message=Field(FileLocn,'\',Count(FileLocn,'\')+1)

Message=FileLocn

Message= 1 

x=Set_Status(0)

check=MAPILogon(session_id, parent, '', '', flags)

if Get_Status(ErrCode) then

Call FsMsg()

end

if check then

FLAGS='

Flags=MAPI_LOGON_UI$ + MAPI_DIALOG$

if MAPISendMail(session_id, 0, Flags, Message) then

	x=Msg(@window, "Message sent successfully!":@fm:'TA2.5')

end else

	x=Get_Status(ErrMsg)

	x=Msg(@window, ErrMsg)

end

End else

x=Get_Status(ErrMsg)

x=Msg(@window, ErrMsg)

End

x=MapiLogoff(Session_id)

ret= 0

Return

As Cartman would say .. 'sweeeeet'

[email protected] onmouseover=window.status=the new revelation technology .. a refreshing change;return(true)"

DSig's Radio Free Oregon

David Tod Sigafoos ~ SigSolutions

View this thread on the forum...