Q&A
- [급합니다..]메일 보내기..
안녕하세요...
메일 보내는 프로그램을 짜고 있는데요....
SMTP컴포넌트를 사용하거든요....
프로그램 세계를 보니까
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Psock, NMsmtp;
type
Tfrmmail = class(TForm)
btnconnect: TButton;
btnsend: TButton;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
edthost: TEdit;
edtto: TEdit;
edtcc: TEdit;
edtsubject: TEdit;
edtfrom: TEdit;
Memo1: TMemo;
SMTP1: TNMSMTP;
procedure btnsendClick(Sender: TObject);
procedure btnconnectClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmmail: Tfrmmail;
implementation
{$R *.DFM}
function noparam : variant;
begin
TVarData(Result).VType := varError;
TVarData(Result).VError := DISP_E_PARAMNOTFOUND;
end;
procedure Tfrmmail.btnsendClick(Sender: TObject);
var
add : string;
begin
add := edtto.Text;
if edtcc.text <> '' then
add := add + ', '+ edtcc.text;
with smtp1 do
begin
docinput.headers.clear;
docinput.headers.add('To',edtto.text);
docinput.headers.add('From',edtfrom.text);
docinput.headers.add('CC',edtcc.text);
docinput.headers.add('Subject',edtsubject.text);
docinput.headers.add('Content-Type','TEXT/PLAIN charset=US-ASCII');
end;
with smtp1 do
senddoc(noparam, docinput.headers, memo1.text, " , ");
end;
procedure Tfrmmail.btnconnectClick(Sender: TObject);
begin
smtp1.remotehost := edthost.text;
smtp1.Connect(noparam, noparam);
end;
end.
이렇게 하면 된다던데....
자꾸 위의 docinput에서 에러가 뜹니다.....왜 그럴까요?
한 수 가르쳐 주십시오.....
메일 보내는 프로그램을 짜고 있는데요....
SMTP컴포넌트를 사용하거든요....
프로그램 세계를 보니까
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Psock, NMsmtp;
type
Tfrmmail = class(TForm)
btnconnect: TButton;
btnsend: TButton;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
edthost: TEdit;
edtto: TEdit;
edtcc: TEdit;
edtsubject: TEdit;
edtfrom: TEdit;
Memo1: TMemo;
SMTP1: TNMSMTP;
procedure btnsendClick(Sender: TObject);
procedure btnconnectClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmmail: Tfrmmail;
implementation
{$R *.DFM}
function noparam : variant;
begin
TVarData(Result).VType := varError;
TVarData(Result).VError := DISP_E_PARAMNOTFOUND;
end;
procedure Tfrmmail.btnsendClick(Sender: TObject);
var
add : string;
begin
add := edtto.Text;
if edtcc.text <> '' then
add := add + ', '+ edtcc.text;
with smtp1 do
begin
docinput.headers.clear;
docinput.headers.add('To',edtto.text);
docinput.headers.add('From',edtfrom.text);
docinput.headers.add('CC',edtcc.text);
docinput.headers.add('Subject',edtsubject.text);
docinput.headers.add('Content-Type','TEXT/PLAIN charset=US-ASCII');
end;
with smtp1 do
senddoc(noparam, docinput.headers, memo1.text, " , ");
end;
procedure Tfrmmail.btnconnectClick(Sender: TObject);
begin
smtp1.remotehost := edthost.text;
smtp1.Connect(noparam, noparam);
end;
end.
이렇게 하면 된다던데....
자꾸 위의 docinput에서 에러가 뜹니다.....왜 그럴까요?
한 수 가르쳐 주십시오.....
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김해중
- 1999.12.09 03:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 최미영
- •
- 1999.12.09 02:46
- 1 COMMENTS
- /
- 0 LIKES
-
김해중•1999.12.09 03:08최미영 wrote: > 레포트에서 그룹을 주려고 할때 > GroupBand의 expression속성의 Dataset에 그룹을 주려...
-
- 화앙비홍
- 1999.12.09 02:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 조성제
- 1999.12.09 02:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 심형성
- •
- 1999.12.09 01:49
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요... 메일 보내는 프로그램을 짜고 있는데요.... SMTP컴포넌트를 사용하거든요.... 프로그램 세계를 보니까 interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Ps...-
신승철•1999.12.16 02:00심형성 wrote: > 안녕하세요... > 메일 보내는 프로그램을 짜고 있는데요.... > SMTP컴포넌트를 사용하...
-
- 김매경
- •
- 1999.12.09 00:25
- 1 COMMENTS
- /
- 0 LIKES
-
배불뚝•1999.12.09 01:06김매경 wrote: > 데이타 베이스는 오라클8을 사용하고 있습니다. > > 테이블의 데이타를 조건별로 검색...
-
- 다급한넘.
- 1999.12.08 23:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 보헤미안
- 1999.12.08 23:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 송수현
- •
- 1999.12.08 23:28
- 1 COMMENTS
- /
- 0 LIKES
-
오기주•1999.12.09 00:01송수현 wrote: > 밑에 질문 했는데요 biSystemMenu를 falus로 하면 아무것도 안보이는데 > > 오른쪽 상...
-
- 윤병익
- 1999.12.08 23:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 유애선
- •
- 1999.12.08 22:53
- 2 COMMENTS
- /
- 0 LIKES
-
아자•2000.11.23 22:35유애선 wrote: > 안녕하세요.. > 오랜만에 글을 쓰게 되었어요.. > 또 모르는 것이 있어서.. 이렇게 도...
-
혀노•1999.12.09 04:22sql문을 보지 않고는 뭐가 잘못되었는지 알수가 없는것 같군요... 테이블 개수가 제한되어 있다고는 들어 ...
-
- 최만현
- •
- 1999.12.08 20:56
- 1 COMMENTS
- /
- 0 LIKES
-
김남일•1999.12.09 02:04Response.SendRedirect('http://yahoo.co.kr'); 이런식으로 하면 됩니다. 최만현 wrote: > 안녕하세...
-
- 델초보
- •
- 1999.12.08 20:53
- 1 COMMENTS
- /
- 0 LIKES
-
조복기•1999.12.08 21:56델초보 wrote: > 저는 비주얼 베이직을 주로사용하는데 이번에 델파이 5.0으로 특히 ado를 이용해서 > 프...
-
- 김매경
- •
- 1999.12.08 22:02
- 2 COMMENTS
- /
- 0 LIKES
-
bluechip•1999.12.08 22:40TDBGrid의 Cell을 색변화, DATA변화를 원하시는대로 나타낼수 있습니다 아래 Source를 참고하세요 !! ...
-
이선진•1999.12.08 21:05표시하려는 날짜필드의 data type이 string형일때 sql문 ->select substring(날짜,9,8) ... from ... wher...
-
- 김매경
- •
- 1999.12.08 19:11
- 2 COMMENTS
- /
- 0 LIKES
-
이선진•1999.12.08 20:37EditMaskBox의 EditText Property 값을 이용하세요. EditText Property는 Mask Character를 제외한 실제 ...
-
cabaret•1999.12.11 00:36이선진 wrote: > EditMaskBox의 EditText Property 값을 이용하세요. > EditText Property는 Mask Charac...
-
- 이영근
- 1999.12.08 19:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 김성진
- •
- 1999.12.08 18:58
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•1999.12.08 21:12김성진 wrote: > 안녕하세요 > DirectoryListBox에서 선택한 디렉토리의 서브디렉토리를 CheckListBox에...
-
- 무근
- 1999.12.08 12:49
- 0 COMMENTS
- /
- 0 LIKES
-
- saint
- •
- 1999.12.08 08:28
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•1999.12.08 17:44saint wrote: > 델파이로 데이터베이스를 작성하고자 하는데 index key와 primary key에 대해서 정확한 의...
-
-
박진선•1999.12.09 04:192)번의 경우 form의 close 이벤트에 action := cafree; 라고 쓰면 됩니다. 김형석 wrote: ...
-
김형석•1999.12.09 07:08박진선님 정말정말 감사합니다.
-
김형석•1999.12.09 07:08박진선님 정말정말 감사합니다.
-
> 안녕하세요...
> 메일 보내는 프로그램을 짜고 있는데요....
> SMTP컴포넌트를 사용하거든요....
> 프로그램 세계를 보니까
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls, ExtCtrls, Psock, NMsmtp;
>
> type
> Tfrmmail = class(TForm)
> btnconnect: TButton;
> btnsend: TButton;
> Panel1: TPanel;
> Panel2: TPanel;
> Panel3: TPanel;
> Panel4: TPanel;
> Panel5: TPanel;
> edthost: TEdit;
> edtto: TEdit;
> edtcc: TEdit;
> edtsubject: TEdit;
> edtfrom: TEdit;
> Memo1: TMemo;
> SMTP1: TNMSMTP;
> procedure btnsendClick(Sender: TObject);
> procedure btnconnectClick(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> frmmail: Tfrmmail;
>
> implementation
>
> {$R *.DFM}
>
> function noparam : variant;
> begin
> TVarData(Result).VType := varError;
> TVarData(Result).VError := DISP_E_PARAMNOTFOUND;
> end;
>
>
> procedure Tfrmmail.btnsendClick(Sender: TObject);
>
> var
> add : string;
>
> begin
>
> add := edtto.Text;
> if edtcc.text <> '' then
> add := add + ', '+ edtcc.text;
> with smtp1 do
> begin
>
> docinput.headers.clear;
> docinput.headers.add('To',edtto.text);
> docinput.headers.add('From',edtfrom.text);
> docinput.headers.add('CC',edtcc.text);
> docinput.headers.add('Subject',edtsubject.text);
> docinput.headers.add('Content-Type','TEXT/PLAIN charset=US-ASCII');
> end;
>
>
> with smtp1 do
> senddoc(noparam, docinput.headers, memo1.text, " , ");
> end;
>
> procedure Tfrmmail.btnconnectClick(Sender: TObject);
> begin
> smtp1.remotehost := edthost.text;
> smtp1.Connect(noparam, noparam);
> end;
>
> end.
> 이렇게 하면 된다던데....
> 자꾸 위의 docinput에서 에러가 뜹니다.....왜 그럴까요?
> 한 수 가르쳐 주십시오.....
>
docinput에서 에러는...
아마 제 생각에는 OBJECT INSPECTOR의 edit명과 폼에 작성한 edit명이
틀려서 그런게 아닐까요.
저도 예전에 이 샘플로 해보았는데..
위와 같은 오류가 있어서 잘 안되었거든요.
아니면 문법상 오류가 생긴것이 아닐까요?
그리고 위의 코딩상에 senddoc(noparam, docinput.headers, memo1.text, " , ");
에서 "."는 문법 에러가 나더군요.. 그래서 저는 '',''로 바꾸었더니 해결되었습니다.
잘해보셔요..