Question

我正在使用Outlook2013，它有来自交换服务器和pop服务器的多个邮箱。（Rob@mydomain.com [默认交换]，rob @ somethingdifferent.com [POP]，support@mydomain.com [交换]）< / p>

我正在尝试使用Outlook自动化使用support@mydomain.com帐户发送电子邮件。

我遇到的问题是以下代码在支持发件箱中创建了一个邮件项目，但是from字段是rob@mydomain.com而不是support@mydomain.com。这会阻止它被发送。

我想将发件人地址更改为support@mydomain.com。我认为通过设置Sendusingaccount属性就可以了。

非常感谢任何帮助。

    public static string Send_Email_Outlook(string _recipient, string _message, string _subject, string _cc, string _bcc, string accountname)
    {
        try
        {

            Microsoft.Office.Interop.Outlook.Application oApp = new Microsoft.Office.Interop.Outlook.Application();

            // Get the NameSpace and Logon information.
            Microsoft.Office.Interop.Outlook.NameSpace oNS = oApp.GetNamespace("mapi");

            // Log on by using a dialog box to choose the profile.
            oNS.Logon(Missing.Value, Missing.Value, true, true);

            // Create a new mail item.
            Microsoft.Office.Interop.Outlook.MailItem oMsg = (Microsoft.Office.Interop.Outlook.MailItem)oApp.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem);

            // Set the subject.
            oMsg.Subject = _subject;

            // Set HTMLBody.
            oMsg.HTMLBody = _message;

            oMsg.To = _recipient;
            oMsg.CC = _cc;
            oMsg.BCC = _bcc;


            #region Send via another account

            if (accountname.Trim().Length != 0)
            {
                Microsoft.Office.Interop.Outlook.Accounts accounts = oMsg.Session.Accounts;
                for (int i = 1; i <= accounts.Count; i++)
                {
                    string accountfound = accounts[i].DisplayName.ToLower();
                    if (accountname.ToLower() == accountfound)
                    {
                        oMsg.SendUsingAccount = accounts[i]; // Send using support account
                        Microsoft.Office.Interop.Outlook.Recipient recipient = oMsg.Session.CreateRecipient(accountfound);
                        oMsg.Sender = recipient.AddressEntry;
                        break;
                    }
                }
            }
            #endregion

            // Send.
            (oMsg as Microsoft.Office.Interop.Outlook._MailItem).Send();

            // Log off.
            oNS.Logoff();

            // Clean up.
            //oRecip = null;
            //oRecips = null;
            oMsg = null;
            oNS = null;
            oApp = null;


        }

     // Return Error Message
        catch (Exception e)
        {
            return e.Message;
        }

        // Default return value.
        return "";

    }

Answer 1

是的，您可以使用SendUsingAccount属性设置发送项目所需的正确帐户。

 public static Outlook.Account GetAccountForEmailAddress(Outlook.Application application, string smtpAddress) 
 { 

     // Loop over the Accounts collection of the current Outlook session. 
     Outlook.Accounts accounts = application.Session.Accounts; 
     foreach (Outlook.Account account in accounts) 
     { 
         // When the e-mail address matches, return the account. 
         if (account.SmtpAddress == smtpAddress) 
         { 
            return account; 
         } 
     } 
     throw new System.Exception(string.Format("No Account with SmtpAddress: {0} exists!", smtpAddress)); 
 } 

public static string Send_Email_Outlook(string _recipient, string _message, string _subject, string _cc, string _bcc, string accountname)
{
    try
    {

        Microsoft.Office.Interop.Outlook.Application oApp = new Microsoft.Office.Interop.Outlook.Application();

        // Get the NameSpace and Logon information.
        Microsoft.Office.Interop.Outlook.NameSpace oNS = oApp.GetNamespace("mapi");

        // Log on by using a dialog box to choose the profile.
        oNS.Logon(Missing.Value, Missing.Value, true, true);

        // Create a new mail item.
        Microsoft.Office.Interop.Outlook.MailItem oMsg = (Microsoft.Office.Interop.Outlook.MailItem)oApp.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem);

        // Set the subject.
        oMsg.Subject = _subject;

        // Set HTMLBody.
        oMsg.HTMLBody = _message;

        oMsg.To = _recipient;
        oMsg.CC = _cc;
        oMsg.BCC = _bcc;


        #region Send via another account

         // Retrieve the account that has the specific SMTP address. 
        Outlook.Account account = GetAccountForEmailAddress(oApp , "support@mydomain.com"); 
        // Use this account to send the e-mail. 
        oMsg.SendUsingAccount = account; 

        // Send.
        (oMsg as Microsoft.Office.Interop.Outlook._MailItem).Send();

        // Log off.
        oNS.Logoff();

        // Clean up.
        //oRecip = null;
        //oRecips = null;
        oMsg = null;
        oNS = null;
        oApp = null;


    }

 // Return Error Message
    catch (Exception e)
    {
        return e.Message;
    }

    // Default return value.
    return "";

}

从指定的Outlook帐户发送电子邮件

1 个答案: