새로운 글
새로운 덧글

자유롭게 질의 및 응답을 할 수 있는 게시판이며 어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
  • 제품설치/등록/제품 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

Firemonkey XE10에서 Send mail 문제

2017.03.01 22:41

당신이먼저 조회 수:138

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

 

개발 버젼 : 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.

 


 

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2019.4~2019.7 관리자 2015.01.22 6378
공지 유용한 관련 사이트 관리자2 2014.03.20 43704
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 85019
397 Tokyo 에서 컴파일 후 실행파일에 Malware 로 잡히는 증상발생 [3] file 크루노 2017.05.16 226
396 xe10.2 버전 서브 폼닫기 안됨 [2] 텔로스김 2017.05.12 190
395 10.2 에서 안드 빌드시 [ldandroid Error] "ld" exited with code 1. 에러문제 [1] 크루세더 2017.04.29 217
394 AnsiString을 사용할수 없나요? [1] 파란하늘 2017.04.18 240
393 태블릿 스플래시이미지에 9-Patch 이미지를 적용했을때 화면 이상 [5] 이지현 2017.04.06 114
392 IdHttp 대체 NetHTTPClient 관련하여.. [1] 제갈공명 2017.04.11 284
391 listview 오류 [7] file 제트콜 2017.04.06 77
390 InputBox 질문입니다. 희망나라 2017.03.28 46
389 [FMX] System.IOUtils 설정 위치는 implementation 밑에 있어야 하나요? [1] 스카이 2017.03.24 58
388 string 타입 질문입니다. [2] 희망나라 2017.03.20 69
387 TstringList Addobject 질문입니다. [1] 희망나라 2017.03.17 51
386 fmx TEDIT에 스케너로 입력시 속도개선방법문의드립니다. file 오바라미 2017.03.10 108
385 카메라 권한을 runtime 시에 권한설정하려고 합니다. [3] 김하나 2017.02.28 273
384 XE10 Seattle에서 VIEW 범위 질문 [1] 당신이먼저 2017.03.04 51
» XE10에서 Send mail 문제 [1] 당신이먼저 2017.03.01 138
382 구글 플레이스토어에 앱 등록시 openssl관련 등록거부 문제 [8] 김태윤 2017.02.20 641
381 델파이 IBLite 안드로이드 실행시문제 [1] 스카이 2017.02.22 96
380 파이어몽키에서 아이폰으로 설치시 e8000051에러가 납니다. file 김태윤 2017.02.15 43
379 앱 재실행 관련 문의드립니다. [1] 우정 2017.02.11 119
378 iOS 호환성 문제 해결방안 file 봉가이버 2017.02.06 125



광고 모듈이 설치되어 있지 않아 실행을 중단합니다..