idsmtp

[value is NULL]

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 := [e-mail]';
 idsmtp.Password := pw;
 idsmtp.Host     := server;
 idsmtp.Port     := 465;

 email := TIDMessage.Create(nil);
 email.From.text  :='[e-mail]';
 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 := [e-mail]';" springt er automatisch zu dem Exception block! Habe ich vergessen irgendwas zu initialisieren?!

Vielen Dank im Voraus.

LG
value

[jfheins]

Ja. Ein Obekt muss erstellt werden, bevor man es benutzen kann.

Vor das try gehört ein IdSMTP := TIdSMTP.Create();

[value is NULL]

na perfekt! funktioniert ja Danke!

ein Problem habe ich noch: beim senden des Mails bekomme ich folgendes zurück:

Exception der Klasse EIdSMTPReplyError mit der Meldung "Message rejected as spam by Content Filtering"

kann ich das irgendwie umgehen?! Ich meine ich melde mich bei unserem Firmen Exchange an und versuche mir selbst ein Mail zu senden?

lg

[value is NULL]

auf ne andere mail adresse funzt es einwandfrei!

Exchange problem

DANKE

[DeddyH]

Ich hoffe, Du erstellst das Objekt nicht nur, sondern gibst es nach Gebrauch auch wieder frei

[value is NULL]

idsmtp.free ist die lösung

[DeddyH]

Genau, und das zweckmäßigerweise in einem finally-Abschnitt.

[value is NULL]

so muss das sein

danke nochmal!