🚀 go-pugleaf

"Remy Lebeau \(TeamB\)" <no.spam@no.spam.com> wrote:
>
>"David Ayre" <davidcayre@ntlworld.com> wrote in message
>news:44e48ddd$1@newsgroups.borland.com...
>
>> attach->ContentType = "binary"; it works OK
>
>That is not a proper ContentType value.
>
>> except that the
>> text->Body->Text = acBody;
>> doesn't put the body text in.
>
>Then you did not use it correctly.  Please show the actual code you are
>using, and the raw data that TIdMessage generates.
>
>> I have to put it in the IdMessage->Body instead and then it works.
>
>Do not mix TIdMessage::Body with TIdMessage.MessageParts.  Use one or the
>other, not both.
>
>
>Gambit
>
Hi Remy,

This is the full code for this section:-
//Send Email
	IdSMTP1->Host = Edit1->Text; 
	IdSMTP1->Port = 25;
	IdMessage1->From->Address = Edit2->Text;
	IdMessage1->Recipients->EMailAddresses = Edit3->Text;
	IdMessage1->Subject = acHeader;
	//IdMessage1->Body->Text = acBody;
	IdMessage1->From->Name = Edit4->Text;

	TIdText *Text = new TIdText(IdMessage1->MessageParts,NULL);
	Text->ContentType = "text/plain";
	Text->Body->Text = acBody;

	TIdAttachment *Attach = new TIdAttachment(IdMessage1->MessageParts,acAttachment);
	Attach->ContentType = GetMIMETypeFromFile(Attach->FileName);

	IdSMTP1->Connect(1000);
	IdSMTP1->Send(IdMessage1);

	if(IdSMTP1->Connected())IdSMTP1->Disconnect();

The GetMIMETypeFromFile(Attach->FileName); works now I've got
the MIME part in uppercase.
If I use the Text->Body->Text = acBody; as above, no body
text appears in the body of the e-mail. But if I use the
IdMessage1->Body->Text = acBody; it does.
acBody, acHeader and acAttachment are char * and contain the correct strings.

Cheers,

David