CC: IStringList;
Свойство CC возвращает коллекцию адресов, по которым будет отправлена копия сообщения электронной почты.
Sub Main;
Var
Msg: INetMapiMessage;
Client: INetMapiClient;
Begin
Client := New NetMapiClient.Create;
Msg := New NetMapiMessage.Create;
Msg.From_ := "ivanov@server.ru";
Msg.To_.Add("petrov@mail.ru");
Msg.CC.Add("user1@mail.ru");
Msg.Subject := "Тестовое письмо";
Msg.Body := "Текст письма";
Client.Message := Msg;
Client.Send;
End Sub Main;
После выполнения примера будет отправлено электронное письмо с помощью программы, установленной в операционной системе в качестве почтового клиента по умолчанию. Письмо будет отправлено по адресу "petrov@mail.ru". Копия письма будет отправлена по адресу "user1@mail.ru".
См. также: