Hi ,
Thanks for the responses Re: Sending and e-mail in Delphi
I have downloaded the TMAIL2000 components but have to say I have no idea
how to use them.
They have nothing in the way of documentation and after searching through a
lot of the FAQ's on the yahoo forum
I have not been able to find a solution.
All I want to do is send a 3 or 4 line e-mail with a clickable link to a
website and without user intervention. No attachments.
I've tried a lot of components without success, the latest being Winshoes.
I thought this was going to be the easiest but I'm getting an "undeclared
identifier: 'SMTP'
for some reason.
I'm using code snippets from one of the demo's and can't understand what's
going wrong.
I dropped a WinshoeSMTP and a WinshoeMessage component on the form and named
them SMTP and Msg.
I have SMTPWinshoe, Winshoes, WinshoeMessage in the USES section and
SMTP: TWinshoeSMTP;
Msg: TWinshoeMessage;
in the TYPE section.
Any ideas on this one or can someone show me how to use the TMAIL2000
components.
The code I'm using for winshoes is this.....
---------------------------------------------------------------------------------
Procedure SendEMail;
Begin
SMTP.Host := 'smtp.mailserver.com'; // This is where I'm getting an
"Undeclared identifier: 'SMTP'
With Msg Do
Begin
Attachments.Clear;
Too := '[EMAIL PROTECTED]';
From := '[EMAIL PROTECTED]';
Subject := 'This is a Test';
Text := 'This is the body of the e-mail.'; // would like to have a
clickable link to a website in the body.
End;
Begin
If EMailAndHostAreValid Then
Begin
With TSenderThread.Create(True) do
Begin
FreeOnTerminate := True;
SMTP := Self.SMTP;
Msg := Self.Msg;
Resume;
End;
End
Else
ShowMessage('Setup your server parameters first');
End;
End;
------------------------------------------------------------------------------------------------------------------
I found this code snippet and it works quite well and, although it requires
no optional
3rd party components, it also requires user intervention.
I've included it in case anyone is interested in it.....
------------------------------------------------------------------------------------------------
Uses ShellAPI,ComObj, ActiveX;
Outlook := CreateOleObject('Outlook.Application');
miMail := Outlook.CreateItem(olMailItem);
miMail.Recipients.Add('[EMAIL PROTECTED]');
miMail.Subject := 'CONGRATULATIONS';
// use this to send a plain text email (all versions of Outlook)
miMail.Body := 'Attached is the list of email addresses.';
// alternatively send an HTML email (not in Outlook 97)
// miMail.HTMLBody := 'we would like to wish you a Happy New
Year';
// miMail.Attachments.Add('C:\temp\list.txt', EmptyParam,
EmptyParam, EmptyParam);
-----------------------------------------------------------------------------------------------------------------------
Regards Jerry
_______________________________________________
Delphi mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi
