如何使用VB6创建CDO群发邮件

Question

如何向一组具有CDO的收件人发送电子邮件？我使用的是VB6。

Answer 1

您可以在.To行上列出多个收件人，用";“分隔，例如：

Set m = Server.CreateObject("CDO.Message")
m.Subject="subject..."
m.From="sender@example.com"
m.To="some@email.com;other@email.com;third@email.com"
m.TextBody="Message"
m.Send

Answer 2

这在Office 97和当时我们使用的任何Exchange中都有效：

    Dim oOApp As Outlook.Application
    Dim newMail As Outlook.MailItem
    Set oOApp = CreateObject("Outlook.Application")
    Set newMail = oOApp.CreateItem(olMailItem)

 With newMail
  .Display
  .Body = whatever
  .Subject = whatever
  .Attachments.Add whatever
  .Recipients.Add (whomever)
  .Send
 End With
 Set newMail = Nothing
 Set oOApp = Nothing