使用Outlook和Delphi從特定帳戶發送電子郵件

Question

當我使用Outlook自動發送來自Delphi的電子郵件時，我需要能夠使用特定的發件人地址。 我有現在運行的代碼，但它使用Outlook中的默認帳戶，我需要能夠指定另一個。 這怎麼辦？

我已經在VBA中完成了它，所以它在Delphi中也應該是可行的。

Answer 1

你的問題很可能是枚舉/索引帳戶集合，這從Delphi中稍稍不方便，那麼你在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;