Inviare una mail in modo interattivo tramite Outlook

Moderator: Enrico Maria Giordano

Inviare una mail in modo interattivo tramite Outlook

Postby Marco Turco » Mon Feb 20, 2006 12:17 pm

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
User avatar
Marco Turco
 
Posts: 858
Joined: Fri Oct 07, 2005 12:00 pm
Location: London

Return to All products support

Who is online

Users browsing this forum: No registered users and 3 guests