Sending Email with attached files [message #460813] |
Tue, 15 June 2010 00:34 |
20210005
Messages: 24 Registered: November 2007 Location: Dubai
|
Junior Member |
|
|
I am using the following code on a button and once I pressed the button the form disconnected.
Declare
Outlook_Object client_OLE2.OBJ_TYPE;
Mail_Object client_OLE2.OBJ_TYPE;
Item1 client_OLE2.OBJ_TYPE;
Item2 client_OLE2.OBJ_TYPE;
OLEPARAM client_OLE2.list_type;
var_Send client_OLE2.OBJ_TYPE;
var_Attach1 client_OLE2.OBJ_TYPE;
var_Attach2 client_OLE2.OBJ_TYPE;
BEGIN
Outlook_Object := client_OLE2.CREATE_OBJ('Outlook.Application');
OLEPARAM := client_OLE2.CREATE_ARGLIST;
client_OLE2.ADD_ARG(OLEPARAM,'MAPI');
Mail_Object := client_OLE2.INVOKE_OBJ(Outlook_Object,'GetNameSpace',OLEPARAM);
client_OLE2.DESTROY_ARGLIST( OLEPARAM );
--newMail
OLEPARAM := client_OLE2.CREATE_ARGLIST;
client_OLE2.ADD_ARG(OLEPARAM,0);
Item1 := client_OLE2.INVOKE_OBJ(Outlook_Object,'CreateItem',OLEPARAM);
client_OLE2.DESTROY_ARGLIST( OLEPARAM );
client_OLE2.set_property(Item1,'To',:To);
client_OLE2.set_property(Item1,'Subject',:Subject);
client_OLE2.set_property(Item1,'Body',:Body);
var_Attach1 := client_OLE2.GET_OBJ_PROPERTY(Item1,'Attachments');
OLEPARAM := client_OLE2.CREATE_ARGLIST;
client_OLE2.ADD_ARG(OLEPARAM,'c:\111.PDF');
var_Attach2 := client_OLE2.INVOKE_OBJ(var_Attach1,'add',OLEPARAM);
client_OLE2.DESTROY_ARGLIST( OLEPARAM );
var_Send := client_OLE2.INVOKE_OBJ(Item1,'Send');
client_OLE2.RELEASE_OBJ( Item1);
client_OLE2.RELEASE_OBJ( Mail_Object );
client_OLE2.RELEASE_OBJ( Outlook_Object );
SET_APPLICATION_PROPERTY(CURSOR_STYLE,'DEFAULT');
Message('Mail sent seccessfully.........');
Message('Mail sent seccessfully.........');
END;
|
|
|
|
|