![我可以创建 Outlook 2010 宏来弹出框吗?](https://linux22.com/image/1318936/%E6%88%91%E5%8F%AF%E4%BB%A5%E5%88%9B%E5%BB%BA%20Outlook%202010%20%E5%AE%8F%E6%9D%A5%E5%BC%B9%E5%87%BA%E6%A1%86%E5%90%97%EF%BC%9F.png)
我正在尝试设置一个宏,以便弹出一个框来选择从哪个电子邮件帐户发送电子邮件。我实际上在这里找到了可以执行此操作的宏,但在工作时间尝试了几次之后,我得到的只是工具栏上的一个按钮,它什么也不做!
有人能详细地告诉我该怎么做吗?
这是我尝试的宏 -
Sub SendfromLE()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Application.Session.Accounts
If oAccount = "LeadEmployerRecruitment" Then
Set oMail = Application.CreateItem(olMailItem)
oMail.SendUsingAccount = oAccount
oMail.Display
End If
Next
End Sub
我不确定我是否正确命名了帐户?它需要完整的电子邮件地址还是只是名称?
答案1
尝试这个
For Each oAccount In Application.Session.Accounts
Debug.Print oAccount
If oAccount = "Whatever you see in the immediate pane" Then
Set oMail = Application.CreateItem(olMailItem)
oMail.SendUsingAccount = oAccount
oMail.Display
End If
Next