在Outlook VBA中获取getTable()收件人电子邮件地址的最快方法
在Outlook VBA中，获取getTable()收件人电子邮件地址的最快方法是使用Recipient对象的Address属性。Recipient对象表示邮件的收件人，可以通过Recipient对象的Address属性获取收件人的电子邮件地址。
以下是获取getTable()收件人电子邮件地址的示例代码：
Sub GetRecipientEmailAddress()
Dim objMail As Outlook.MailItem
Dim objRecipient As Outlook.Recipient
Dim strEmailAddress As String
' 获取当前选中的邮件
Set objMail = Application.ActiveExplorer.Selection(1)
' 遍历所有收件人
For Each objRecipient In objMail.Recipients
' 获取收件人的电子邮件地址
strEmailAddress = objRecipient.Address
' 在此处可以对电子邮件地址进行处理或使用
' ...
' 打印收件人的电子邮件地址
Debug.Print strEmailAddress
Next objRecipient
End Sub在上述代码中，我们首先获取当前选中的邮件对象（objMail），然后使用For Each循环遍历邮件的所有收件人（objRecipient）。通过objRecipient.Address属性获取收件人的电子邮件地址，并可以对地址进行处理或使用。
请注意，上述代码仅适用于Outlook VBA环境，如果在其他环境中使用，可能需要进行相应的修改。
推荐的腾讯云相关产品：腾讯企业邮件（https://cloud.tencent.com/product/exmail）是一款基于云计算的企业级邮件解决方案，提供稳定可靠的企业邮箱服务，适用于各类企业和组织的邮件通信需求。
相关·内容
我的公司为每个员工分配一个ID，该ID作为其在Outlook中的“别名”存储。我们经常使用这个ID，我正在寻找一种简单的方式来查看它。
现在，我在新的电子邮件中输入收件人名称，双击名称，单击“更多选项”，然后单击Outlook属性。我正在寻找一个宏，在那里我将输入收件人的名字在一个新的电子邮件，然后运行宏，它将弹出收件人的别名作为一个消息框(理想情况下复制到剪贴板)。我试图(但失败)自己写这篇文章。
到目前为止，我掌握的代码如下。但是，这个代码给出了/o=corpexchange/ou=exchange管理组……
我正试着让它返回别名
Sub ReadRecpDetail2()
Dim
浏览 5提问于2015-04-28得票数 0
回答已采纳
1回答
我打算将电子邮件转发给某些个人(到& CC)。这些地址是附加电子邮件作为CSV文件。
密码是
运行时错误-2147024809 (80070057)
错误显示在这一行。
objForwardMail.SendUsingAccount = objMailAccount
Sub Forwardemailstointendedrecepients(objMail As Outlook.MailItem)
Dim objForwardMail As Outlook.MailItem
Dim objRecipient As Outlook.Recipient
Di
浏览 2提问于2022-02-25得票数 0
我正在尝试使用Excel从我的发送框中获取.To电子邮件地址。但是，To只返回名称，而不是电子邮件地址。经过一些搜索发现，recipient应该是我要找的。尝试遵循指南，但代码似乎不起作用。
Sub test()
Dim objoutlook As Object
Dim objNamespace As Object
Dim olFolder As Object
Dim OutlookMail As outlook.MailItem
Set objoutlook = CreateObject("Outlook.Application")
Set objNamespace
浏览 6提问于2018-01-16得票数 2
回答已采纳
我有一个outlook messages (.msg)目录文件夹(桌面上的文件夹)，用作制作电子邮件的模板。
这个文件夹里可能有500封电子邮件。我需要删除一个特定的电子邮件地址从这些电子邮件中，有时在每个月后。
Sub test()
Dim m As MailItem 'object/mail item iterator
Dim recip As Recipient 'object to represent recipient(s)
Dim email As Long
Set Remove = m.Remove
email = InputBox("Please
浏览 0提问于2019-04-08得票数 1
回答已采纳
我已经编写了这段代码，用于在单击email send按钮时从to、cc和bcc行获取用户的电子邮件地址。 if (Item is Outlook.MailItem)
{
Outlook.MailItem mailItem = Item as Outlook.MailItem;
Outlook.Recipients myRecipients = mailItem.Recipients;
foreach (Outlook.Recipient recipient in myRecipients)
浏览 55提问于2019-01-08得票数 0
1回答
我有一个创建和保存电子邮件草稿的VBA脚本。要添加收件人，它从链接的Excel表中提取一个字符串，并将其添加到收件人对象中。
对于只有一个收件人的电子邮件，这就像是一个护身符。所有用户需要做的就是打开草稿，花5秒钟看一遍，然后点击发送。
多个联系人同时出现问题(例如"a@aol.com；b@aol.com；c@aol.com")。当用户点击发送时，Outlook将弹出一个没有任何建议的检查名称对话框。用户可以通过单击To字段并输入一个虚拟分号来触发自动解析来解决此问题。我想避免这种情况，因为这个过程一次创建超过100封电子邮件，需要单独审查。
在网上四处看看，我发现并尝试了返回
浏览 0提问于2012-10-23得票数 1
回答已采纳
2回答
人们经常转发邮件给我，并要求我回复原始发件人，后者在CC中。我认为将此人放在to字段中，将forwarder放在CC中会更整洁。所以我喜欢交换它们。我想出了这段VBA：
Sub Swap()
Dim objMail As Outlook.MailItem
Set objMail = Application.ActiveInspector.CurrentItem
With objMail
a$ = .To
.To = .CC
.CC = a$
End With
Set objMail = Nothing
End Sub
不幸的是，收件人是以文本形式复制的。因此，Outloo
浏览 5提问于2015-07-10得票数 1
2回答
我有两个列，标题是To和Cc。
我需要提取到和Cc电子邮件地址，而不是姓名，从Outlook的Excel文件。
Sub ExportOutlookInfo()
Dim o As Outlook.Application
Set o = New Outlook.Application
Dim ons As Outlook.Namespace
Set ons = o.GetNamespace("MAPI")
Dim omail As Outlook.MailItem
Set omail = o.CreateItem(olMailItem)
Dim i As Long
Dim olRe
浏览 19提问于2022-04-26得票数 0
回答已采纳
我想编写一个VBA脚本，当Outlook从特定的电子邮件地址接收到新的电子邮件时，VBA脚本必须检测到这一点，并将新收到的电子邮件重新发送到通讯簿中的所有联系人。
目前，我能够向通讯录中的所有联系人发送一封电子邮件：
Sub SendEmails()
Dim ContactsFolder As Folder
Set ContactsFolder = Session.GetDefaultFolder(olFolderContacts)
Dim Contact As Object
Dim olApp As Outlook.Application
Dim objMail As Outlook.Mai
浏览 5提问于2015-02-24得票数 0
回答已采纳
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
objMail.To = "example@email.com"
objMail.cc = "example2@email.com"
objMail.Subject = "Mail test"
objMail.HTMLBody = "This is my message"
unload me
objMail.Display
Set o
浏览 0提问于2015-08-05得票数 5
回答已采纳
我试图循环浏览Outlook电子邮件的选择或文件夹，将相同的文件附加到每个电子邮件中，并将它们转发到相同的电子邮件地址。
我以前试过使用for循环，但是当有许多电子邮件(100+)时，Outlook告诉我它内存不足，无法转发电子邮件。
我现在试着用with循环来做这件事。下面是我的密码。它不起作用。我该换什么？
Sub ForwardSelectedItems()
Dim forwardmail As Outlook.mailItem
Dim Selection As Selection
Dim n As Integer
Set Selection = Application.ActiveE
浏览 1提问于2018-08-24得票数 0
回答已采纳
我一直试图将收到的电子邮件的详细信息导出到Excel电子表格中。除了返回收件人在"To“和"CC”字段中的显示名称外，该代码的工作方式是正常的。
我试过几种变体。
我正在使用我在网上找到的以下代码：
Public WithEvents objMails As Outlook.Items
Private Sub Application_Startup()
Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub objMail
浏览 1提问于2020-08-20得票数 0
回答已采纳
2回答
我在网上找到了一个脚本，用来重新发送Outlook 365中的发件箱中的电子邮件。它要求我选择电子邮件。
我有两个帐户，包括一个Microsoft Exchange帐户。有没有办法修改此宏，以便当我在Microsoft Exchange帐户中发送电子邮件时，所有可能卡在发件箱中的电子邮件都会被自动选中，并运行下面的宏？
Sub BatchResendEmails()
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim objInspector As Outlook.Inspe
浏览 0提问于2021-02-20得票数 0
2回答
使用Outlook 2016，我试图为发送出办公室消息的收件人检索AutoResponse ()属性。
我得到了一根空的绳子。
我检查收件人是否通过.Resolved属性解析，如果我传递objMail.Display命令，我将看到显示的自动消息。我是遗漏了什么，还是这是Outlook中的一个bug？
Sub test()
Dim objMail As Outlook.MailItem
Dim objRecipient As Outlook.Recipient
Set objMail = Application.CreateItem(olMailItem)
Set objRecipient =
浏览 0提问于2019-08-01得票数 0
回答已采纳
我移动电子邮件到一个特定的子文件夹的收件箱，因为它已经被标记为“发票”。
Private WithEvents objInboxFolder As Outlook.Folder
Private WithEvents objInboxItems As Outlook.Items
'Process inbox mails
Private Sub Application_Startup()
Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set objInbox
浏览 2提问于2022-05-05得票数 0
回答已采纳
Dim appOutlook As Outlook.Application
Dim mitOutlookMsg As Outlook.MailItem
Dim recOutlookRecip As Outlook.Recipient
Dim attOutlookAttach As Outlook.Attachment
Set recOutlookRecip = .Recipients.Add("ABC@gmail.com") & .Add("123@gmail.com")
recOutlookRecip.Type = olCC
我目前有这个，
浏览 30提问于2018-08-31得票数 0
我们有一个团队的电子邮件地址，我们抄送大多数通信，然后我们都会收到一份所有电子邮件的副本。
问题是，当我们回复所有人，并且团队成员已经在电子邮件链中时，该成员将收到2次电子邮件。
这就是我尝试过的。
Private Sub RemoveRecipientsWhenItemSend(Item As Outlook.MailItem)
Dim RemoveAddrList As VBA.Collection
Dim InfoAddrList As VBA.Collection
Dim Recipients As Outlook.Recipients
Dim aRecipient As Outloo
浏览 1提问于2017-06-08得票数 1
回答已采纳
我的VBA代码自动发送电子邮件。如何填写一个以上的电子邮件地址？
用户创建新的电子邮件并填写：
致:一个电子邮件地址
电子邮件address2，电子邮件address3，电子邮件address4，
Outlook如何分隔Bcc属性中的每个电子邮件地址，以在我的示例中发送4封电子邮件而不是一封。
Dim strWho As String
Dim strSubject As String
Dim objNewMail As Outlook.MailItem
Set objNewMail = Application.CreateItem(olMailItem)
strWho = objMail.
浏览 1提问于2019-04-16得票数 1
回答已采纳
我在outlook上只有一个exchange帐户，并且可以访问由管理员创建的两个共享/组邮箱或邮件地址。我只是那个共享邮件组的一员，我可以通过它们发送和接收邮件。因此，有时我会因为选择了错误的发件人地址而犯错误。在发送电子邮件之前，我需要检查发件人/发件人地址和收件人。但是，我不能通过VBA将发件人/发件人地址作为字符串返回。我通过“from”下拉菜单选择它们。
下面是我的代码：
Dim Recipients As Outlook.Recipients
Dim recip As Outlook.Recipient
Dim i
Dim prompt As String
Dim Send_Addr
浏览 16提问于2020-11-12得票数 0
我有一个Outlook外接程序，我正尝试在其中访问约会邀请的收件人。即使recipients列为空，代码Outlook.AppointmentItem.Recipients.Count也会返回1，而Recipients将返回发件人的电子邮件。
Dim recips As Outlook.Recipients
Dim recip As Outlook.Recipient
Dim flag As Boolean = False
cal = Application.ActiveInspector().CurrentItem
recips = cal.Recipients
cal.Sav
浏览 0提问于2017-07-28得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
