Thema: idsmtp

Einzelnen Beitrag anzeigen

value is NULL

Registriert seit: 10. Sep 2010
249 Beiträge
 
#1

idsmtp

  Alt 26. Apr 2011, 14:40
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
  Mit Zitat antworten Zitat