You can use methode Loadfrom to load this in TMailMessage2000.(exsample: TMailMessage2000.LoadFromFile( RowMailFromExchangeServer.txt ) )
Then try to get the attachment.
You see the attachmen named file_0, but it should be OutlookMail.msg.
Try to save the attachment file_0 in your local system.
And try to open it with Outlook, and it failed.
Thanks
Zhentao Song/!
P>
tmail2000@yahoogroups.com schrieb am 09.09.05 06:12:15:
Hello, Zhentao.
who can fix the first bug? or ideal There are Bugs in TMailMessage2000. Version 1.10.1 if that mail contains an Attachment, and the Attachment is also in a Mail Format, like .msg File. Then in the TMailMessage2000 there is only a File named file_0, you can not open this file with aother Mail Client Program like Outlook or Outlook Express. The same Problem if Attachment is a Groupwise Mail or Luto Notes Mail. Some time the Attachment is lost.
I'll try. but I need the data first. Will you forward me the error mail source as it is just retrieved from the POP server ?
/// !
Kunikazu Okada ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Tokyo, Japa
n ___________________________________________///
------------------------ Yahoo! Groups Sponsor --------------------~--> Get Bzzzy! (real tools to help you find a job). Welcome to the Sweet Life. http://us.click.yahoo.com/A77XvD/vlQLAA/TtwFAA/i7folB/TM --------------------------------------------------------------------~->
The group's home page is here: http://groups.yahoo.com/group/tmail2000/
To post a message: send email to: tmail2000@yahoogroups.com or go here: http://groups.yahoo.com/group/tmail2000/post
To modify your subcription options (e.g. stop receiving discussions) go to: http://groups.yahoo.com/mygroups/tmail2000/join or http://groups.yahoo.com/convwiz
To subscribe/unsubscribe, send blank email to: tmail2000-subscribe@yahoogroups.com tmail2000-unsubscribe@yahoogroups.com
To talk only with the moderator, d!
eveloper of TMail2000, write email to: mycelo@...
Please expect 1-2 weeks for my response.
PLEASE POST IN ENGLISH!
Yahoo! Groups Links
<*> To visit your group on the web, go to: http://groups.yahoo.com/group/tmail2000/
<*> To unsubscribe from this group, send an email to: tmail2000-unsubscribe@yahoogroups.com
<*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
my Bugfix for the second Bug below dosn't work korrectly.
with my Code I have problem, if the Email has HTML body.
some one has idea?
Thanks
Zhentao
"Zhentao Song" <z.song@...> schrieb am 07.09.05 15:24:14:
Hi,
who can fix the first bug? or idea
There are Bugs in TMailMessage2000. Version 1.10.1
1. I use POP3 to get a Mail from Mail Server and put it in TMailMessage2000.
That works fein, but!
if that mail contains an Attachment, and the Attachment is also in a Mail Format, like .msg File. Then in the TMailMessage2000 there is only a File named file_0, you can not open this file with aother Mail Client Program like Outlook or Outlook Express. The same Problem if Attachment is a Groupwise Mail or Luto Notes Mail. Some time the Attachment is lost.
2. A Mail has Plaintext Body, and contains a THML File as Attachment. I have Problem with such Mail, if I put this Mail in TMailMessage2000, then the contents of the Attachment is put in the Property TextHTML, and show in the HTML Body, there is not Attachment in TMailMessage2000.
I fixed this bug with Source Code blow:
function GetText(Info: String): Boolean; var Buffer: PChar;
begin
!
nbsp; Result := False; &n
bsp; if (FTextPlainPart = nil) and (FTextHTMLPart = nil) then //Z.Song 06.09.2005 Attachment should not in Body.
begin if (FTextPlainPart = nil) and (Info = _T_P) then begin
if Part.Decode and (Part.Decoded.Size > 0) then begin
3 problems with addresses like '"Name, Firstname" <name@...>' (changed GetDestAddress, GetDestName).
function TMailMessage2000.GetDestAddress(Field: String; const Index: Integer): String; var Address, Dests: String; Count, Loop: Integer; Quote, Clammy: Boolean; begin Dests := TrimSpace(GetLabelValue(Field)); Count := 0; Address := ''; Quote := False; Clammy := False; for Loop := 1 to Length(Dests) do begin if Dests[Loop] = '"' then Quote := not Quote; if Dests[Loop] = '(' then !
//Z.Song 07.09.05 Clammy := True; if Dests[Loop] = ')' then //Z.Song 07.09.05 Clammy := False; if (not Quote) and (not Clammy) and (Dests[Loop] in [',', ';']) then Inc(Count); if Count > Index then Break; if Count = Index then begin if Quote then //Z.Song 18.03.05 Address := Address + Dests[Loop] else if (not Clammy) and (not (Dests[Loop] in [',', ';', '<', '>', '[', ']', '(', ')', #32])) then Address := Address + Dest!
s[Loop]; if (Dests[Loop] = '<') a
nd (not Quote) then Address := ''; if (Dests[Loop] = '>') and (not Quote) then break; end; end; Result := TrimSpace(Address); end;
function TMailMessage2000.GetDestName(Field: String; const Index: Integer): String; var Dests: String; Loop: Integer; Count: Integer; Quote: Boolean; Name: String;
Hello, Zhentao.
who can fix the first bug? or ideal
There are Bugs in TMailMessage2000. Version 1.10.1
if that mail contains an Attachment, and the Attachment is also in a Mail
Format, like .msg File.
Then in the TMailMessage2000 there is only a File named file_0, you can not
open this file with aother Mail Client Program like Outlook or Outlook Express.
The same Problem if Attachment is a Groupwise Mail or Luto Notes Mail. Some
time the Attachment is lost.
I'll try. but I need the data first.
Will you forward me the error mail source
as it is just retrieved from the POP server ?
/// Kunikazu Okada ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Tokyo, Japan ___________________________________________///
There are Bugs in TMailMessage2000. Version 1.10.1
1. I use POP3 to get a Mail from Mail Server and put it in TMailMessage2000.
That works fein, but if that mail contains an Attachment, and the Attachment is also in a Mail Format, like .msg File. Then in the TMailMessage2000 there is only a File named file_0, you can not open this file with aother Mail Client Program like Outlook or Outlook Express.!
The same Problem if Attachment is a Groupwise Mail or Luto Notes Mail. Some time the Attachment is lost.
2. A Mail has Plaintext Body, and contains a THML File as Attachment. I have Problem with such Mail, if I put this Mail in TMailMessage2000, then the contents of the Attachment is put in the Property TextHTML, and show in the HTML Body, there is not Attachment in TMailMessage2000.
I fixed this bug with Source Code blow:
function GetText(Info: String): Boolean; var Buffer: PChar;
begin
Result := False; if (FTextPlainPart = nil) and (FTextHTMLPart = nil) then //Z.Song 06.09.2005 Attachment should not in Body.
begin if (FTextPlainPart = nil) and (Info = _T_P!
) then begin
 
