outlook에 메일을 보내고
Outlook에 일정관리에 데이타를 추가하는 부분입니다.
누가 물어와서리 하드가 몽땅 날라가서 내용이 없었는데. 주워왔습니다.
1. 메일 보내기…
|
1 2 3 4 5 6 |
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 ( 게을러서 안해봤습니다. )
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
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. 일정 추가하기.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
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; |
최신 댓글