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