|
(Gast)
n/a Beiträge
|
Re: Txt-Datei automatisch als E-Mail versenden
2. Apr 2009, 13:10
Hallo,
hilft Dir das?
Delphi-Quellcode:
IdMessage.Clear;
IdMessage.MessageParts.Clear;
IdMessage.Date := Now;
IdMessage.From.Text := 'Wer.bin.ich@Und.wenn.ja.warum';
IdMessage.Recipients.EMailAddresses := 'bekomme.ich@die.mail';
IdMessage.BccList.EMailAddresses := 'du.darfts@auch.lesen';
IdMessage.Subject := 'Irgendeinbetreff';
IdMessage.Body.Text := slBody.Text;
TidAttachment.Create(idMessage.MessageParts,sFileName);
idSMTP.Connect(10000);
idSMTP.Send(IdMessage);
idSMTP.Disconnect;
|
|
|
Zitat
|