Vba 如何设置电子邮件从何处发送？

我配置了一些电子邮件帐户。其中一封电子邮件（例如。myemail@mail.com)允许访问某些邮箱（例如。emaiolbox@mail.com)

如果我选择“发件人”>“其他电子邮件地址”，那么我可以选择要使用的帐户（“使用发送”）和电子邮件（“发件人”）

我有一个宏来回复电子邮件

我想设置“使用发送”和“从”选项

Sub-send_-email（）
Dim origEmail作为邮件项
Dim ReplyMail作为邮件项
Set origEmail=Application.ActiveWindow.Selection.Item（1）
设置replyEmail=Application.CreateItemFromTemplate（“C:\Utils\Outlook\u Templates\macro.oft”）
replyEmail.HTMLBody=replyEmail.HTMLBody&origEmail.Reply.HTMLBody
replyEmail.Subject=“RE:+origEmail.Subject
replyEmail.To=origEmail.Sender
replyEmail.CC=origEmail.CC+“；”+replyEmail.CC
回复邮件。显示
端接头

Outlook对象模型中有两种可能的选项：

属性允许设置一个对象，该对象表示要发送邮件项的帐户。

SendUsingAccount

属性可用于指定调用send方法时应用于发送邮件项的帐户。如果为

MailItem

指定的帐户不再存在，此属性将返回

Null

（

在Visual Basic中为Nothing

）

属性允许设置一个字符串，该字符串指示邮件消息的预期发件人的显示名称。注意，在这种情况下，您需要确保您有足够的权限代表其他人发送电子邮件

---

查看

MailItem.Sender

属性：我正在尝试，但仍然没有完成。请帮帮我，我试过选项1。我按下宏，但什么也没发生。知道为什么吗？你现在有什么密码？你试过调试代码吗？有错误吗？我在Outlook中打开了我的visual basic宏，我只是将它提供的代码放在上面（Sub SendUsingAccount）。就这样。然后我更改了“oMail.Recipients.Add”行，并根据我的电子邮件进行了更改。之后，我在Outlook中添加了一个按钮，称之为。但是当我按下那个按钮时什么也没发生。你试过调试代码吗？在附加的调试器下是否有任何错误？

      Sub SendUsingAccount()  
       Dim oAccount As Outlook.account  
       For Each oAccount In Application.Session.Accounts  
        If oAccount.AccountType = olPop3 Then  
         Dim oMail As Outlook.MailItem  
         Set oMail = Application.CreateItem(olMailItem)  
         oMail.Subject = "Sent using POP3 Account"  
         oMail.Recipients.Add ("someone@example.com")  
         oMail.Recipients.ResolveAll  
         Set oMail.SendUsingAccount = oAccount  
         oMail.Send  
        End If 
       Next  
      End Sub