下面是一个使用CDO / SMTP单程

Here's one way using CDO / SMTP

Sub SendMail()
    Set objMsg = CreateObject("CDO.Message")
    Set objConfig = CreateObject("CDO.Configuration")

    Set objFields = objConfig.Fields
    With objFields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "YourSMTPServer"
        .Update
    End With

    With objMsg
        Set.Configuration = objConfig
        .To = "eric@gmail.com"
        .CC = "name@gmail.com"      
        .From = "you@gmail.com"
        .Subject =  "Hello World"
        .HTMLBody = "This is the body of message"
        .Fields.Update
        .Send
    End with

    Set objMsg = Nothing
    Set objConfig = Nothing
End Sub