VBA / Outlook 2010 - 从默认邮件地址回复/回复所有人

时间:2013-06-24 09:31:10

标签: email vba button outlook reply

使用以下VBA代码我能够在Outlook 2010功能区上创建一个新按钮,我可以使用我的默认电子邮件地址发送电子邮件。

现在,我想在Outlook 2010功能区上有一个类似的按钮,用于“回复/回复所有”。 Outlook选择,当“回复”或“全部回复”时,默认情况下邮件地址作为发件人邮件进入,但我想用默认电子邮件地址发送我的所有电子邮件。

这是我在本教程中找到的VBA脚本:http://www.sevenforums.com/tutorials/129318-outlook-2010-always-send-default-account.html

Public Sub New_Mail()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Application.Session.Accounts
If oAccount = "Name of Default Account" Then
Set oMail = Application.CreateItem(olMailItem)
oMail.SendUsingAccount = oAccount
oMail.Display
End If
Next
End Sub

任何想法如何更改上述代码或者是否有人知道我如何在Outlook功能区上创建“回复”电子邮件的按钮?

谢谢!

1 个答案:

答案 0 :(得分:1)

我终于能够解决它了!这是下面的代码:

Public Sub Reply_Mail()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem

For Each oAccount In Application.Session.Accounts

If oAccount = "Name of your mail address" Then
    Set oMail = Application.ActiveExplorer.Selection(1).Reply
      oMail.SendUsingAccount = oAccount
    oMail.Display
End If
Next

End Sub