AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi eMail versenden-Connect OK.Danach wird nichts mehr gesendet
Thema durchsuchen
Ansicht
Themen-Optionen

eMail versenden-Connect OK.Danach wird nichts mehr gesendet

Ein Thema von Mandi Nice · begonnen am 10. Jan 2010 · letzter Beitrag vom 11. Jan 2010
 
Benutzerbild von Jens Hartmann
Jens Hartmann

Registriert seit: 11. Jan 2009
Ort: Wilnsdorf
1.439 Beiträge
 
Delphi XE2 Professional
 
#2

Re: eMail versenden-Connect OK.Danach wird nichts mehr gesen

  Alt 10. Jan 2010, 16:32
Hallo,

schau mal ob das was für Dich ist...

Delphi-Quellcode:
procedure TForm1.SendMail;
var
  FileName : String;
  FileData : TIdAttachmentFile;
begin
  FileName := //OpenDialog.Execute oder so;
  try
    with mesgMessage do begin
      Clear;
      From.Text := // von welchem account aus
      Recipients.Add.Text := // an welche addi
      Subject := // betreff
      Body.Assign('');// die nachricht aus dem
      if FileExists(FileName) then
      begin
        FileData := TIdAttachmentFile.Create(MessageParts, FileName);
      end
    end;
    with smtpSendMail do begin
      Username := 'Benutzer';
      Password := 'Passwort';
      Host := 'mailto.t-online.de'//smtp-server hier
      Connect;
      try
        Send(mesgMessage);
      finally Disconnect;
      end;
    end;
    FileData.Free;
    finally
    end;
end;
Gruß Jens
Jens Hartmann
Das Leben selber ist zu kurz, also nutze jeden Tag wie er kommt.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:53 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz