macros将excel电子邮件ID导出到Outlook分配列表

有没有办法编写一个macros从excel表导出电子邮件ID列到Outlook分配列表？

我希望每次都用新的发布列表replace旧的，macros是运行的。

以下是我一直在尝试的，

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 

但是，当运行这个，我得到一个错误，用户定义types没有定义。

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

有人可以帮我做这个吗？ 谢谢

Answer 1

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

要更改find名称的列，请更改

 Range("C" 

引用包含名称的列。