Keine Empfangsbestätigung + sendNewsLetter

[horst]

moin ...

ich hätte gleich zwei fragen zu dem sendNewsLetter script.
frage1: wenn ich darüber mails versende, will sich beim empfänger immer eine empfangsbestätigung versenden, welche stelle ist im script dafür verantwortlich, bzw. wie stelle ich das ab?

frage2: ich möchte, wenn alle mails versendet wurden (also die letzte mail raus ist)
einen timer einschalten, wo oder wie muss ich das tun?

freue mich über jeden tip!

Delphi-Quellcode:

procedure sendNewsLetter(an:Tstringlist; att,Text:Tstrings; 
vonMail,Betreff,Priority,ContentTyp,SMTPServer,SMTPUsername,SMTPPass:String; 
SMTPPort,SmtpAuthType:integer); 

var IdMsgSend:TidMessage; SMTP:TidSmtp; i:integer; s:string; 
begin 
  IdMsgSend:=TidMessage.Create(nil); 
  SMTP:=TidSmtp.Create(nil); 
  with IdMsgSend do 
  begin 
    ContentType :=ContentTyp ; 
    Body.Assign(Text); 
    From.Text := vonMail; 
    ReplyTo.EMailAddresses := vonMail; 
    Subject := Betreff; 
    Priority := Priority; 
    s:=''; 
    for i:=0 to an.Count-1 do 
    begin 
      s:=s+BccList.EMailAddresses+an.Strings[i]+';' 
    end; 
    BccList.EMailAddresses:=s; 
    ReceiptRecipient.Text:=vonMail; 
  end; 

  if att.Count>=1 then 
  begin 
    for i:=0 to att.Count-1 do 
    begin 
      TIdAttachment.Create(IdMsgSend.MessageParts, att.Strings[i] ); 
    end; 
  end; 
  IdMsgSend.ContentType :=ContentTyp ; 

  case SmtpAuthType of 
    0: SMTP.AuthenticationType := atNone; 
    1: SMTP.AuthenticationType := atLogin; 
  end; 
  SMTP.Username := SMTPUsername; 
  SMTP.Password := SMTPPass; 

  SMTP.Host := SMTPServer; 
  SMTP.Port := SMTPPort; 

  SMTP.Connect; 
  try 
    SMTP.Send(IdMsgSend); 
  finally 
    SMTP.Disconnect; 
  end; 
  IdMsgSend.free; 
  SMTP.free; 
end;

[horst]

Keiner ne Idee?

[Sharky]

Zitat von horst:

frage1: wenn ich darüber mails versende, will sich beim empfänger immer eine empfangsbestätigung versenden, welche stelle ist im script dafür verantwortlich, bzw. wie stelle ich das ab?

ReceiptRecipient.Text:=vonMail; Weglassen.

[horst]

jepp...das ist es