将 Excel 电子邮件 ID 导出到 Outlook 分发列表的宏

Question

有没有办法编写一个将电子邮件 ID 列从 excel 表导出到 Outlook 分发列表的宏？

理想情况下，每次运行宏时，我都希望用新的分发列表替换旧的。

以下是我一直在尝试的，

Public Sub DistributionList()

Dim objOutlook As New Outlook.Application
Dim objNameSpace As Outlook.Namespace
Dim objDistList As Outlook.DistListItem
Dim objMail As Outlook.MailItem
Dim objRecipients As Outlook.Recipients


Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objDistList = objOutlook.CreateItem(olDistributionListItem)
Set objMail = objOutlook.CreateItem(olMailItem)
Set objRecipients = objMail.Recipients
objDistList.DLName = InputBox("Enter name of Distribution List")

For i = 1 To Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
objRecipients.Add (Range("C" & i).Value)
Next i

objDistList.AddMembers objRecipients
objDistList.Display
objRecipients.ResolveAll

Set objOutlook = Nothing
Set objNameSpace = Nothing
Set objDistList = Nothing
Set objMail = Nothing
Set objRecipients = Nothing

End Sub

但是在运行这个时，我得到一个错误，用户定义的类型没有定义。

这可以纠正还是有更好的方法来做到这一点？

有人可以帮我做这件事吗？谢谢

Answer 1

用户定义类型未定义错误几乎总是意味着您忘记添加引用。在工具>>参考下添加它。在您的情况下，您需要 Outlook 库。

要更改查找名称的列，请更改

Range("C"

引用包含名称的列。