Excel VBA自动用outlook发送邮件内容及地址问题

n2008

各位高手，你们好！

我想实现用excel VBA代码来实现，用outlook自动发送邮件，
其中邮件的地址、主题、内容 直接获取Excel Sheet3中输入的内容。
该怎么修改如下代码呢？请指教，谢谢！

期望具体要求如下：
1，邮件的To:想指定Sheet3中B3到B30单元格的地址
2，邮件的cc：想指定Sheet3中C3到C30单元格的地址。
3，邮件正文（内容）想指定D3到D30的内容。

-----------------------------------------------------------------------
Sub 发送2()

Application.ScreenUpdating = False
    Dim outapp As Object
    Dim outmail As Object
    Dim body As String
    Dim fname As String

    Set outapp = CreateObject("Outlook.Application")
    Set outmail = outapp.CreateItem(0)

    body = "AAAAAAAAAAAAA"     '这里设置你的邮件内容"
                "BBBBBBBBBBBBB"
                "CCCCCCCCCCCCC"
               "DDDDDDDDDDDDD"

    On Error Resume Next
    With outmail
        .To = "name@yahoo.com; name1@yahoo.com"                 '收件人
        .CC = "name3@hotmail.com; name4@gmail.com"               '抄送人
        .Subject = "更新联络"                     '这里是你的主题
        .body = body
        .Attachments.Add fname
        .Display
    End With
    On Error GoTo 0

    Set outmail = Nothing
    Set outapp = Nothing

Application.ScreenUpdating = True

End Sub
-----------------------------------------------------------------------

doitbest

With outmail
        .To = join(application.transpose(sheet3.[b3:b30]),";")
        .CC = join(application.transpose(sheet3.[c3:c30]),";")
        .Subject = "更新联络"                     '这里是你的主题
        .body = join(application.transpose(sheet3.[d3:d30]),";")

seide

回家用Outlook,试试