Как создать групповую электронную почту с CDO Использование VB6

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