Outlook 메일 보내고, 일정 추가하기.

outlook에 메일을 보내고
Outlook에 일정관리에 데이타를 추가하는 부분입니다.

누가 물어와서리 하드가 몽땅 날라가서 내용이 없었는데. 주워왔습니다.

1. 메일 보내기…

var
  pCh: PChar;
begin
  pCh := 'mailto:메일주소?subject=제목&body=your_body&file="c:\autoexec.bat"';
  ShellExecute(0, 'open', pCh, nil, nil, SW_SHOWNORMAL);
end;

 

2. 메일 보내기 방법 2  ( 게을러서 안해봤습니다. )

const
olMailItem = 0;
olByValue = 1;

var
  OutlookApp, MailItem, MyAttachments: OLEVariant;
begin
  try
    OutlookApp := GetActiveOleObject('Outlook.Application');
  except
    OutlookApp := CreateOleObject('Outlook.Application');
  end;
  try
    MailItem := OutlookApp.CreateItem(olMailItem);
    MailItem.Recipients.Add( 내메일 );
    MailItem.Subject := '제목';
    MailItem.Body := '내용';
    myAttachments := MailItem.Attachments;
    myAttachments.Add('첨부화일', olByValue, 1, '첨부명');
    MailItem.Send;
  finally
    myAttachments := VarNull;
    OutlookApp := VarNull;
  end;

 

3. 일정 추가하기.

var
  tempApp:AppointmentItem;
   NmSpace: NameSpace;
   Outlook: TOutlookApplication;
begin
      Outlook := TOutlookApplication.Create(Application);
      Outlook.Connect;
      NmSpace := Outlook.GetNamespace('MAPI');
      NmSpace.Logon('', '', False, False);
      tempApp:=Outlook.CreateItem(olAppointmentItem) as AppointmentItem;
     tempApp.Subject:= 제목;
     tempApp.Start := 일정 날짜 + 시간;
     tempApp.Duration:= 예정 시간;
     tempApp.Body := 내용;
     tempapp.ReminderSet := FALSE;
     tempApp.Save;

     NmSpace.Logoff;
     Outlook.Disconnect;

 

 

Author: yyjksw