使用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('[email protected]'); 
    mailItem.subject := 'This is a subject'; 
    mailItem.body := '*... 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;