email-Programm im Hintergrund

[Helld_River]

Hier ein Funktion, die eine Mail per Outlook verschickt:

USES Outlook8;

Delphi-Quellcode:

function SendEMail(empfaenger, betreff, text : string): boolean;
Var OutApp : TOutlookApplication;
    mItem  : Variant;
    oNS    : NameSpace;
begin
  try
    OutApp := TOutlookApplication.Create(nil);
    OutApp.ConnectKind := ckRunningOrNew;
    OutApp.Connect;
    oNS:=OutApp.GetNameSpace;
    oNS.LogOn('','',FALSE,FALSE);
    mItem := OutApp.CreateItem(olMailItem);
    mItem.Recipients.Add(empfaenger);
    mItem.Subject:= betreff;
    mItem.Body:=text;
    mItem.Send;
    OutApp.Disconnect;
    oNS.Free;
    OutApp.Free;
    Result:=true;
  except
    Result:=false;
  end;
end;

Wenn noch Fragen offen sind, dann einfach nochmals nachfragen !

GRuß, Helld