CDO 发电子邮件（gmail）

smartsoft

经过几天的测试和google了无数的帖子
分享方法如下（我用的英文系统）：

Option Explicit

Sub Mail_CDO()
    'Send an email with your GMail account and CDO Components.
   
    Dim iMsg, iConf, Flds
    Dim schema$
   
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields

    ' send one copy with Google SMTP server (with autentication)
    schema = "http://schemas.microsoft.com/cdo/configuration/"
    Flds.Item(schema & "sendusing") = 2
    Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
    Flds.Item(schema & "smtpserverport") = 465
    Flds.Item(schema & "smtpauthenticate") = 1
    Flds.Item(schema & "sendusername") = "yourname@gmail.com"
    Flds.Item(schema & "sendpassword") = "your gmail password"
    Flds.Item(schema & "smtpusessl") = 1
    Flds.Update

    With iMsg
        .To = "receiver"
        .Cc = "cc"
        .From = "sender"
        .Subject = "subject line " & Format(Now, "dd mmm")
        .TextBody = "Hi ??," & vbCrLf & vbCrLf & "Please find attached:" & vbCrLf _
            & "your file path" & vbCrLf & vbCrLf _
            & "Kind regards," & vbCrLf & "your name"
        .AddAttachment "file path"
        .Organization = ""
        .ReplyTo = "your email"
        Set .Configuration = iConf
        .Send
    End With

    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing

End Sub

lxw6

应该还需要引用组建吧。关键的地方没有介绍，哎。
其实发送email的方法很多的，这个方法很少有人用

smartsoft

lxw6 发表于 2013-2-14 18:12
应该还需要引用组建吧。关键的地方没有介绍，哎。
其实发送email的方法很多的，这个方法很少有人用

无需引用，如果你在公司，又是用outlook2003，你就会发现它的好处。

suxinsen

lxw6 发表于 2013-2-14 18:12
应该还需要引用组建吧。关键的地方没有介绍，哎。
其实发送email的方法很多的，这个方法很少有人用

如何引用组建？？