Email from developer

Question

Hi All
i'm using forms6 and want to send email to any address ,for exaample [email protected] with an attachment for example test.txt.
plz do help me regarding this, i will be very thankful to u. i need code
best regards!
softdesire

Answer 1

Here is what we use. Sorry, it's quite messy, but it's only a prototype and we plan to "clean" it only in a few weeks.
I left the comments so you can see what else you can use if you want to.
Hope it helps...
-------- beginning of the code --------
PROCEDURE P_SEND_MAIL (par_to IN VARCHAR2 := NULL,
par_cc IN VARCHAR2 := NULL,
par_bcc IN VARCHAR2 := NULL,
par_sujet IN VARCHAR2 := NULL,
par_texte IN VARCHAR2 := NULL,
par_attach1 IN VARCHAR2 := NULL,
par_attach2 IN VARCHAR2 := NULL,
par_attach3 IN VARCHAR2 := NULL) IS
     t_prn          varchar2(20);
/*declaration of the Outlook Object Variables*/
application ole2.OBJ_TYPE;
hMailItem ole2.OBJ_TYPE;
hRecipients ole2.OBJ_TYPE;
recipient ole2.OBJ_TYPE;
/*declaration of the argument list*/
args OLE2.LIST_TYPE;
msg_attch OLE2.OBJ_TYPE;
attachment OLE2.OBJ_TYPE;
des VARCHAR2(80) := 'blo';
attch VARCHAR2(80) := 'C:\sqlnet.log';
Visible OLE2.OBJ_TYPE;
BEGIN
/*create the Application Instance*/
     application:=ole2.create_obj('Outlook.Application');
     args:=ole2.create_arglist;
     ole2.add_arg(args,0);
     hMailItem:=ole2.invoke_obj(application,'CreateItem',args);
     ole2.destroy_arglist(args);
     msg_attch := OLE2.GET_OBJ_PROPERTY(hMailItem,'Attachments');
--     Visible := OLE2.INVOKE_OBJ(hMailItem,'Display');
     -- Attach the 1st file
     IF (par_attach1 IS NOT NULL) THEN
          attch := par_attach1;
          args := OLE2.CREATE_ARGLIST;
          OLE2.ADD_ARG(args, attch);
          attachment := OLE2.INVOKE_OBJ(msg_attch,'Add',args);
          ole2.destroy_arglist(args);
          OLE2.SET_PROPERTY(attachment,'name',des);
--          OLE2.SET_PROPERTY(attachment,'position',1);
--          OLE2.SET_PROPERTY(attachment,'type',1);
          OLE2.SET_PROPERTY(attachment,'source', attch);
--          args := OLE2.CREATE_ARGLIST;
--          OLE2.ADD_ARG(args, attch);
--          OLE2.INVOKE(attachment,'ReadFromFile',args);
--          OLE2.DESTROY_ARGLIST(args);
     END IF;
     -- Attach the 2nd file
     IF (par_attach2 IS NOT NULL) THEN
          attch := par_attach2;
          args := OLE2.CREATE_ARGLIST;
          OLE2.ADD_ARG(args, attch);
          attachment := OLE2.INVOKE_OBJ(msg_attch,'Add',args);
          ole2.destroy_arglist(args);
          OLE2.SET_PROPERTY(attachment,'name',des);
--          OLE2.SET_PROPERTY(attachment,'position',1);
--          OLE2.SET_PROPERTY(attachment,'type',1);
          OLE2.SET_PROPERTY(attachment,'source', attch);
--          args := OLE2.CREATE_ARGLIST;
--          OLE2.ADD_ARG(args, attch);
--          OLE2.INVOKE(attachment,'ReadFromFile',args);
--          OLE2.DESTROY_ARGLIST(args);
     END IF;
     -- Attach the 3rd file
     IF (par_attach3 IS NOT NULL) THEN
          attch := par_attach3;
          args := OLE2.CREATE_ARGLIST;
          OLE2.ADD_ARG(args, attch);
          attachment := OLE2.INVOKE_OBJ(msg_attch,'Add',args);
          ole2.destroy_arglist(args);
          OLE2.SET_PROPERTY(attachment,'name',des);
--          OLE2.SET_PROPERTY(attachment,'position',1);
--          OLE2.SET_PROPERTY(attachment,'type',1);
          OLE2.SET_PROPERTY(attachment,'source', attch);
--          args := OLE2.CREATE_ARGLIST;
--          OLE2.ADD_ARG(args, attch);
--          OLE2.INVOKE(attachment,'ReadFromFile',args);
--          OLE2.DESTROY_ARGLIST(args);
     END IF;
/*Get the Recipients property of the MailItem object:
Returns a Recipients collection that represents all the Recipients for the Outlook item*/
args:=ole2.create_arglist;
hRecipients:=ole2.get_obj_property(hMailItem,'Recipients',args);
ole2.destroy_arglist(args);
     IF (par_bcc IS NOT NULL) THEN
     /*Use the Add method to create a recipients Instance and add it to the Recipients collection*/
          args:=ole2.create_arglist;
          ole2.add_arg(args, par_bcc);
          recipient:=ole2.invoke_obj(hRecipients,'Add',args);
     /* put the property Type of the recipient Instance to value needed (0=Originator,1=To,2=CC,3=BCC)*/
          ole2.set_property(recipient,'Type',3);
          ole2.destroy_arglist(args);
     END IF;
     IF (par_cc IS NOT NULL) THEN
     /*Use the Add method to create a cc Instance and add it to the Recipients collection*/
          args:=ole2.create_arglist;
          ole2.add_arg(args, par_cc);
          recipient:=ole2.invoke_obj(hRecipients,'Add',args);
     /* put the property Type of the cc Instance to value needed (0=Originator,1=To,2=CC,3=BCC)*/
          ole2.set_property(recipient,'Type',2);
          ole2.destroy_arglist(args);
     END IF;
/*Use the Add method to create a bcc Instance and add it to the Recipients collection*/
     args:=ole2.create_arglist;
     ole2.add_arg(args, par_to);
     recipient:=ole2.invoke_obj(hRecipients,'Add',args);
/* put the property Type of the bcc Instance to value needed (0=Originator,1=To,2=CC,3=BCC)*/
     ole2.set_property(recipient,'Type',1);
     ole2.destroy_arglist(args);
/*Resolve the Recipients collection*/
     args:=ole2.create_arglist;
     ole2.invoke(hRecipients,'ResolveAll',args);
     ole2.destroy_arglist(args);
/*set the Subject and Body properties*/
--     ole2.set_property(hMailItem,'Subject','More information');
     ole2.set_property(hMailItem,'Subject', par_sujet);
--     ole2.set_property(hMailItem,'Body', par_texte);
     ole2.set_property(hMailItem,'Body', par_texte||chr(13)||chr(13));
/*Save the mail
     ole2.invoke(hMailItem,'Save',args);
     ole2.destroy_arglist(args); */
/*Send the mail*/
     ole2.invoke(hMailItem,'Send');
/*Release all your Instances*/
     release_obj(application);
     release_obj(hRecipients);
     release_obj(recipient);
     release_obj(hMailItem);
     P_NOD_AFF_MSG(NULL, 'Message sent.', t_prn);
EXCEPTION
          WHEN OTHERS THEN P_NOD_AFF_MSG(3, 'Message not sent.', t_prn);
END;
-------- end of the code --------