小编use*_*180的帖子

我正在尝试在Excel表单上设置几个按钮,以通过电子邮件发送给不同的人群.我在单独的工作表上创建了几个单元格范围,以列出单独的电子邮件地址.例如,我想要"按钮A"打开Outlook并从"工作表B:单元格D3-D6"中放入电子邮件地址列表.然后,所有必须完成的操作都在Outlook中点击"发送".

这是我到目前为止的VBA代码,但我无法让它工作.有人可以告诉我我错过了什么或做错了吗？

VB:

Sub Mail_workbook_Outlook_1() 
     'Working in 2000-2010
     'This example send the last saved version of the Activeworkbook
    Dim OutApp As Object 
    Dim OutMail As Object 

    EmailTo = Worksheets("Selections").Range("D3:D6") 

    Set OutApp = CreateObject("Outlook.Application") 
    Set OutMail = OutApp.CreateItem(0) 

    On Error Resume Next 
    With OutMail 
        .To = EmailTo 
        .CC = "person1@email.com;person2@email.com" 
        .BCC = "" 
        .Subject = "RMA #" & Worksheets("RMA").Range("E1") 
        .Body = "Attached to this email is RMA #" & Worksheets("RMA").Range("E1") & ". Please follow the instructions for your department included in …