1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
IdSmtp.Connect;
IdSmtp.Authenticate;
IdMessage1.From.Name := 'VSO Software';
IdMessage1.From.Address := 'roger@gmail.com';
IdMessage1.Subject := 'test attach';
IdMessage1.Sender.Name := 'Sender Mail';
IdMessage1.Sender.Address := 'sender-no-reply@oftware.fr';
IdMessage1.Recipients.EMailAddresses := 'roger@gmail.com';
IdMessage1.Body.Text := 'just a test';
cF := 'Keys\1.zip';
MsgPart := TIdAttachmentfile.Create(IdMessage1.MessageParts, cf);
IdMessage1.MessageParts.CountParts;
IdSmtp.Send(IdMessage1); |
Partager