자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

Firemonkey XE10에서 Send mail 문제

2017.03.01 22:41

당신이먼저 조회 수:437

배우고 익히는데 많은 도움에 항상 감사를 드립니다.

 

개발 버젼 : XE10 seattle 에서 Android 플랫폼으로 TIdSMTP 컴포넌트로 메일을 보내는 프로그램을 짜봤는데 윈도우 플랫폼에서는 메일이 시원스럽게 잘 보내집니다.

다만 Android 플랫폼에서는 보내지를 못합니다.

어느부분이 문제인지 알수가 없어 문의를 드립니다.

참고로 해당 소스도 보내드립니다. 

 

 

 

unit MailDemoU;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  FMX.MobilePreview,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdSMTP,IdSSLOpenSSL,
  IdMessage,IdText,IdAttachment, FMX.Edit, FMX.Controls.Presentation;

type
  THeaderFooterForm = class(TForm)
    Header: TToolBar;
    Footer: TToolBar;
    HeaderLabel: TLabel;
    Button1: TButton;
    edtEmailAddr: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    function SendMail(idFrom, pw, idTo, aSubject, aText: string): Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  HeaderFooterForm: THeaderFooterForm;

  gEmailFlag,
  gSecritCode : String;
implementation

{$R *.fmx}

 

function THeaderFooterForm.SendMail(idFrom, pw, idTo, aSubject, aText: string): Boolean;
var
  SMTP: TIdSMTP;
  SSL: TIdSSLIOHandlerSocketOpenSSL;
  MM: TIdMessage;
begin
  result := false;
  SMTP := TIdSMTP.Create(nil);
  SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  MM := TIdMessage.Create(nil);
  try
    SMTP.Host      := 'smtp.gmail.com';
    SMTP.Port      := 587; // 465 또는 587
    SMTP.Username  := idFrom;
    SMTP.Password  := pw;
    SMTP.IOHandler := SSL;
    SMTP.UseTLS    := utUseExplicitTLS;

    SSL.Host := SMTP.Host;
    SSL.Port := SMTP.Port;

    MM.From.Address := idFrom;
    MM.Recipients.EMailAddresses := idTo;
    MM.ContentTransferEncoding := 'base64';
    MM.Subject := aSubject;

    with TIdText.Create(MM.MessageParts, MM.Body) do
    begin
      CharSet := 'utf-8';
      Body.Text := aText;
    end;

       // send mail
    try
      try
        SMTP.Connect;
        SMTP.Send(MM);
        result := true;
      except
        on E: Exception do
          showmessage('ERROR: ' + E.Message);
      end;
    finally
      if SMTP.Connected then
        SMTP.Disconnect;
    end;
  finally
    SMTP.Free;
    SSL.Free;
    MM.Free;

  end;
end;


procedure THeaderFooterForm.Button1Click(Sender: TObject);
Var
   idFrom    ,
   pw        ,
   idTo      ,
   aSubject  ,
   aText     ,
   sEmailAddr : String;

begin
   gSecritCode:= '';

   gEmailFlag := 'N';
   sEmailAddr := edtEmailAddr.Text;
   With THeaderFooterForm do
   Begin

   End;


   idFrom      := 'aaaaaaaa@gmail.com';  // From Mail
   pw          := '1234567890';

   idTo        := sEmailAddr;
   aSubject    := 'Mail Test';
   aText       := 'Send Texting';


   if SendMail(idFrom, pw, idTo, aSubject, aText) <> TRUE  Then
      Begin
         ShowMessage('Check Mail addr. !!');
      End
   Else
      Begin
         ShowMessage('Completed of Send Mail. !!');
      End

 

 

end;

end.

 


 

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 20072
공지 유용한 관련 사이트 관리자2 2014.03.20 58977
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102605
1479 카메라 권한을 runtime 시에 권한설정하려고 합니다. [3] 김하나 2017.02.28 482
1478 des암호화 복구화 대해서 알고 싶습니다 [1] 헨씀히포 2017.02.28 1400
» XE10에서 Send mail 문제 [1] 당신이먼저 2017.03.01 437
1476 실행시 환경설정에러관련 [Error Error] Invalid PLATFORM [2] 대화마을 2017.03.02 216
1475 컴파일시 Parameter 설정값 때문에 에러가 나옵니다. [1] file 대화마을 2017.03.02 231
1474 xe7 에서 사용하던 프로젝트가 xe10 에선 오류가 납니다 목련 2017.03.02 172
1473 FMX Edit 한자 및 특수기호 입력 ( ※꼭 답변 부탁드립니다 ) [2] 로로봉 2017.03.02 580
1472 모바일 앱 컴파일 에러 질문드립니다...!! [1] syc 2017.03.02 356
1471 XE10 Seattle에서 VIEW 범위 질문 [1] 당신이먼저 2017.03.04 138
1470 프로그램 실행하면 편집중인 멀티페이지에서 시작하는 문제 [1] 스카이 2017.03.07 123
1469 Cannot create file "". 파일 이름, 디렉터리 이름 또는 볼륨 레이블 구문이 잘못되었습니다. [3] 황금의미르 2017.03.07 6096
1468 SQLite 확장자 구분은? [1] 스카이 2017.03.08 1033
1467 fmx TEDIT에 스케너로 입력시 속도개선방법문의드립니다. file 오바라미 2017.03.10 206
1466 LIstView 레이아웃 작업중에 질문드립니다~! syc 2017.03.10 135
1465 interbase Xe7 을 인스톨하고자합니다 [1] 모나도 2017.03.11 311
1464 Xe2 윈도우 10 설치 후 ide 실행시 Out of system resources [1] file kerry 2017.03.14 457
1463 소켓 컴포넌트(TServerSocket, TClientSocket) 설치 후 컴파일 시 "Unable to open include file 'Web.Win.Sockets.hpp'" 오류가 발생합니다. [4] file 데브기어 2017.03.15 1815
1462 RTL210.bpl 파일 관련 문의 드립니다. [1] 가나다99 2017.03.15 1276
1461 FRXCLASS.OBJ 링크에러 관련 문의 드립니다 [1] file 가나다99 2017.03.16 292
1460 FastReport 설치 오류 [1] file 박준형 2017.03.16 280