Before or after

Giganews Newsgroups
Subject: Before or after
Posted by:  Rhys Sage (abu…@127.0.0.1)
Date: Tue, 30 Dec 2003

I hav ethe following send routine. At the moment it either sends an
attachment or text. If I send both, should I put the attachment first or the
text first?

procedure TForm1.Button5Click(Sender: TObject);
begin
// set message headers
idMessage1.Clear;
idMessage1.From.Address := LabeledEdit1.Text;
idMessage1.Sender.Address := LabeledEdit1.Text;
idMessage1.Subject := LabeledEdit3.Text;
idMessage1.Organization := 'Some organisation';
idMessage1.Date := Date;
idMessage1.Recipients.EMailAddresses := LabeledEdit2.Text;
idMessage1.ReceiptRecipient.Address := LabeledEdit1.Text;
        // add attachment if necessary
        if LabeledEdit7.GetTextLen > 0 then
        begin
            with TIdText.Create(idMessage1.MessageParts) do
            begin
                Body.AddStrings(Memo1.Lines);
            end;
            with TIdAttachment.Create(idMessage1.MessageParts,
LabeledEdit7.Text) do
            begin
                ContentType := GetMIMETypeFromFile(LabeledEdit7.Text);
                FileName := ExtractFileName(LabeledEdit7.Text);
            end;
        end
        else
        begin
            idMessage1.Body.AddStrings(Memo1.Lines);
        end;
idSMTP1.Send(idMessage1);
end;

--
Yours

Rhys

Join the anti-spam project:
http://groups.yahoo.com/group/Anti-Spam-Development/
or view my website:
http://www.sageworld.freeserve.co.uk

Replies