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

yyjksw

15년 ago

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;

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;

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;

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;

이 글 공유하기: