Using IdSMTPServer ?

i've already tryied those, but it didn't work
when i use "Indy 10 SMTPServer" demo i get this error"socket error # 10048 address already in use" and i didn't know how to fix it

do you have another example?

regards,

10.31.2006 at 12:39AM PST, ID: 17840488

You said: is there is a way to send bulk e-mails without using My ISP, Hotmail, Yahoo, or google accounts

is there is a way to send bulk e-mails without using My ISP, Hotmail, Yahoo, or google accounts?

Anyone who is asking "is there is a way to send bulk e-mails without using My ISP, Hotmail, Yahoo, or google accounts" is trying to build a spambot, if you ask me. :-(

10.31.2006 at 04:52AM PST, ID: 17841477

I have to agree to Alex' thought.

So maybe Balshe will give some more information about what he wants to.

The Answer to you #10048 is simple, but I won't help anyone building a spambot.

10.31.2006 at 08:06AM PST, ID: 17842978

guys you got me wrong :)

i want to create a monitoring tool for my PC at home and at work but i don't want anyone to know about it, and i don't want it to use any if my accounts or the company account because it's monitored. also it's some times needed to test our new outlook exchange projects in the company and I've been asked many times to build a program to send bulk e-mails to a specific account in the company or to multiple accounts to see how the anti spam procedure and program is working.
beside i've done it before in VB, but i don't know how to do it in Delphi.
so any suggestions?

Regards,

10.31.2006 at 10:26AM PST, ID: 17844195

I found this on INDY Docs.

//--
For TIdLPR and TIdRSH, we force the client to bind to a local port within a specific range before connecting to a server because these protocols require the client to use specific local port ranges when making a connection to a server. This is done with the TIdTCPClient.BoundPortMin and TIdTCPClient.BoundPortMax properties.

Usually, if you do this with a specific IP address while a local port is in FD_WAIT state, the bind fails and Indy will then try to bind to the next port. Unfortunately, when using the wildcard IP address (0.0.0.0), the bind will succeed while a port is in a FD_WAIT state but when you connect, you get an "Address already in use" error.

The only workarounds available are:

Wait a minute for the local port to get out of FD_WAIT state.

Set the TIdTCPClient.BoundIP property to the to the machine's current local IP address. This workaround can be problematic if a machine has more than one local IP address and you do not know which one to use.

For most clients, the best practice is to let the stack select any available local port because most servers do not care what local port the client is using and because of the issue we mentioned earlier. Do not use the TIdTCPClient.BoundPort, TIdTCPClient.BoundPortMax, and TIdTCPClient.BoundPortMax properties unless you have a very compelling reason to do so.

//----

so now i put TIdTCPClient.BoundIP =my local ip address
and i put the IDSMTP.BINDING to (0.0.0.0:158) PCMail-srv.

now i think it will work, i'll keep u updated guys

regards,

10.31.2006 at 10:46AM PST, ID: 17844343

ok Guys,

i reached a point where the SmtServer receives the message, but how can i make the smtp server sends the message to required e-mail address ???

regards,

10.31.2006 at 01:32PM PST, ID: 17845664

TheRealLoki:

by far the easiest method is to simply have your SMTP server forward via your own ISP's mail server.
e.g. if your ISP is "meganet" smtp.maganet.com then you would forward all mail to smtp.maganet.com using the basic TidSMTPClient

You can of course, do the DNS lookup and SMTP relay yourself ( i think there might eb an example of SMTPRElay in the demos dir) but the above method is the easiest, and will
use less international traffic (if you are concerned about such things)
be more reliable (if your isp is down, you are unlikely to be on..)
be faster (presuably you choose an ISP in your neighbourhood)
Totally up to you though :-)

Assisted Solution

10.31.2006 at 01:54PM PST, ID: 17845811

Yep - Loki is right - the easiest ways is something like this:

