send mail med SMTP1

Se under Demos\Indy\MailClient det er et eksempel på et helt mailprogram.

Du skal selvfølgelig bruge den mailserver POP3 som du er tilmeldt hos din internetudbyder

Nedenstående kode er plukket ud af Demoen og angiver hvordan du sender

rocedure TfrmMessageEditor.bbtnOkClick(Sender: TObject);
begin
  with IdMsgSend do
  begin
    Body.Assign(Memo1.Lines);
    From.Text := UserEmail;
    Recipients.EMailAddresses := edtTo.Text; { To: header }
    Subject := edtSubject.Text; { Subject: header }
    Priority := TIdMessagePriority(cboPriority.ItemIndex); { Message Priority }
    CCList.EMailAddresses := edtCC.Text; {CC}
    BccList.EMailAddresses := edtBCC.Text; {BBC}
    if chkReturnReciept.Checked then
    begin {We set the recipient to the From E-Mail address }
      ReceiptRecipient.Text := From.Text;
    end
    else
    begin {indicate that there is no receipt recipiant}
      ReceiptRecipient.Text := '';
    end;
  end;

  {authentication settings}
  case SmtpAuthType of
    0: SMTP.AuthenticationType := atNone;
    1: SMTP.AuthenticationType := atLogin; {Simple Login}
  end;
  SMTP.UserID := SmtpServerUser;
  SMTP.Password := SmtpServerPassword;

  {General setup}
  SMTP.Host := SmtpServerName;
  SMTP.Port := SmtpServerPort;

  {now we send the message}
  SMTP.Connect;
  try
    SMTP.Send(IdMsgSend);
  finally
    SMTP.Disconnect;
  end;
end;

http://www.swissdelphicenter.ch/torry/showcode.php?id=117

niels_kristian>> Er der ingen af de svar der dur?

Det kan man da kalde hurtig response!