asked on

Using Delphi; Sending text through email.

Hi everyone,

Anybody here knows how to send a text strings from my richedit to this email address
girlswants_me@yahoo.com or to any addressee?
and if anybody can add some special functionality like adding attachments.
I will give an extra points.

Thanks in advance

girlswants_me

ASKER

anybody can help?

ASKER CERTIFIED SOLUTION

Ferruccio Accalai

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

girlswants_me

ASKER

How will i install this component? I tried to open but it said "Error creating form: Invalid stream format."
and i cannot compile because missing Variants.dcu

girlswants_me

ASKER

OK im done installing it. The installation of the component was successful.

can you give me an example codes on how to use your component?

Eddie Shipman

Here is an example using the Indy components.
This example shows how to create an HTML mail
with an inline, included jpg image.

var
idAttach: TidAttachment;
idText1: TidText;
idText2: TidText;
p: TidMessageParts;
slBody: TStringList;
begin
idMessage1.Recipients.Add;
idMessage1.Recipients[0].Address := 'girlswants_me@yahoo.com';
p := idMessage1.MessageParts;
slBody := TstringList.Create;
try
// you can actually load the body from a RichEdit with
// slBody.Text := RichEdit1.LinesText;
slBody.Add('<html>');
slBody.Add('<head>');
slBody.Add('</head>');
slBody.Add('<body>');
slBody.Add(' Here is the image: ');
slBody.Add('<img src="cid:sm101yellow.jpg" />');
slBody.Add('</body>');
slBody.Add('</html>');
idText1 := TidText.Create(p, slBody);
idText1.ContentType := 'text/html';
idText2 := TidText.Create(p);
idText2.ContentType := 'text/plain';
idText2.Body.Text := '';
// This shows how to add an attachment
idAttach := TidAttachment.Create(p, 'c:\sm101yellow.jpg');
idAttach.ContentType := 'image/jpeg';
idAttach.ContentDisposition := 'inline';
idAttach.ExtraHeaders.Values['content-id'] := 'sm101yellow.jpg';
idMessage1.Body.Assign(slBody);
idAttach.DisplayName := 'sm101yellow.jpg';
idMessage1.ContentType := 'multipart/mixed';
idSMTP1.Connect;
idSMTP1.Send(idMessage1);
finally
idSMTP1.Disconnect;
slBody.Free;
Showmessage('done');
end;
end;

girlswants_me

ASKER

OK Thank you so much i raised the score to 150

girlswants_me

ASKER

OK Thank you so much i raised the score to 150

Eddie Shipman

did that help?

Ferruccio Accalai

Sorry for the delay girlswants_me....
In the zip file there's a demo too where you can look for a complete example on how to use it.
Let me know if you really used my suggestion or the EddieShipman one, because in this case points should be splitted to him.

F68 ;-)