Q&A
- 이메일 관련......
indy로 이메일 보내는것에 대해 물어봅니다..
idmsg로 메세지를 구성하여 smtp로 보내는데..
Html코드가 안되서 그럽니다..
Content-Type := 'text/html'을 설정해서
보내는데..첨부파일없이는 잘되는데.. 파일첨부만하면..
html코드가 그대로 보여집니다.. 어떻게 하는지 부탁드립니다..
procedure TFrm_email.MsgProc() ; //메세지 작성..
const
htmlstr = '<html>' ;
space = '<br><br><br><br><br><br><br><br><br><br><br><br>' ;
brstring = '<br>' ;
var
Sender_valueF, Sender_value : String; //받는사람..
i,j : Integer ;
first_Flg : Boolean ;
susin : String ;
begin
//받는사람 처리..
susin := '<HR color=#8bb5e2> <DIV align=center> '
+ '<FONT face=굴림 size=2 color=#8bb5e2>본 메일은 정보통신부 권고 사항에 의거'
+ '제목에 [광고]라 표시된 광고 메일입니다.</FONT><BR> '
+ '<A style="PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 12px; '
+ 'PADDING-BOTTOM: 3px; COLOR: #ffff00; PADDING-TOP: 3px; FONT-FAMILY: 굴림;'
+ 'BACKGROUND-COLOR: #8bb5e2; TEXT-DECORATION: none"'
+ 'href="mailto:'
+ Init.Mail.Add + '">수신거부[Deny]</A>'
+ '<FONT color=#8bb5e2 size=2 color=#8bb5e2>버튼을 클릭하시면 수신거부처리가 이루어 집니다.<br>'
+ 'If you don''t want to receive this mail anymore, click here [Deny]</FONT>'
+ '</DIV> <HR color=#8bb5e2> </html>' ;
Sender_valueF := '' ;
Sender_value := '' ;
First_Flg := True ;
for i := 0 to Rx_List.Items.Count -1 do
begin
If Rx_List.Checked[i] then
begin
If First_flg then begin
sender_valueF := Mail_List[i] ;
First_Flg := False ;
end else Sender_value := sender_value + Mail_List[i] + ', ' ;
end ; //end if
end ; //end for
Sender_value := copy(sender_value,1,length(Sender_value) - 2) ; //마지막 , 없애기
//메세지맹그는거..
idMsg.Clear ;
idMsg.Headers.Text := 'Content-type: text/html';
idMsg.ContentType := 'text/html' ;
idMsg.From.Address := Init.Mail.Add ;
idMsg.From.Name := Init.Mail.User ;
idMsg.Subject := edit_title.Text ;
idMsg.Body.Append(htmlstr) ;
for j := 0 to memo.Lines.Count -1 do
begin
idMsg.Body.Append(Memo.Lines.Strings[j]) ;
idMsg.Body.Append(brstring);
end ;
idMsg.Body.Append(space);
idMsg.Body.Append(susin) ;
idMsg.Recipients.EMailAddresses := Sender_ValueF ;
idMsg.BCCList.EMailAddresses := Sender_Value ;
for i := 0 to List_file.Items.Count -1 do
TIdAttachment.Create(idMsg.MessageParts , list_file.Items.Strings[i]) ;
end ;
idmsg로 메세지를 구성하여 smtp로 보내는데..
Html코드가 안되서 그럽니다..
Content-Type := 'text/html'을 설정해서
보내는데..첨부파일없이는 잘되는데.. 파일첨부만하면..
html코드가 그대로 보여집니다.. 어떻게 하는지 부탁드립니다..
procedure TFrm_email.MsgProc() ; //메세지 작성..
const
htmlstr = '<html>' ;
space = '<br><br><br><br><br><br><br><br><br><br><br><br>' ;
brstring = '<br>' ;
var
Sender_valueF, Sender_value : String; //받는사람..
i,j : Integer ;
first_Flg : Boolean ;
susin : String ;
begin
//받는사람 처리..
susin := '<HR color=#8bb5e2> <DIV align=center> '
+ '<FONT face=굴림 size=2 color=#8bb5e2>본 메일은 정보통신부 권고 사항에 의거'
+ '제목에 [광고]라 표시된 광고 메일입니다.</FONT><BR> '
+ '<A style="PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 12px; '
+ 'PADDING-BOTTOM: 3px; COLOR: #ffff00; PADDING-TOP: 3px; FONT-FAMILY: 굴림;'
+ 'BACKGROUND-COLOR: #8bb5e2; TEXT-DECORATION: none"'
+ 'href="mailto:'
+ Init.Mail.Add + '">수신거부[Deny]</A>'
+ '<FONT color=#8bb5e2 size=2 color=#8bb5e2>버튼을 클릭하시면 수신거부처리가 이루어 집니다.<br>'
+ 'If you don''t want to receive this mail anymore, click here [Deny]</FONT>'
+ '</DIV> <HR color=#8bb5e2> </html>' ;
Sender_valueF := '' ;
Sender_value := '' ;
First_Flg := True ;
for i := 0 to Rx_List.Items.Count -1 do
begin
If Rx_List.Checked[i] then
begin
If First_flg then begin
sender_valueF := Mail_List[i] ;
First_Flg := False ;
end else Sender_value := sender_value + Mail_List[i] + ', ' ;
end ; //end if
end ; //end for
Sender_value := copy(sender_value,1,length(Sender_value) - 2) ; //마지막 , 없애기
//메세지맹그는거..
idMsg.Clear ;
idMsg.Headers.Text := 'Content-type: text/html';
idMsg.ContentType := 'text/html' ;
idMsg.From.Address := Init.Mail.Add ;
idMsg.From.Name := Init.Mail.User ;
idMsg.Subject := edit_title.Text ;
idMsg.Body.Append(htmlstr) ;
for j := 0 to memo.Lines.Count -1 do
begin
idMsg.Body.Append(Memo.Lines.Strings[j]) ;
idMsg.Body.Append(brstring);
end ;
idMsg.Body.Append(space);
idMsg.Body.Append(susin) ;
idMsg.Recipients.EMailAddresses := Sender_ValueF ;
idMsg.BCCList.EMailAddresses := Sender_Value ;
for i := 0 to List_file.Items.Count -1 do
TIdAttachment.Create(idMsg.MessageParts , list_file.Items.Strings[i]) ;
end ;
0
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 이상기
- 2005.06.17 20:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 김민석
- •
- 2005.06.17 18:58
- 2 COMMENTS
- /
- 0 LIKES
-
민스맘•2005.06.17 19:26sh.Range['C3:L3'].MergeCells := True; 제가 사용중인 겁니다.
-
김민석•2005.06.17 20:00감사합니다. ^^ 며칠 검색하고 고민하고 했었는데, 이렇게 쉽게 답을 얻을 수 있어서 다행입니다. 잘 사...
-
- 김형우
- 2005.06.17 14:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 송인화
- •
- 2005.06.17 10:14
- 1 COMMENTS
- /
- 0 LIKES
-
모영철•2005.06.17 18:18먼저 Query1.SQL.ADD('Where id = lantia'); 이렇게 하면 Where id = lantia 이렇게 들어가서 lantia를 ...
-
- 조희정
- •
- 2005.06.17 03:01
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2005.06.17 03:59안녕하세요. 최용일입니다. TStringList써보세요... <!--CodeS--> var &n...
-
- 이창혁
- 2005.06.17 02:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 파파앤민주
- •
- 2005.06.17 02:34
- 2 COMMENTS
- /
- 0 LIKES
-
nilriri™•2005.06.17 22:07팁란이었던거 같습니다. <!--CodeS--> ADOQuery1.Close; ADOQuery...
-
임우식•2005.06.17 08:43전 MySql을 사용하는데 파라미터를 사용하는것보다 사용하지 않고 직접 값을 넣어주는것이 훨씬 더 빠르...
-
- 정재성
- •
- 2005.06.17 00:46
- 2 COMMENTS
- /
- 0 LIKES
-
유응철•2005.06.22 03:39당연히 넣을 수 있죠.. 페이지컨트롤에다 넣는건데...음... 보시면 아실거에여...ㅡ.ㅡ; 저도 걍 테스트...
-
최용일•2005.06.17 04:04안녕하세요. 최용일입니다. 델파이의 TWebBrowser를 이용해보세요. TWebBrowser자체에서 히스토리 되...
-
- 우용우
- 2005.06.16 23:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 최영훈
- •
- 2005.06.16 22:53
- 1 COMMENTS
- /
- 0 LIKES
-
권태훈•2005.06.16 23:22리플을 달았었는데 문제가 해결 안된모양입니다. 헥사코드 $41을 바이너리로 보면 0100 0001입니다. $9...
-
- 엔터프라이즈
- 2005.06.16 21:41
- 0 COMMENTS
- /
- 0 LIKES
indy로 이메일 보내는것에 대해 물어봅니다.. idmsg로 메세지를 구성하여 smtp로 보내는데.. Html코드가 안되서 그럽니다.. Content-Type := 'text/html'을 설정해서 보내는데..첨부파일없이는 잘되는데.. 파일첨부만하면.. html코드가 그...
-
- 쎄미
- •
- 2005.06.16 21:25
- •
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2005.06.17 03:56안녕하세요. 최용일입니다. <!--CodeS--> TWebBrowser의 OnBeforeNavigate2에서 URL얻어올수 있...
-
쎄미•2005.06.17 07:49네이버로 테스트를 해봤는데 http://id.naver.com/nidlogin.login?id=제가 입력한 아이디&pw=비밀번호&ss...
-
최용일•2005.06.17 19:59안녕하세요. 최용일입니다. 웹페이지에서 값을 넘겨줄때 Post로 넘겨줘서 그런겁니다. 넘어오는 파라매...
-
- 장태원
- •
- 2005.06.16 21:03
- 1 COMMENTS
- /
- 0 LIKES
-
장태원•2005.06.16 22:42blob field 를 long raw 로 잡으니 잘되네. 대신, 한테이블 하나밖에 사용이 안되네요 ㅡㅡ;...
-
- 홍미자
- 2005.06.16 03:24
- 0 COMMENTS
- /
- 0 LIKES
-
- kivalan
- •
- 2005.06.16 01:35
- 1 COMMENTS
- /
- 0 LIKES
-
델파리•2005.09.15 02:11동영상 자막 넣는 콤퍼넌트가 자료실에 있습니다 그것을 사용해보심이 좋을듯하시네요. 즐푸하세요.
-
- 성주
- •
- 2005.06.15 19:18
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2005.06.17 04:07안녕하세요. 최용일입니다. uses절 순서때문에 그런듯 한데요... 에러가 난부분에 유닛명을 적어서 ...
-
-
김성진•2005.06.15 22:59우선은 감가상각은 회사마다 적용 룰이 틀립니다. 그리고 년도 감가상각율이 25%라면 일별로 보고 싶을 때...
-
아폴론•2005.06.16 00:56읽어 주셔서 감사합니다 물론 기본데이터 에는 감가상각율도 있습니다. 감각상각계산을 할 수 있는 ...
-
성더기•2005.06.17 19:53굳이 월별 감가 상각에 따른 고정 자산 현황을 보고자 한다면 디테일로 월별 상각액을 가져 가야 하지 않...
-
-
- 김광식
- •
- 2005.06.15 05:45
- 4 COMMENTS
- /
- 0 LIKES
-
graylevel•2005.06.16 08:29아래 URL은 표준 입력 및 표준 에러는 받아오는 예제입니다. 참조하세요. http://cbuilder....
-
김성진•2005.06.15 06:40확실하진 않지만 이렇게 해보세요 과거에 도스에서 사용 한던 프로그램의 경우 output값을 다음과 같이 ...
-
김광식•2005.06.15 07:02답변 감사합니다. 그런데 화면내용이 저장되지 않고 다른 내용이 저장됩니다. 혹시 다른 방법 있으면 알...
-
권태훈•2005.06.15 18:55꺽쇠한개는 저장(create), 두개는 추가(append)입니다. 다른 내용이 저장될수가 없습니다. 화면에 내...
-
- 임영민
- •
- 2005.06.15 04:28
- 2 COMMENTS
- /
- 0 LIKES
-
권태훈•2005.06.17 02:03글만 쓰고 버튼을 안 눌렀나... 똑같은거 두번쓰면 짜증나니까.. 짤게 답합니다. 노트북이 XP 프로...
-
김성진•2005.06.15 22:55우선 답은 안됩니다. 이유는 노트북에 있습니다. 노트북에 유선으로 들어온 것을 노트북 무선으로 받게...
-
- 이경원
- •
- 2005.06.15 03:03
- 1 COMMENTS
- /
- 0 LIKES
-
김성진•2005.06.15 23:12drivecombobox를 활용하세요 거기에는 자동으로 드라이브 리스트가 보이니 어떤 드라이브가 있는지 확인 ...