first - take the reveived Message (in SMTPServerReceiveMessageParsed event - hmm - I'm using indy9 - not sure if they changed this a little bit in v10) - in this event you have the ability to modify the content or headers of the mail
procedure TForm1.SMTPServerReceiveMessageParsed(ASender: TIdCommand;
var AMsg: TIdMessage; RCPT: TIdEMailAddressList;
var CustomError: string);

after you did what ever you want with your message(checking, adding CCs, BCCs,etc) push it out with an instance of TIdSMTP, like this:

SMTP := TIdSMTP.Create(nil);
SMTP.AuthenticationType := atNone;
SMTP.Intercept := IdLogFile; //just for debugging if you like to
SMTP.MaxLineAction := maException;
SMTP.UseEhlo := true;
SMTP.Host := edSMTPHost.Text; //your isp
SMTP.Port := 25;
SMTP.Connect();
SMTP.Send(AMsg);
if(SMTP.Connected) then SMTP.Disconnect;
SMTP.Free;

This will send the received AMsg to the 'real' receiver

Sure you can use the relay, but except things like DNS lookup you have to think about other mechs that e.g. a sendmail server would - spooling, retries, bouncing etc. To get a delphi program behave like a common smtp relay is much work. Many rfcs you should read ;) It depends on what you expect from your application. Receiving, doing some work with the messages and sending it out after this, should be done by the above way very easy. And you don't have to think about all the common smtp server problems as mentioned.

gracias
icecoke

Assisted Solution

10.31.2006 at 05:31PM PST, ID: 17847080

Though i said i said i don't want to send the email using my ISP account Nor Gmail, but it's possible to use Gmail account, but the problem with Gmail is that i get an error message "Exception class EIdTLSClientSSLIOHandlerRequred with message 'SSL IOHandler is required for this setting"

Here is the code:

procedure TForm1.IdSMTPServer1MsgReceive(ASender: TIdSMTPServerContext;
AMsg: TStream; var LAction: TIdDataReply);
var
LMsg : TIdMessage;
LStream : TFileStream;
SMTP :TIdSMTP;
MailHStack : TIdIOHandlerStack ;
begin

LStream := TFileStream.Create(ExtractFilePath(Application.exename) + 'test.eml', fmCreate);
MailHStack := TIdIOHandlerStack.Create(nil);
SMTP := TIdSMTP.Create(nil);
SMTP.AuthType := atSASL;
SMTP.IOHandler := MailHStack;
SMTP.UseTLS :=utUseImplicitTLS ;
SMTP.UseEhlo := True;
SMTP.Host := 'smtp.gmail.com';
SMTP.Port := 587;
SMTP.Username:='MYGMAILACC@gmail.com';
SMTP.Password:='MYPASS';
LMsg:=TIdMessage.Create(nil);
LMsg.LoadFromStream(LStream);
SMTP.Connect();
SMTP.Send(LMsg);
if(SMTP.Connected) then SMTP.Disconnect;
SMTP.Free;
Try
LStream.CopyFrom(AMsg, 0);
Finally
FreeAndNil(LStream);
End;

LMsg := TIdMessage.Create;
Try
LMsg.LoadFromFile(ExtractFilePath(Application.exename) + 'test.eml', False);
ToLabel.Caption := LMsg.Recipients.EMailAddresses;
FromLabel.Caption := LMsg.From.Text;
SubjectLabel.Caption := LMsg.Subject;
Memo1.Lines := LMsg.Body;
Finally
FreeAndNil(LMsg);
End;

end;

all this is because Gmail Needs to receive STARTTLS command first
since i got this error:"Must issue a STARTTLS command first"
and if you go to this link:
http://www.indyproject.org/KB/index.html?smtpmuststarttls.htm
you will find the solution:
"Indy 10 supports SMTP with explicit TLS. In the Indy 10's TIdSMTP, you simply have to assign a TIdSSLIOHandlerSocketBase descendent to the TIdSMTP.IOHandler property and set the UseTLS property to either utUseRequireTLS if you do not want to use an unencrypted connection or utUseExplicitTLS if you are willing to use an unencrypted connection."

but i didn't know how to do it
can you help me here?

11.01.2006 at 12:48AM PST, ID: 17848235

Balshe,

because I still use Indy9, my knowledge regarding the Indy10 SSL components is limited. I use the 'Clever Internet Suite' for doing ssmtp, which is quite nice and stable (no, I'm not connected to this company ;)).

But as far as I understand you just need to do this:

SMTP.IOHandler := <your TIdSSLIOHandlerSocketBase descendent>;
SMTP.UseTLS :=utUseExplicitTLS; //or utUseRequireTLS

But maybe one of the other peoples here has an exact information on this.

gracias
icecoke

11.01.2006 at 01:32PM PST, ID: 17853310

thanks "real_icecoke" for your answer,

but i need to know how to use "IOHandler " along with "TIdSSLIOHandlerSocketBase descendent"

"Workshop_Alex" what do you think ? :)

Regards,

11.02.2006 at 02:05AM PST, ID: 17856766

hmm - thought this could be done by a simple:

mySIOH := TIdSSLIOHandlerSocketBase.Create;
SMTP.IOHandler := mySIOH;

