Outlook 및 Delphi를 사용하여 특정 계정에서 전자 메일 보내기

Question

Outlook 자동화를 사용하여 Delphi에서 전자 메일을 보낼 때 특정 보낸 사람 주소를 사용할 수 있어야합니다. 지금 코드를 실행하고 있지만 Outlook의 기본 계정을 사용하며 다른 계정을 지정할 수 있어야합니다. 어떻게이 작업을 수행 할 수 있습니까?

저는 VBA에서이 작업을 수행 했으므로 Delphi에서도 가능해야합니다.

Answer 1

귀하의 문제는 계정 컬렉션을 열거/인덱싱하는 것과 관련이 있습니다.이 문제는 VBA에서 익숙한 델파이보다 약간 덜 편리합니다.

아래 예제 코드를 게시 해 드리겠습니다. 간결함과 붙여 넣기를 위해 OleVariants를 사용하고 olMailItem을 로컬로 선언했습니다. 프로덕션 코드에서는 초기 바인딩을 사용해야합니다.

또한이 같은 자동화를 수행 할 때 Outlook에서 발생하는 모든 보안 경고를 처리하는 것이 좋습니다.

const 
    olMailItem = 0; 

var 
    application: OleVariant; 
    mailItem: OleVariant; 

begin 
    application := getActiveOleObject('Outlook.Application'); 

    mailItem := application.createItem(olMailItem); 

    mailItem.recipients.add('someone@somewhere.com'); 
    mailItem.subject := 'This is a subject'; 
    mailItem.body := 'StackOverflow... the best time to hang out at christmas.'; 

    // This line allows you to pick any account by name 
    mailItem.sendUsingAccount := application.session.accounts.item('some account'); 

    mailItem.send; 
end;