[b]How to Send Email Through Developer using Micrsoft Outlook[/b]

Question

Here is the Code to Send Email From Developer 2000 using Microsoft Outlook(Note :- Outlook should be configured)
Steps:-
1. First Add the Wrapper Procedures for Outlook Express from the OLE Importer Utility such as
· OUTLOOK_ATTACHMENT
· OUTLOOK_MAILITEM
PROCEDURE SENDEMAIL(to_Person varchar2,subject varchar2,body varchar2) IS
EmailApp ole2.obj_type;
EmailItem Ole2.Obj _Type;
EmailAttachment Ole2.Obj_Type;
EmailAttach ole2. obj_Type;
aa number(5):=1;
begin
EmailApp:=ole2.create_obj('outlook.application');
EmailItem:=ole2. create_obj('outlook.mail item');
EmailAttachment:=ole2.create_obj('outlook.Attachment');
EmailItem:=Outlook_Application.create Item(Email App,Outlook_Constants.olmailitem);
EmailAttach:=Outlook_Mail Item.Attachment(Email Item);
Add attachment From Block
Go_block('BLK_ATTACHMENT');
FIRST_RECORD;
LOOP
Email Attachment:=OutLook_Attachment.ole_Add(EmailAttach,;BLK_ATTACHMENTS.attach,1,AA,ISPNAME);
AA:=AA+1;EXIT WHEN:SYSTEM.LAST_RECORD='TRUE';
NEXT_RECORD;
END LOOP;
Outlook_mailitem.OLE_to(EmailItem,TO_PERSON);
Outlook_mailitem.subject(emailitem,SUBJECT);
Outlook_mailitem.Ole_body(emailitem,MAIL.BODY);
Outlook_mailitem.send(emailItem);
End;

Answer 1

Here is the Code to Send Email From Developer 2000 using Microsoft Outlook(Note :- Outlook should be configured)
Steps:-
1. First Add the Wrapper Procedures for Outlook Express from the OLE Importer Utility such as
· OUTLOOK_ATTACHMENT
· OUTLOOK_MAILITEM
PROCEDURE SENDEMAIL(to_Person varchar2,subject varchar2,body varchar2) IS
EmailApp ole2.obj_type;
EmailItem Ole2.Obj _Type;
EmailAttachment Ole2.Obj_Type;
EmailAttach ole2. obj_Type;
aa number(5):=1;
begin
EmailApp:=ole2.create_obj('outlook.application');
EmailItem:=ole2. create_obj('outlook.mail item');
EmailAttachment:=ole2.create_obj('outlook.Attachment');
EmailItem:=Outlook_Application.create Item(Email App,Outlook_Constants.olmailitem);
EmailAttach:=Outlook_Mail Item.Attachment(Email Item);
Add attachment From Block
Go_block('BLK_ATTACHMENT');
FIRST_RECORD;
LOOP
Email Attachment:=OutLook_Attachment.ole_Add(EmailAttach,;BLK_ATTACHMENTS.attach,1,AA,ISPNAME);
AA:=AA+1;EXIT WHEN:SYSTEM.LAST_RECORD='TRUE';
NEXT_RECORD;
END LOOP;
Outlook_mailitem.OLE_to(EmailItem,TO_PERSON);
Outlook_mailitem.subject(emailitem,SUBJECT);
Outlook_mailitem.Ole_body(emailitem,MAIL.BODY);
Outlook_mailitem.send(emailItem);
End;