indy10으로 163으로 메일을 보내는 예

function TForm1.SendMail(Const SMTPServer: String; Const SMTPPort: WORD;
           Const UserName, PassWord, MailTitle: String; Const MailBody: TStrings;
           Const FormAddress, ToAddress: String): Boolean;
var
  IdSMTP: TIdSMTP;
  IdMessage: TIdMessage;
begin
  IdSMTP := TIdSMTP.Create;
  IdMessage := TIdMessage.Create;
  try
    try
      IdSMTP.Host     := SMTPServer;
      IdSMTP.Port     := SMTPPort;
      IdSMTP.Username := UserName;
      IdSMTP.Password := PassWord;
      IdSMTP.Connect;
    except
      Result := False;
      Exit;
    end;
    IdMessage.Subject := MailTitle;
    IdMessage.Body.Text := MailBody.Text;
    IdMessage.From.Address := FormAddress;
    IdMessage.Recipients.EMailAddresses := ToAddress;
    try
      IdSMTP.Send(IdMessage);
      Result := True;
    except
      Result := False;
    end;
  finally
    IdSMTP.Free;
    IdMessage.Free;
  end;
end;

호출은 다음과 같습니다.

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SendMail(Edit3.Text, StrToInt(Edit4.Text), Edit1.Text, Edit2.Text, Edit5.Text, Memo1.Lines, Edit6.Text, Edit7.Text) then
    MessageLabel.Caption := ' '
  else
    MessageLabel.Caption := ' ';
end;

이 내용에 흥미가 있습니까?

현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:

java 메일 보내는 실례 코드 (이식 가능)

웹 프로젝트를 예로 들면 코드는 이식할 수 있다 우선 메일을 가져와야 합니다.jar 패키지, 그리고 자신의 클래스 만들기 1: HTMLSender 클래스 2: MyAuthenticator 클래스 3: MailActi...

텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.

CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.

indy10으로 163으로 메일을 보내는 예

좋은 웹페이지 즐겨찾기