Hi Delphianer
Beschäftige mich seit kurzem mit idsmtp und habe folgendes problem.
Beim Aufruf meiner "Send Mail" Function bekomme ich immer:
Exception der Klasse EAccessViolation: Zugriffsverletzung bei Adresse 004073FA.
nach einem Debug habe ich festgestellt, dass das schon bei der ersten Zeile der Funktion passiert. Hier der Code:
Delphi-Quellcode:
function send_mail(Recipient:
string;CCList:
string;sSubject:
string;Body:TStringList) : boolean;
var
nAlarmnr:integer;
email : TIDMessage;
IdSMTP: TIdSMTP;
begin
try
idsmtp.Username := test@yahoo.com'
;
idsmtp.Password := pw;
idsmtp.Host := server;
idsmtp.Port := 465;
email := TIDMessage.Create(nil);
email.From.text :='test@yahoo.com'
;
email.Sender.text:= email.From.text;
email.Recipients.EMailAddresses:= Recipient;
email.CCList.EMailAddresses := CCList;
email.Subject:=sSubject;
email.Body.Clear;
email.Body := Body;
//SENDING
idsmtp.Connect;
idsmtp.Send(email);
idsmtp.Disconnect;
result:=True;
except on E : Exception do
begin
Writeln(e.Message);
if idSMTP.connected then try idSMTP.disconnect; except end;
result := false;
end;
end;
end;
sprich bei dieser Zeile "idsmtp.Username :=
test@yahoo.com';" springt er automatisch zu dem
Exception block! Habe ich vergessen irgendwas zu initialisieren?!
Vielen Dank im Voraus.
LG
value