Inviare una mail in modo interattivo tramite Outlook

[Marco Turco]

Salve,
attualmente utilizzo la seguente routine per inviare una mail tramite Outlook. Vorrei però che sia possibile fare apparire la dialog di invio mail di Outlook per consentire all'utente eventuali variazioni nel testo della mail.

Qualche idea sul metodo da richiamare per rendere l'invio interattivo ?
Ho provato con Send(.f.) ma ottengo un messaggio di errore.

Inoltre, esiste un sistema per capire se Outlook è installato ? Nel caso non lo sia infatti vorrei inviare la mail utilizzando MAPI in quanto Outlook Express per esempio non supporta i comandi OLE.

Grazie in anticipo.

Saluti

Marco Turco


FUNCTION SendMail()

LOCAL oOutLook,oMailItem,oRecip,oAttach

oOutLook := CreateObject( "Outlook.Application" )

oMailItem := oOutLook:CreateItem( 0 )

oRecip := oMailItem:Recipients
oRecip:Add( "noc@softwarexp.co.uk" )

oMailItem:Subject := "Testing fw"

oMailItem:Body := "FW Body!" + CRLF + CRLF

oAttach := oMailItem:Attachments
oAttach:Add( "c:\sendmail.txt" )

oMailItem:Send()

RETURN NIL