; if Part.Decode and (Part.Decoded.Size > 0) then begin
3 problems with address!
es like '"Name, Firstname" <na
me@...>' (changed GetDestAddress, GetDestName).
function TMailMessage2000.GetDestAddress(Field: String; const Index: Integer): String; var Address, Dests: String; Count, Loop: Integer; Quote, Clammy: Boolean; begin Dests := TrimSpace(GetLabelValue(Field)); Count := 0; Address := ''; Quote := False; Clammy := False; for Loop := 1 to Length(Dests) do begin if Dests[Loop] = '"' then Quote := not Quote; if Dests[Loop] = '(' then //Z.Song 07.09.05 Clammy := True; if Dests[Loop] = ')' then //Z.Song 07.09.05 Clammy := False; if (not Quote) and (not Clammy) and (Dests[Loo!
p] in [',', ';']) then Inc(Count); if Count > Index then Break; if Count = Index then begin if Quote then //Z.Song 18.03.05 Address := Address + Dests[Loop] else if (not Clammy) and (not (Dests[Loop] in [',', ';', '<', '>', '[', ']', '(', ')', #32])) then Address := Address + Dests[Loop]; if (Dests[Loop] = '<') and (not Quote) then Address := ''; if (Dests[Loop] = '>') and (not Quote) then break; &n!
bsp; end; end; Result := TrimSpace(Address); en
d;
function TMailMessage2000.GetDestName(Field: String; const Index: Integer): String; var Dests: String; Loop: Integer; Count: Integer; Quote: Boolean; Name: String;
I want create an email client with a database, but the messages in
html are not saved well, only save "..multipart message...".
I save each message in the database by a "for", and can't save the
html message (mime multipart message).
Can you help me with an application like this?
thanx in advance
--- In tmail2000@yahoogroups.com, "Chiara Newry" <chiara@i...> wrote:
> Hi,
> What don't you understand?
>
> _____
>
> From: tmail2000@yahoogroups.com [mailto:tmail2000@yahoogroups.com]
On Behalf
> Of Cristian Ezequiel
> Sent: Tuesday, July 26, 2005 03:57 PM
> To: tmail2000@yahoogroups.com
> Subject: [tmail2000] Need an example mail
>
>
> HI, can anybody help with a apliccation example, I have the demo
> example but with this example I don't understand.
> Thanks in advance
>
>
>
>
>
>
>
> =============================================================
>
> The group's home page is here:
> http://groups.yahoo.com/group/tmail2000/
>
> To post a message:
> send email to: tmail2000@yahoogroups.com
> or go here: http://groups.yahoo.com/group/tmail2000/post
>
> To modify your subcription options (e.g. stop receiving discussions)
> go to:
> http://groups.yahoo.com/mygroups/tmail2000/join or
> http://groups.yahoo.com/convwiz
>
> To subscribe/unsubscribe, send blank email to:
> tmail2000-subscribe@yahoogroups.com
> tmail2000-unsubscribe@yahoogroups.com
>
> To talk only with the moderator, developer of TMail2000, write
email to:
> mycelo@y...
>
> Please expect 1-2 weeks for my response.
>
> PLEASE POST IN ENGLISH!
>
>
>
>
>
> SPONSORED LINKS
> C
> <http://groups.yahoo.com/gads?
t=ms&k=C+programming+language&w1=C+programming
>
+language&w2=Computer+programming+languages&w3=The+c+programming+langu
age&w4
>
=C+++programming+language&w5=List+of+programming+languages&w6=Programm
ing+la
> nguages&c=6&s=188&.sig=uAODdjBuPf2AFmZC4D7SEA> programming language
> Computer
> <http://groups.yahoo.com/gads?
t=ms&k=Computer+programming+languages&w1=C+pro
>
gramming+language&w2=Computer+programming+languages&w3=The+c+programmi
ng+lan
>
guage&w4=C+++programming+language&w5=List+of+programming+languages&w6=
Progra
> mming+languages&c=6&s=188&.sig=y_P2xIdODNaACD_DIso--g> programming
languages
> The
> <http://groups.yahoo.com/gads?
t=ms&k=The+c+programming+language&w1=C+program
>
ming+language&w2=Computer+programming+languages&w3=The+c+programming+l
anguag
>
e&w4=C+++programming+language&w5=List+of+programming+languages&w6=Prog
rammin
> g+languages&c=6&s=188&.sig=LYwwGQcbg4iMgXAcxGNaUQ> c programming
language
>
> C
> <http://groups.yahoo.com/gads?
t=ms&k=C+++programming+language&w1=C+programmi
>
ng+language&w2=Computer+programming+languages&w3=The+c+programming+lan
guage&
>
w4=C+++programming+language&w5=List+of+programming+languages&w6=Progra
mming+
> languages&c=6&s=188&.sig=vc-tNFvVPlU95RrPUEEQWw> programming
language List
> <http://groups.yahoo.com/gads?
t=ms&k=List+of+programming+languages&w1=C+prog
>
ramming+language&w2=Computer+programming+languages&w3=The+c+programmin
g+lang
>
uage&w4=C+++programming+language&w5=List+of+programming+languages&w6=P
rogram
> ming+languages&c=6&s=188&.sig=N4t1_rAV70WeS0TXNSIuwg> of programming
> languages Programming
> <http://groups.yahoo.com/gads?
t=ms&k=Programming+languages&w1=C+programming+
>
language&w2=Computer+programming+languages&w3=The+c+programming+langua
ge&w4=
>
C+++programming+language&w5=List+of+programming+languages&w6=Programmi
ng+lan
> guages&c=6&s=188&.sig=VzaKrIWH0EAAnzSwDNT1XQ> languages
>
> _____
>
> YAHOO! GROUPS LINKS
>
>
>
> * Visit your group "tmail2000
> <http://groups.yahoo.com/group/tmail2000> " on the web.
>
>
> * To unsubscribe from this group, send an email to:
> tmail2000-unsubscribe@yahoogroups.com
> <mailto:tmail2000-unsubscribe@yahoogroups.com?subject=Unsubscribe>
>
>
> * Your use of Yahoo! Groups is subject to the Yahoo! Terms of
Service
> <http://docs.yahoo.com/info/terms/> .
>
>
> _____
>
>
>
>
> IMPORTANT NOTE:
>
> This e-mail message and/or attachment(s) is intended for use only
by the individual or entity to which it is specifically addressed
above and should not be read by, or delivered to, any other person.
Such e-mail and/or attachment(s) may contain privileged or
confidential information, the disclosure or other use of which by
other than the intended recipient may result in the breach of certain
laws of the infringement of rights of third parties. It is believed
but not warranted that this e-mail and any attachment(s) is/are virus
free. You must therefore take full responsibility for virus checking.
If you have received this e-mail and/or attachment(s) in error,
please notify the sender immediately at the above address, so that
appropriate arrangements for the return of this transmission and any
confirmation copy which you may receive at the sender's expense.
Thank you for your co-operation and assistance.
From: tmail2000@yahoogroups.com [mailto:tmail2000@yahoogroups.com] On Behalf Of Cristian Ezequiel Sent: Tuesday, July 26, 2005 03:57 PM To: tmail2000@yahoogroups.com Subject: [tmail2000] Need an example mail
HI, can anybody help with a apliccation example, I have the demo example but with this example I don't understand. Thanks in advance
IMPORTANT NOTE:
This e-mail message and/or attachment(s) is intended for use only by the individual or entity to which it is specifically addressed above and should not be read by, or delivered to, any other person. Such e-mail and/or attachment(s) may contain privileged or confidential information, the disclosure or other use of which by other than the intended recipient may result in the breach of certain laws of the infringement of rights of third parties. It is believed but not warranted that this e-mail and any attachment(s) is/are virus free. You must therefore take full responsibility for virus checking. If you have received this e-mail and/or attachment(s) in error, please notify the sender immediately at the above address, so that appropriate arrangements for the return of this transmission and any confirmation copy which you may receive at the sender's expense. Thank you for your co-operation and assistance.
Hi,
had the same problem (puretec, schlund etc switched to a diffrent
RFC).
Put a "sleep(1000);" between the "smtp2001.connect, .ehlo, .
AuthLogin and .Login"-Methods and it will work again. If it doesn't,
increase the milliseconds value.
Chris
--- In tmail2000@yahoogroups.com, "the_josch" <jochen@m...> wrote:
> Hi!
>
> I'm using Mail2000 1.10.3 for my small newsletter software.
>
> Since four days I can't send mails using "1und1" with smtp auth.
Only
> if I step in the code using the debugger it'll work.
>
> If I use other providers instead of "1und1" my program works.
The "2nd
> level support" from "1und1" will not or could not help me.
>
> Does somebody has an idea?
>
> Thanks a lot!
>
> Regards!
This e-mail message and/or attachment(s) is intended for use only by the individual or entity to which it is specifically addressed above and should not be read by, or delivered to, any other person. Such e-mail and/or attachment(s) may contain privileged or confidential information, the disclosure or other use of which by other than the intended recipient may result in the breach of certain laws of the infringement of rights of third parties. It is believed but not warranted that this e-mail and any attachment(s) is/are virus free. You must therefore take full responsibility for virus checking. If you have received this e-mail and/or attachment(s) in error, please notify the sender immediately at the above address, so that appropriate arrangements for the return of this transmission and any confirmation copy which you may receive at the sender's expense. Thank you for your co-operation and assistance.
Hi
i have a question about paradox database in delphi for foreign
language data.
i have a database which have farsi language data.now i can sort it in
arabic alphabetic order however 4 alphabet of farsi
(persian),gaf,pe,zhe.che is not ordered in this case
*how can i sort it according to farsi alphabetic?
*is there any BDE language driver for foreign languages
specially farsi?
best regards
mohammad
> Hi Phryzer
> Thanks a lot for help! Now, I can login to my server(I had Mail2000 in
> old version, so there were not properties of authorization - in
> v1.10.3 it is). This is my server response text:
> 220 ServerSMTP ESMTP
> 250-ServerSMTP
> 250-PIPELINING
> 250-AUTH=LOGIN PLAIN
> 250-AUTH LOGIN PLAIN
> 250-STARTTLS
> 250-SIZE
> 250-X-RCPTLIMIT 100
> 250 8BITMIME
> 334 VXNlcm5hbWU6
> 235 go ahead
>
> I am logged in...
>
> In the demo program it is writing that i am connected. But, when I try
> to send an e-mail it doesn't work - I can see info: "Failed on send"
> Why? I did not change anything in source of demo program...
> If somebody knows what is going on, please answer me.
> Regards, Pepe
Hi, OK, I can send an email... I have to said that there is an error
in demo program. SSoft explore that after adding adresses in
Header(Save fields to header)we must edit in Source (header field) it
manually and remove some excess signs (<>).
for example: in line: To: "Name" <EmailAdress>, <>
chars "," and "<>" are incorrect.
--------------------------------
But, I have another problem...
how to add to HTML mail 2 pictures(not as attachement, but to html code).
I want to add picture as a background
<BODY BACKGROUND="cid:background.jpg" TEXT="#000000" LINK="#0000FF"
ALINK="#FF0000" VLINK="#000080">
and a picture in the left corner of message:
<IMG alt="" hspace=0 src="cid:pope.jpg" align=left border=0>
thanks, for any help...
Regards, Pepe
--- In tmail2000@yahoogroups.com, "Andreas" <phryzer@g...> wrote:
> --- In tmail2000@yahoogroups.com, "pepe_pol_barbarian"
> <pepe_pol_barbarian@y...> wrote:
> > Hello!
> > I would like to know how to send an email using TMail2000 component
> > with SMTP authorization.
> > I use demo program and I would like to know how to create smtp
> > authorization in this particular demo program. Is it possible? I can't
> > send an HTML formatted email (text with two pictures in it) because of
> > it(and any other).
> > Please help me with that. Does anyone did it?
> >
> > Ps:In concurent component, INDY SMTP, an authorization is possible,
> > and is very simple - we must only set some component properties. So,
> > how to do that in Mail2000 component?
> >
> > Thanks, best regards
> > Pepe
>
> Hi Pepe,
>
> simply set the Properties 'Username' and 'Password' on the TSMTP2000
> component to the appropriate values and set the property 'Handshaking'
> to 'hsAuto'. Then simply call 'connect'. This will automatically
> perform a login, if the server requires it.
>
> Sample:
>
> smtp: TSMTP2000;
>
> smtp := TSMTP2000.Create;
>
> ... initialize other properties, etc. ...
>
> smtp.Username := 'Pepe';
> smtp.Password := '....';
> smtp.Handshaking := hsAuto;
> smtp.Connect;
>
> Good luck,
>
> Phryzer
Hi Phryzer
Thanks a lot for help! Now, I can login to my server(I had Mail2000 in
old version, so there were not properties of authorization - in
v1.10.3 it is). This is my server response text:
220 ServerSMTP ESMTP
250-ServerSMTP
250-PIPELINING
250-AUTH=LOGIN PLAIN
250-AUTH LOGIN PLAIN
250-STARTTLS
250-SIZE
250-X-RCPTLIMIT 100
250 8BITMIME
334 VXNlcm5hbWU6
235 go ahead
I am logged in...
In the demo program it is writing that i am connected. But, when I try
to send an e-mail it doesn't work - I can see info: "Failed on send"
Why? I did not change anything in source of demo program...
If somebody knows what is going on, please answer me.
Regards, Pepe
--- In tmail2000@yahoogroups.com, "pepe_pol_barbarian"
<pepe_pol_barbarian@y...> wrote:
> Hello!
> I would like to know how to send an email using TMail2000 component
> with SMTP authorization.
> I use demo program and I would like to know how to create smtp
> authorization in this particular demo program. Is it possible? I can't
> send an HTML formatted email (text with two pictures in it) because of
> it(and any other).
> Please help me with that. Does anyone did it?
>
> Ps:In concurent component, INDY SMTP, an authorization is possible,
> and is very simple - we must only set some component properties. So,
> how to do that in Mail2000 component?
>
> Thanks, best regards
> Pepe
Hi Pepe,
simply set the Properties 'Username' and 'Password' on the TSMTP2000
component to the appropriate values and set the property 'Handshaking'
to 'hsAuto'. Then simply call 'connect'. This will automatically
perform a login, if the server requires it.
Sample:
smtp: TSMTP2000;
smtp := TSMTP2000.Create;
... initialize other properties, etc. ...
smtp.Username := 'Pepe';
smtp.Password := '....';
smtp.Handshaking := hsAuto;
smtp.Connect;
Good luck,
Phryzer
Hello!
I would like to know how to send an email using TMail2000 component
with SMTP authorization.
I use demo program and I would like to know how to create smtp
authorization in this particular demo program. Is it possible? I can't
send an HTML formatted email (text with two pictures in it) because of
it(and any other).
Please help me with that. Does anyone did it?
Ps:In concurent component, INDY SMTP, an authorization is possible,
and is very simple - we must only set some component properties. So,
how to do that in Mail2000 component?
Thanks, best regards
Pepe
Hi!
I'm using Mail2000 1.10.3 for my small newsletter software.
Since four days I can't send mails using "1und1" with smtp auth. Only
if I step in the code using the debugger it'll work.
If I use other providers instead of "1und1" my program works. The "2nd
level support" from "1und1" will not or could not help me.
Does somebody has an idea?
Thanks a lot!
Regards!
Hi
Change EncodeQuotedPrintable function as bellow.
João
function EncodeQuotedPrintable(const Texto: String; const HeaderLine:
Boolean): String;
var
nPos: Integer;
LineLen: Integer;
Buffer: TStringList;
j: Integer;
re, Line2: ^string;
b: Boolean;
begin
Result := '';
New( re );
New( line2 );
re^ := '';
j := Length( Texto );
for nPos := 1 to Length(Texto) do
begin
Form1.Gauge1.Progress := Trunc( ( 100 * nPos ) / j );
b := (Texto[nPos] > #127) or
(Texto[nPos] = '=') or
((Texto[nPos] < #32) and (not (Texto[nPos] in [#9, #10,
#13]))) or
((nPos < Length(Texto)) and (Texto[nPos] = #13) and (Texto
[nPos+1] <> #10)) or
((nPos = Length(Texto)) and (Texto[nPos] = #13)) or
((nPos > 1) and (Texto[nPos] = #10) and (Texto[nPos-1] <>
#13)) or
((nPos = 1) and (Texto[nPos] = #10)) or
((Texto[nPos] in [#9..#32,
#39, '?', '<', '>', '(', ')', '"', '_']) and HeaderLine);
case b of
True : begin
if Texto[ nPos ] = '=' then
re^ := re^ + '3D'
else
Re^ := Re^ + '=' + PadL( Format( '%2x', [ Ord(
Texto[ nPos ] ) ] ), 2, '0');
end;
else
Re^ := Re^ + Texto[nPos];
end;
// Encode trailing spaces/tabs
if not HeaderLine then
begin
if (Length(Re^ ) > 2)
and (Re^[Length(Re^)] = #10)
and (Re^[Length(Re^)-1] = #13)
and (Re^[Length(Re^)-2] in [#9, #32]) then
begin
LineLen := Length(Re^)-2;
Line2^ := '';
while (LineLen >= 1) and (Re^[LineLen] in [#9, #32]) do
begin
case Re^[LineLen] of
#09: Line2^ := '=09'+Line2^;
#32: Line2^ := '=20'+Line2^;
end;
Dec(LineLen);
if LineLen = 0 then Break;
end;
Re^ := Copy(Re^, 1, LineLen)+Line2^+#13#10;
end;
end;
Application.ProcessMessages;
end;
Dispose( Line2 );
// Insert soft linebreaks
if not HeaderLine then
begin
Buffer := TStringList.Create;
Buffer.Text := Re^;
nPos := 0;
while nPos < Buffer.Count do
begin
LineLen := Length(Buffer[nPos]);
while LineLen >= _LINELEN do
begin
if (LineLen >= 3)
and (Buffer[nPos][LineLen] in ['0'..'9', 'A'..'F'])
and (Buffer[nPos][LineLen-1] in ['0'..'9', 'A'..'F'])
and (Buffer[nPos][LineLen-2] = '=') then
Dec(LineLen, 3)
else
Dec(LineLen, 1);
Application.ProcessMessages;
end;
if LineLen < Length(Buffer[nPos]) then begin
Buffer.Insert(nPos+1, Copy(Buffer[nPos], LineLen+1, Length
(Buffer[nPos])));
Buffer[nPos] := Copy(Buffer[nPos], 1, LineLen)+'=';
end;
Inc(nPos);
Application.ProcessMessages;
end;
Re^ := Buffer.Text;
Result := Re^;
Dispose( re );
Application.ProcessMessages;
end;
end;
Insert a few application.processmessages in the routine so the system
responds during the encoding process.
> Code the Method "EncodeQuotedPrintable" Is very slow. If It Deal with
a
> long Email,
> the system is no response.If I can not resolve this problem I have to
give
> up this good object.
hi,
I am glad to get MailMessage2000, and I use it develop my email system.I very
like this object. but now I have some trouble.I found In the source Code the
Method "EncodeQuotedPrintable" Is very slow. If It Deal with a long Email,
the system is no response.If I can not resolve this problem I have to give up
this good object.
Can you help and Can somebody help me......
Thanks a lot.
vibowl
ver. 1.10.3
mail2000 do not work with MS ExchangeServer as SMTP server
TSMTP2000 is connected but TMailMessage2000 dont send message
in demo app. is the same problem, hello button work ok, echo button
work ok, send button do not work
in ver. 1.10.1 all is ok
Where's the source for the Demo that works with the latest version?
I have source for an older version of the library, but some
interfaces have changed slightly.
It's normal if your CPU climbs to 100% for short periods, don't worry.
And the sending time is bigger because the server should authorize
every recipient before actually receiving the data.
Did you try another server?
--- "Bianco.poa" <bianco.poa@...> wrote:
> I am making tests, the body of the message is small! until if I do
> not place
> text none in the body the processing I am high. E also I notice that
> the
> sending time is bigger if increase the number of occult addressees.
>
> In portuguese
>
> Estou fazendo testes, o corpo da mensagem é pequena!
> até se eu não coloco texto nenhum no corpo o processamento é alto.
> E também noto que o tempo de envio fica maior se aumento o número de
> destinatários ocultos.
>
> -----Original Message-----
> From: Marcello [mailto:mycelo@...]
> Sent: quinta-feira, 18 de novembro de 2004 15:19
> To: tmail2000@yahoogroups.com
> Subject: RE: [tmail2000] processing of my machine goes the 100%
>
>
> And what do you have inside Mbody.Text?
> Any large data?
>
> --- "Bianco.poa" <bianco.poa@...> wrote:
>
> > I'm trying to send... E when it executes "send" goes to the maximum
> of
> > the processing. It follows the Code below source:
> >
> > In Portuguese
> > ( Estou tentando enviar...
> > E quando executa o "send" ele vai ao maximo do processamento.
> > Segue o Csdigo fonte abaixo: )
> >
> >
> > SMTP2000.Host := 'smtp.poa.terra.com.br';
> > SMTP2000.UserName := 'xxxxxx';
> > SMTP2000.Password := 'xxxxxx';
> >
> > MailMessage.AttachEncoding := etBase64;
> > MailMessage.Charset := 'iso-8859-1';
> > MailMessage.EmbedMethod := emContentLocation;
> > MailMessage.TextEncoding := etQuotedPrintable;
> >
> > If not SMTP2000.Connect then begin
> > MErro.Lines.Add(SMTP2000.LastResponse);
> > exit;
> > end;
> >
> > SMTP2000.MailMessage.SetFrom( 'Name' ,
> 'informatica@...'
> > ); {Quem esta enviando}
> > SMTP2000.MailMessage.BccList.Clear; // Limpa a lista de
> > destinatarios
> > SMTP2000.MailMessage.BccList.Add('name','bianco@...');
> > SMTP2000.MailMessage.Priority := mpNormal;
> >
> > SMTP2000.MailMessage.Subject := Eassunto.Text;
> > SMTP2000.MailMessage.SetTextHTML( Mbody.Text);
> >
> > MailMessage.Date := StrToDateTime(DateToStr( Date() ) );
> >
> >
> > If SMTP2000.MailMessage.NeedNormalize then
> > SMTP2000.MailMessage.Normalize;
> >
> > If SMTP2000.MailMessage.NeedRebuild then
> > SMTP2000.MailMessage.RebuildBody;
> >
> > If SMTP2000.MailMessage.NeedFindParts then
> > SMTP2000.MailMessage.FindParts;
> >
> >
> > Try
> > SMTP2000.SendMessage;
> > except
> > MErro.Lines.Add(SMTP2000.LastResponse);
> > Exit;
> > End;
> >
> > SMTP2000.Quit;
> >
> > -----Original Message-----
> > From: Marcello [mailto:mycelo@...]
> > Sent: sexta-feira, 12 de novembro de 2004 15:40
> > To: tmail2000@yahoogroups.com
> > Subject: Re: [tmail2000] processing of my machine goes the 100%
> >
> >
> > Are you downloading a message with a very large text encoded in
> > quoted-printable? Can you send the message source?
> >
> > Regards,
> >
> > Marcello
> >
> > --- "Bianco.poa" <bianco.poa@...> wrote:
> >
> > > Peoples,
> > > I am usasando version 10.0.3 of the TMail. When it is making the
> > > sending the processing of my machine goes the 100%. Somebody
> knows
> > as
> > > decides this or if this is one bug?
> > > ( In Portuguese )
> > > Pessoal,
> > >
> > > Estou usasando a versco 10.0.3 do TMail.
> > > Quando ele esta fazendo o envio o processamento da minha maquina
> > vai a
> > > 100%.
> > > Alguim sabe como resolvo isso ou se isso i um bub?
> > >
> > >
> > > Tank's,
> > >
> > > Bianco
> > >
> > >
> > >
> > >
> > >
> >
> >
> >
> > ------------------------ Yahoo! Groups Sponsor
> >
> >
> > =============================================================
> >
> > The group's home page is here:
> > http://groups.yahoo.com/group/tmail2000/
> >
> > To post a message:
> > send email to: tmail2000@yahoogroups.com
> > or go here: http://groups.yahoo.com/group/tmail2000/post
> >
> > To modify your subcription options (e.g. stop receiving
> discussions)
> > go to:
> > http://groups.yahoo.com/mygroups/tmail2000/join or
> > http://groups.yahoo.com/convwiz
> >
> > To subscribe/unsubscribe, send blank email to:
> > tmail2000-subscribe@yahoogroups.com
> > tmail2000-unsubscribe@yahoogroups.com
> >
> > To talk only with the moderator, developer of TMail2000, write
> email
> > to:
> > mycelo@...
> >
> > Please expect 1-2 weeks for my response.
> >
> > PLEASE POST IN ENGLISH!
> >
> > Yahoo! Groups Links
> >
> >
> >
> >
> >
> >
> >
> >
>
>
>
> ------------------------ Yahoo! Groups Sponsor
>
>
> =============================================================
>
> The group's home page is here:
> http://groups.yahoo.com/group/tmail2000/
>
> To post a message:
> send email to: tmail2000@yahoogroups.com
> or go here: http://groups.yahoo.com/group/tmail2000/post
>
> To modify your subcription options (e.g. stop receiving discussions)
> go to:
> http://groups.yahoo.com/mygroups/tmail2000/join or
> http://groups.yahoo.com/convwiz
>
> To subscribe/unsubscribe, send blank email to:
> tmail2000-subscribe@yahoogroups.com
> tmail2000-unsubscribe@yahoogroups.com
>
> To talk only with the moderator, developer of TMail2000, write email
> to:
> mycelo@...
>
> Please expect 1-2 weeks for my response.
>
> PLEASE POST IN ENGLISH!
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
I am making tests, the body of the message is small! until if I do not place
text none in the body the processing I am high. E also I notice that the
sending time is bigger if increase the number of occult addressees.
In portuguese
Estou fazendo testes, o corpo da mensagem é pequena!
até se eu não coloco texto nenhum no corpo o processamento é alto.
E também noto que o tempo de envio fica maior se aumento o número de
destinatários ocultos.
-----Original Message-----
From: Marcello [mailto:mycelo@...]
Sent: quinta-feira, 18 de novembro de 2004 15:19
To: tmail2000@yahoogroups.com
Subject: RE: [tmail2000] processing of my machine goes the 100%
And what do you have inside Mbody.Text?
Any large data?
--- "Bianco.poa" <bianco.poa@...> wrote:
> I'm trying to send... E when it executes "send" goes to the maximum of
> the processing. It follows the Code below source:
>
> In Portuguese
> ( Estou tentando enviar...
> E quando executa o "send" ele vai ao maximo do processamento.
> Segue o Csdigo fonte abaixo: )
>
>
> SMTP2000.Host := 'smtp.poa.terra.com.br';
> SMTP2000.UserName := 'xxxxxx';
> SMTP2000.Password := 'xxxxxx';
>
> MailMessage.AttachEncoding := etBase64;
> MailMessage.Charset := 'iso-8859-1';
> MailMessage.EmbedMethod := emContentLocation;
> MailMessage.TextEncoding := etQuotedPrintable;
>
> If not SMTP2000.Connect then begin
> MErro.Lines.Add(SMTP2000.LastResponse);
> exit;
> end;
>
> SMTP2000.MailMessage.SetFrom( 'Name' , 'informatica@...'
> ); {Quem esta enviando}
> SMTP2000.MailMessage.BccList.Clear; // Limpa a lista de
> destinatarios
> SMTP2000.MailMessage.BccList.Add('name','bianco@...');
> SMTP2000.MailMessage.Priority := mpNormal;
>
> SMTP2000.MailMessage.Subject := Eassunto.Text;
> SMTP2000.MailMessage.SetTextHTML( Mbody.Text);
>
> MailMessage.Date := StrToDateTime(DateToStr( Date() ) );
>
>
> If SMTP2000.MailMessage.NeedNormalize then
> SMTP2000.MailMessage.Normalize;
>
> If SMTP2000.MailMessage.NeedRebuild then
> SMTP2000.MailMessage.RebuildBody;
>
> If SMTP2000.MailMessage.NeedFindParts then
> SMTP2000.MailMessage.FindParts;
>
>
> Try
> SMTP2000.SendMessage;
> except
> MErro.Lines.Add(SMTP2000.LastResponse);
> Exit;
> End;
>
> SMTP2000.Quit;
>
> -----Original Message-----
> From: Marcello [mailto:mycelo@...]
> Sent: sexta-feira, 12 de novembro de 2004 15:40
> To: tmail2000@yahoogroups.com
> Subject: Re: [tmail2000] processing of my machine goes the 100%
>
>
> Are you downloading a message with a very large text encoded in
> quoted-printable? Can you send the message source?
>
> Regards,
>
> Marcello
>
> --- "Bianco.poa" <bianco.poa@...> wrote:
>
> > Peoples,
> > I am usasando version 10.0.3 of the TMail. When it is making the
> > sending the processing of my machine goes the 100%. Somebody knows
> as
> > decides this or if this is one bug?
> > ( In Portuguese )
> > Pessoal,
> >
> > Estou usasando a versco 10.0.3 do TMail.
> > Quando ele esta fazendo o envio o processamento da minha maquina
> vai a
> > 100%.
> > Alguim sabe como resolvo isso ou se isso i um bub?
> >
> >
> > Tank's,
> >
> > Bianco
> >
> >
> >
> >
> >
>
>
>
> ------------------------ Yahoo! Groups Sponsor
>
>
> =============================================================
>
> The group's home page is here:
> http://groups.yahoo.com/group/tmail2000/
>
> To post a message:
> send email to: tmail2000@yahoogroups.com
> or go here: http://groups.yahoo.com/group/tmail2000/post
>
> To modify your subcription options (e.g. stop receiving discussions)
> go to:
> http://groups.yahoo.com/mygroups/tmail2000/join or
> http://groups.yahoo.com/convwiz
>
> To subscribe/unsubscribe, send blank email to:
> tmail2000-subscribe@yahoogroups.com
> tmail2000-unsubscribe@yahoogroups.com
>
> To talk only with the moderator, developer of TMail2000, write email
> to:
> mycelo@...
>
> Please expect 1-2 weeks for my response.
>
> PLEASE POST IN ENGLISH!
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
------------------------ Yahoo! Groups Sponsor --------------------~-->
$9.95 domain names from Yahoo!. Register anything.
http://us.click.yahoo.com/J8kdrA/y20IAA/yQLSAA/i7folB/TM
--------------------------------------------------------------------~->
=============================================================
The group's home page is here:
http://groups.yahoo.com/group/tmail2000/
To post a message:
send email to: tmail2000@yahoogroups.com
or go here: http://groups.yahoo.com/group/tmail2000/post
To modify your subcription options (e.g. stop receiving discussions) go to:
http://groups.yahoo.com/mygroups/tmail2000/join or
http://groups.yahoo.com/convwiz
To subscribe/unsubscribe, send blank email to:
tmail2000-subscribe@yahoogroups.comtmail2000-unsubscribe@yahoogroups.com
To talk only with the moderator, developer of TMail2000, write email to:
mycelo@...
Please expect 1-2 weeks for my response.
PLEASE POST IN ENGLISH!
Yahoo! Groups Links
And what do you have inside Mbody.Text?
Any large data?
--- "Bianco.poa" <bianco.poa@...> wrote:
> I'm trying to send... E when it executes "send" goes to the maximum
> of the
> processing. It follows the Code below source:
>
> In Portuguese
> ( Estou tentando enviar...
> E quando executa o "send" ele vai ao máximo do processamento.
> Segue o Código fonte abaixo: )
>
>
> SMTP2000.Host := 'smtp.poa.terra.com.br';
> SMTP2000.UserName := 'xxxxxx';
> SMTP2000.Password := 'xxxxxx';
>
> MailMessage.AttachEncoding := etBase64;
> MailMessage.Charset := 'iso-8859-1';
> MailMessage.EmbedMethod := emContentLocation;
> MailMessage.TextEncoding := etQuotedPrintable;
>
> If not SMTP2000.Connect then begin
> MErro.Lines.Add(SMTP2000.LastResponse);
> exit;
> end;
>
> SMTP2000.MailMessage.SetFrom( 'Name' ,
> 'informatica@...' );
> {Quem está enviando}
> SMTP2000.MailMessage.BccList.Clear; // Limpa a lista de
> destinatários
> SMTP2000.MailMessage.BccList.Add('name','bianco@...');
> SMTP2000.MailMessage.Priority := mpNormal;
>
> SMTP2000.MailMessage.Subject := Eassunto.Text;
> SMTP2000.MailMessage.SetTextHTML( Mbody.Text);
>
> MailMessage.Date := StrToDateTime(DateToStr( Date() ) );
>
>
> If SMTP2000.MailMessage.NeedNormalize then
> SMTP2000.MailMessage.Normalize;
>
> If SMTP2000.MailMessage.NeedRebuild then
> SMTP2000.MailMessage.RebuildBody;
>
> If SMTP2000.MailMessage.NeedFindParts then
> SMTP2000.MailMessage.FindParts;
>
>
> Try
> SMTP2000.SendMessage;
> except
> MErro.Lines.Add(SMTP2000.LastResponse);
> Exit;
> End;
>
> SMTP2000.Quit;
>
> -----Original Message-----
> From: Marcello [mailto:mycelo@...]
> Sent: sexta-feira, 12 de novembro de 2004 15:40
> To: tmail2000@yahoogroups.com
> Subject: Re: [tmail2000] processing of my machine goes the 100%
>
>
> Are you downloading a message with a very large text encoded in
> quoted-printable? Can you send the message source?
>
> Regards,
>
> Marcello
>
> --- "Bianco.poa" <bianco.poa@...> wrote:
>
> > Peoples,
> > I am usasando version 10.0.3 of the TMail. When it is making the
> > sending the processing of my machine goes the 100%. Somebody knows
> as
> > decides this or if this is one bug?
> > ( In Portuguese )
> > Pessoal,
> >
> > Estou usasando a versco 10.0.3 do TMail.
> > Quando ele esta fazendo o envio o processamento da minha maquina
> vai a
> > 100%.
> > Alguim sabe como resolvo isso ou se isso i um bub?
> >
> >
> > Tank's,
> >
> > Bianco
> >
> >
> >
> >
> >
>
>
>
> ------------------------ Yahoo! Groups Sponsor
>
>
> =============================================================
>
> The group's home page is here:
> http://groups.yahoo.com/group/tmail2000/
>
> To post a message:
> send email to: tmail2000@yahoogroups.com
> or go here: http://groups.yahoo.com/group/tmail2000/post
>
> To modify your subcription options (e.g. stop receiving discussions)
> go to:
> http://groups.yahoo.com/mygroups/tmail2000/join or
> http://groups.yahoo.com/convwiz
>
> To subscribe/unsubscribe, send blank email to:
> tmail2000-subscribe@yahoogroups.com
> tmail2000-unsubscribe@yahoogroups.com
>
> To talk only with the moderator, developer of TMail2000, write email
> to:
> mycelo@...
>
> Please expect 1-2 weeks for my response.
>
> PLEASE POST IN ENGLISH!
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
I'm trying to send... E when it executes "send" goes to the maximum of the
processing. It follows the Code below source:
In Portuguese
( Estou tentando enviar...
E quando executa o "send" ele vai ao máximo do processamento.
Segue o Código fonte abaixo: )
SMTP2000.Host := 'smtp.poa.terra.com.br';
SMTP2000.UserName := 'xxxxxx';
SMTP2000.Password := 'xxxxxx';
MailMessage.AttachEncoding := etBase64;
MailMessage.Charset := 'iso-8859-1';
MailMessage.EmbedMethod := emContentLocation;
MailMessage.TextEncoding := etQuotedPrintable;
If not SMTP2000.Connect then begin
MErro.Lines.Add(SMTP2000.LastResponse);
exit;
end;
SMTP2000.MailMessage.SetFrom( 'Name' , 'informatica@...' );
{Quem está enviando}
SMTP2000.MailMessage.BccList.Clear; // Limpa a lista de destinatários
SMTP2000.MailMessage.BccList.Add('name','bianco@...');
SMTP2000.MailMessage.Priority := mpNormal;
SMTP2000.MailMessage.Subject := Eassunto.Text;
SMTP2000.MailMessage.SetTextHTML( Mbody.Text);
MailMessage.Date := StrToDateTime(DateToStr( Date() ) );
If SMTP2000.MailMessage.NeedNormalize then
SMTP2000.MailMessage.Normalize;
If SMTP2000.MailMessage.NeedRebuild then
SMTP2000.MailMessage.RebuildBody;
If SMTP2000.MailMessage.NeedFindParts then
SMTP2000.MailMessage.FindParts;
Try
SMTP2000.SendMessage;
except
MErro.Lines.Add(SMTP2000.LastResponse);
Exit;
End;
SMTP2000.Quit;
-----Original Message-----
From: Marcello [mailto:mycelo@...]
Sent: sexta-feira, 12 de novembro de 2004 15:40
To: tmail2000@yahoogroups.com
Subject: Re: [tmail2000] processing of my machine goes the 100%
Are you downloading a message with a very large text encoded in
quoted-printable? Can you send the message source?
Regards,
Marcello
--- "Bianco.poa" <bianco.poa@...> wrote:
> Peoples,
> I am usasando version 10.0.3 of the TMail. When it is making the
> sending the processing of my machine goes the 100%. Somebody knows as
> decides this or if this is one bug?
> ( In Portuguese )
> Pessoal,
>
> Estou usasando a versco 10.0.3 do TMail.
> Quando ele esta fazendo o envio o processamento da minha maquina vai a
> 100%.
> Alguim sabe como resolvo isso ou se isso i um bub?
>
>
> Tank's,
>
> Bianco
>
>
>
>
>
------------------------ Yahoo! Groups Sponsor --------------------~-->
$9.95 domain names from Yahoo!. Register anything.
http://us.click.yahoo.com/J8kdrA/y20IAA/yQLSAA/i7folB/TM
--------------------------------------------------------------------~->
=============================================================
The group's home page is here:
http://groups.yahoo.com/group/tmail2000/
To post a message:
send email to: tmail2000@yahoogroups.com
or go here: http://groups.yahoo.com/group/tmail2000/post
To modify your subcription options (e.g. stop receiving discussions) go to:
http://groups.yahoo.com/mygroups/tmail2000/join or
http://groups.yahoo.com/convwiz
To subscribe/unsubscribe, send blank email to:
tmail2000-subscribe@yahoogroups.comtmail2000-unsubscribe@yahoogroups.com
To talk only with the moderator, developer of TMail2000, write email to:
mycelo@...
Please expect 1-2 weeks for my response.
PLEASE POST IN ENGLISH!
Yahoo! Groups Links
Are you downloading a message with a very large text encoded in
quoted-printable? Can you send the message source?
Regards,
Marcello
--- "Bianco.poa" <bianco.poa@...> wrote:
> Peoples,
> I am usasando version 10.0.3 of the TMail. When it is making the
> sending the
> processing of my machine goes the 100%. Somebody knows as decides
> this or if
> this is one bug?
> ( In Portuguese )
> Pessoal,
>
> Estou usasando a versão 10.0.3 do TMail.
> Quando ele está fazendo o envio o processamento da minha máquina vai
> a 100%.
> Alguém sabe como resolvo isso ou se isso é um bub?
>
>
> Tank's,
>
> Bianco
>
>
>
>
>
I am usasando version 10.0.3 of the TMail. When it is making the sending the processing of my machine goes the 100%. Somebody knows as decides this or if this is one bug?
( In Portuguese )
Pessoal,
Estou usasando a versão 10.0.3 do TMail. Quando ele está fazendo o envio o processamento da minha máquina vai a 100%. Alguém sabe como resolvo isso ou se isso é um bub?