从Excel的Outlook启动一个空白的电子邮件

我试图看看如何在一封空白的电子邮件中添加大约50多个电子邮件？

下面是我的代码（删除所有电子邮件），但是当我添加所有的电子邮件到第二行，我的button失败。

Sub Email() 'Set a Reference to the Microsoft Outlook XX.X Object Library Dim oLook As Object Dim oMail As Object Set oLook = CreateObject("Outlook.Application") Set oMail = oLook.CreateItem(0) With oMail .To= "[e-mail],[e-mail],[e-mail],[e-mail],som [e-mail],[e-mail],[e-mail]" .CC = "[e-mail]" .Subject = "Generic Subject" .Display End With Set oMail = Nothing Set oLook = Nothing End Sub 

Answer 1

我相信在visual basic / vba中，你需要在行尾加一个下划线_来表示继续。

所以试试

 .To= "[e-mail],[e-mail], _ [e-mail],[e-mail], _ [e-mail],[e-mail],[e-mail]" 

Answer 2

当你用一个空格和下划线分隔一个string时，你将需要把每一个新行作为一个sparatestring，并把它们和＆符号结合起来。 但是你的单线在我的机器上运行良好。

  Sub Email() 'Set a Reference to the Microsoft Outlook XX.X Object Library Dim oLook As Object Dim oMail As Object Set oLook = CreateObject("Outlook.Application") Set oMail = oLook.CreateItem(0) With oMail .To = "[e-mail],[e-mail],[e-mail]," & _ "[e-mail],[e-mail],[e-mail]," & _ "[e-mail]" .CC = "[e-mail]" .Subject = "Generic Subject" .Display End With Set oMail = Nothing Set oLook = Nothing End Sub 

Answer 3

用分号， – 不逗号, – 默认情况下, Outlook使用分号分隔多个收件人

 With oMail .To = "[e-mail]; [e-mail];" & _ "[e-mail]; [e-mail];" & _ "[e-mail]; [e-mail];" & _ "[e-mail]; [e-mail];" & _ "[e-mail]; [e-mail];" & _ "[e-mail]; [e-mail];" & _ "[e-mail]; [e-mail];" & _ "[e-mail]; [e-mail];" & _ "[e-mail]; [e-mail];" & _ "[e-mail]; [e-mail];" & _ "[e-mail]; [e-mail];" & _ "[e-mail]" .CC = "[e-mail]" .Subject = "Generic Subject" .Display End With 

如果你想使用逗号，那么你将需要改变你的设置

在高级电子邮件选项对话框中，选中允许逗号作为地址分隔符框，然后单击确定button