but as I said - I have no indy 10.

So, listening.......

icecoke

11.02.2006 at 03:29AM PST, ID: 17857126

> "Workshop_Alex" what do you think ? :)

I still think your intentions are a bit suspicious. You want to create a bulk emailer which bypasses your ISP at home and at work, making sure no one can link it back to you. If it's just for a simple monitoring tool then I just wonder why you're not using other techniques for this purpose. If all you want to do is monitor some system then it seems to me that a technique like SOAP would be far less suspicious.

The problem with GMail is the SSL for which the Indy components require some additional DLL. This DLL isn't freely available all over this world, even if it's a free tool. The techniques it contains cannot be exported to certain countries due to the laws on encryption in the USA. But I think that a Google search might turn up some sample code for Delphi/Indy that will allow you to send emails through the Google servers. At home I even have some code that allows me to send emails through SMTP over Google but right now (and for the next 8 hours) I'm not at home. Is that what you're looking for?

11.02.2006 at 05:57AM PST, ID: 17857950

Guys thanks for your support,

Dear Workshop_Alex,
if i'm going to use Gmail, do u think it's suspicious ?. anyway it's not for bad purpose i assure you. and it would be great if you send me some code that explains how to send through Gmail SMTP servers.
Also i would like for my program to be stand-alone not using additinal DLLS, is it possible ?

thanks again guys

11.02.2006 at 07:19AM PST, ID: 17858592

Nope. Using GMail wouldn't be suspicious in my opinion. GMail is taking actions against spammers and people who abuse their email system. Btw, I am willing to believe you but can't take the risk that you're dishonest in your intentions. We don't need any more spammers. :-)

You still have to wait about 4 more hours before I'm back home, where I have some sample code available for sending emails with GMail. (And also on how to receive them from a GMail POP3 setup.) Unfortunately, I am not aware of any solution without the use of this special SSL DLL.

11.02.2006 at 04:25PM PST, ID: 17863241

i reached a point where i need a dll file "ssleay32.dll"
and i found it but it seems to be the wrong version, and i don't know if i need this dll "libeay32.dll" or not

and now i'm getting error "can not load SSL Library"

and here is the code

procedure TForm1.IdSMTPServer1MsgReceive(ASender: TIdSMTPServerContext;
AMsg: TStream; var LAction: TIdDataReply);
var
LMsg : TIdMessage;
LStream : TFileStream;
SMTP :TIdSMTP;
SSL_LIST:TIdSASLEntries ;
SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
begin

LStream := TFileStream.Create(ExtractFilePath(Application.exename) + 'test.eml', fmCreate);

SSL_LIST:=TIdSASLEntries.Create(nil);
SSLHandler:=TIdSSLIOHandlerSocketOpenSSL.Create;
SSLHandler.Destination := 'SMTP.gmail.com:465';
SSLHandler.Host := 'SMTP.gmail.com';
SSLHandler.Port := 465;
SSLHandler.DefaultPort := 0;
SSLHandler.SSLOptions.Method := sslvTLSv1;
SSLHandler.SSLOptions.Mode := sslmUnassigned;
SSLHandler.SSLOptions.VerifyMode := [];
SSLHandler.SSLOptions.VerifyDepth := 0;
SMTP := TIdSMTP.Create(nil);
SMTP.IOHandler := SSLHandler ;
SMTP.UseTLS :=utUseImplicitTLS ;
SMTP.UseEhlo := True;
SMTP.Host := 'smtp.gmail.com';
SMTP.Port := 465;
SMTP.Username:='MyGmailAcc@gmail.com';
SMTP.Password:='MyPass';
LMsg:=TIdMessage.Create(nil);
LMsg.LoadFromStream(LStream);
SMTP.Authenticate;
SMTP.Connect();
SMTP.Send(LMsg);
if(SMTP.Connected) then SMTP.Disconnect;
SMTP.Free;

Try
LStream.CopyFrom(AMsg, 0);
Finally
FreeAndNil(LStream);
End;

LMsg := TIdMessage.Create;
Try
LMsg.LoadFromFile(ExtractFilePath(Application.exename) + 'test.eml', False);
ToLabel.Caption := LMsg.Recipients.EMailAddresses;
FromLabel.Caption := LMsg.From.Text;
SubjectLabel.Caption := LMsg.Subject;
Memo1.Lines := LMsg.Body;
Finally
FreeAndNil(LMsg);
End;

end;

11.03.2006 at 12:27AM PST, ID: 17864853