Скачать: CL | DM;

Вопрос с отправкой мыла   Найти похожие ветки 

← →
Lonix   (2007-02-28 23:03) [0]

Я сделал прогу, она работает подскажите куда нужно и что нужно добавить чтобы еще отправлять прикрепленые данные? вот код проги:
.......................................
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
 IdMessageClient, IdSMTP, StdCtrls, idMessage, IdEMailAddress;

.......................................

procedure TForm1.Button1Click(Sender: TObject);
var
 M: TIdMessage;
begin
 M := TIdMessage.Create(Form1);

 M.Body.Add("Типа первая строчка собщения");
 M.Body.Add("Типа вторая строчка собщения");
 M.From.Text := ""Мирор" <mail@mail.ru>"; //отправитель
 M.Recipients.Add;
 M.Recipients.Items[0].Text := ""Kiss" <vit@mail.ru>"; //Получатель
 M.Subject := "Мы это сделали :)"; //Тема письма

 IdSMTP1.AuthenticationType := atLogin;
 IdSMTP1.Host := "smtp.mail.ru";
 IdSMTP1.Username := "cards";
 IdSMTP1.Password := "********"; // - ну свой пароль я те не выдам :-Р
 IdSMTP1.Connect();
 if IdSMTP1.Connected then
 begin
   IdSMTP1.Send(M);
 end;
 IdSMTP1.Disconnect;
end;

---

← →
alex-drob ©   (2007-02-28 23:40) [1]

Кажеться M.MessageParts

---

← →
Dmitrij_K   (2007-03-01 00:13) [2]

http://www.indyproject.org/Sockets/Demos/index.aspx

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c