Soonhaut... just for the records
you might want to use try... except when connecting to your mail server
procedure TForm1.btnSendClick(Sender: TObject);
begin
nmsmtp1.Host:= 'mail.ITech.com.au'; // My Office mail server
try
nmsmtp1.Connect;
if nmsmtp1.Connected then begin
case RadioGroup1.ItemIndex of
0: nmsmtp1.EncodeType:= uuMime;
1: nmsmtp1.EncodeType:= uuCode;
end;
nmsmtp1.PostMessage.FromAddress := editSender.Text;
nmsmtp1.PostMessage.ToAddress.Text := editReceiver.Text;
nmsmtp1.PostMessage.Body.Text := Memo1.Text;
nmsmtp1.PostMessage.Attachments.Text := ListBox1.Items.Text;
nmsmtp1.PostMessage.Subject := editSubj.Text;
nmsmtp1.SendMail;
end;
except
// Handle the exception yourself here in case could not connect to
server
// Now you can skip the if nmsmtp1.connected line too because if you
could connect to the server you go to
// the next statement, otherwise 'try' will raise an exception and not
execute the following statement....
end;
end;
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] Behalf
Of Chris @ IT
Sent: Thursday, July 07, 2005 10:19 AM
To: [email protected]
Subject: Re: [delphi-en] Delphi Email Program
yes, mailserver software
----- Original Message -----
From: "soonhuat ong" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Thursday, July 07, 2005 11:19 AM
Subject: Re: [delphi-en] Delphi Email Program
> Sorry, but what do u mean with mailserver software ??
>
> "Chris @ IT" <[EMAIL PROTECTED]> wrote:the host is hardcoded, so its probably
something else, i have a couple of
> questions though
> what mailserver software run on the mail host?
>
> ----- Original Message -----
> From: "Vahan Yoghoudjian" <[EMAIL PROTECTED]>
> To: <[email protected]>
> Sent: Thursday, July 07, 2005 11:30 AM
> Subject: RE: [delphi-en] Delphi Email Program
>
>
> > I think I know where your problem is... are you trying to change the
> > host when trying to send to yahoo... your host has to be your office
> server
> > always, the machine your mail server is installed on, just use a yahoo
> > address in the recipient and should work fine...
> >
> > Vahan
> >
> > -----Original Message-----
> > From: [email protected] [mailto:[EMAIL PROTECTED]
> Behalf
> > Of soonhuat ong
> > Sent: Thursday, July 07, 2005 9:30 AM
> > To: [email protected]
> > Subject: Re: [delphi-en] Delphi Email Program
> >
> >
> > Again, it works fine when i send it to my office mail server.
> > But when i try to send it to yahoo mail, the following error message
> appear
> > :
> >
> > Project Project1.exe raised exception class EIdProtocolReplyError with
> > message '550 not local host yahoo.com, not a gateway'.
> >
> > Any idea ?
> >
> > "Chris @ IT" <[EMAIL PROTECTED]> wrote:
> > Hello,
> >
> > Lets move over to indy.
> >
> > Back up your application :) - i learnt this from a friend eat your heart
> our
> > Bernard!
> >
> > Drop an idSMTP component from the indy clients tab in delphi (assuming
> indy
> > is already installed);
> >
> > Drop another button with caption send with indy;
> > Place the following source in the code in the <snip></snip> tags
> >
> > <snip>
> > procedure btnIndySendClick(Sender : TObject);
> > begin
> >
> >
>
idSMTP1.QuickSend('mail.ITech.com.au',editSubj.Text,editReceiver.Text,editSe
> > nder.Text,Memo1.Text); // simple isnt it?
> > end;
> > </snip>
> >
> > This will take care of simple sending; see if this works then we will
work
> > out how to do mime and/or uuencode and include your attachments.
> >
> > Regards,
> >
> > Chris.
> >
> >
> > ----- Original Message -----
> > From: "soonhuat ong" <[EMAIL PROTECTED]>
> > To: <[email protected]>
> > Sent: Thursday, July 07, 2005 10:00 AM
> > Subject: Re: [delphi-en] Delphi Email Program
> >
> >
> > > The error message is like following:
> > > 503 must have sender and secipient first.
> > > I check all the setting for my Outlook Express, but it seems like
> there's
> > no option for me to set it in TNMSMTP component.
> > > Btw, how to do it using Indy component though ??
> > >
> > > "Chris @ IT" <[EMAIL PROTECTED]> wrote:
> > > Hi Soonhuat,
> > >
> > > Hmm, if that is the case we need to confirm a few things...
> > >
> > > What error message does it give?
> > > Check and confirm that the outlook express settings are the same as
the
> > > settings being used in your email application ie.
> > >
> > > pop3 server
> > > smtp server
> > > authentication methods for the pop3 (normally username and password)
> > > authentication methods for the smtp (normally username and password)
> > > from email address, and all the nitty grittys secure password
> > authentication
> > > etc...
> > >
> > > ps: i could help you more if you were using indy components free with
> > source
> > > http://www.indyproject.org/Sockets/index.iwp
> > >
> > > Regards,
> > >
> > > Chris.
> > >
> > >
> > > ----- Original Message -----
> > > From: "soonhuat ong" <[EMAIL PROTECTED]>
> > > To: <[email protected]>
> > > Sent: Thursday, July 07, 2005 9:30 AM
> > > Subject: Re: [delphi-en] Delphi Email Program
> > >
> > >
> > > > But i try to send it to yahoo mail using Outlook express, and it
works
> > > fine . That means it has nothing to do with our office mail server
> > > configuration right ? (Correct me if i'm wrong)
> > > >
> > > > "Chris @ IT" <[EMAIL PROTECTED]> wrote:Hello,
> > > >
> > > > The EMail program you created looks fine although you might want to
> add
> > > > nmsmtp1.Disconnect; just after the nmsmtp1.sendmail - (its good
> manners
> > > :) )
> > > > The problem here seems to lie within your mail server; this is
> probably
> > > out
> > > > of topic here but most mail servers are configured not to allow
> > "relaying"
> > > > email messages depending on various things (the from and to
addresses,
> > the
> > > > ip address sending the mail; weather the email application has
> > > authenticated
> > > > with the smtp server or not); ask your system administrator about
this
> > :)
> > > >
> > > > Cheers,
> > > >
> > > > Chris...
> > > > ----- Original Message -----
> > > > From: "soonhuat ong" <[EMAIL PROTECTED]>
> > > > To: <[email protected]>
> > > > Sent: Thursday, July 07, 2005 9:03 AM
> > > > Subject: [delphi-en] Delphi Email Program
> > > >
> > > >
> > > > >
> > > > > Hi
> > > > >
> > > > > I have a Delphi Email Program created by using TNMSMTP component.
> But
> > > the
> > > > problem is that this program only allow me to send the email within
> our
> > > > office network. It didnt allow me to send to other mail server like
> > yahoo
> > > > mail etc. Can anyone help me out ? The following is my code:
> > > > >
> > > > > procedure TForm1.btnSendClick(Sender: TObject);
> > > > > begin
> > > > > nmsmtp1.Host:= 'mail.ITech.com.au'; // My Office mail server
> > > > > nmsmtp1.Connect;
> > > > > if nmsmtp1.Connected then
> > > > > begin
> > > > > case RadioGroup1.ItemIndex of
> > > > > 0: nmsmtp1.EncodeType:= uuMime;
> > > > > 1: nmsmtp1.EncodeType:= uuCode;
> > > > > end;
> > > > > nmsmtp1.PostMessage.FromAddress:= editSender.Text;
> > > > > nmsmtp1.PostMessage.ToAddress.Text:= editReceiver.Text;
> > > > > nmsmtp1.PostMessage.Body.Text:= Memo1.Text;
> > > > > nmsmtp1.PostMessage.Attachments.Text:=
ListBox1.Items.Text;
> > > > > nmsmtp1.PostMessage.Subject:= editSubj.Text;
> > > > > nmsmtp1.SendMail;
> > > > > end
> > > > > end;
> > > > >
> > > > >
> > > > >
> > > > >
> > > > > ---------------------------------
> > > > > Discover Yahoo!
> > > > > Stay in touch with email, IM, photo sharing & more. Check it out!
> > > > >
> > > > > [Non-text portions of this message have been removed]
> > > > >
> > > > >
> > > > >
> > > > > -----------------------------------------------------
> > > > > Home page: http://groups.yahoo.com/group/delphi-en/
> > > > > To unsubscribe: [EMAIL PROTECTED]
> > > > > Yahoo! Groups Links
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > >
> > > >
> > > >
> > > > -----------------------------------------------------
> > > > Home page: http://groups.yahoo.com/group/delphi-en/
> > > > To unsubscribe: [EMAIL PROTECTED]
> > > >
> > > >
> > > >
> > > > SPONSORED LINKS
> > > > C programming language Computer programming languages The c
> programming
> > > language C programming language List of programming languages Delphi
> > > programmer
> > > >
> > > > ---------------------------------
> > > > YAHOO! GROUPS LINKS
> > > >
> > > >
> > > > Visit your group "delphi-en" on the web.
> > > >
> > > > To unsubscribe from this group, send an email to:
> > > > [EMAIL PROTECTED]
> > > >
> > > > Your use of Yahoo! Groups is subject to the Yahoo! Terms of
> Service.
> > > >
> > > >
> > > > ---------------------------------
> > > >
> > > >
> > > >
> > > >
> > > > __________________________________________________
> > > > Do You Yahoo!?
> > > > Tired of spam? Yahoo! Mail has the best spam protection around
> > > > http://mail.yahoo.com
> > > >
> > > > [Non-text portions of this message have been removed]
> > > >
> > > >
> > > >
> > > > -----------------------------------------------------
> > > > Home page: http://groups.yahoo.com/group/delphi-en/
> > > > To unsubscribe: [EMAIL PROTECTED]
> > > > Yahoo! Groups Links
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > >
> > >
> > >
> > > -----------------------------------------------------
> > > Home page: http://groups.yahoo.com/group/delphi-en/
> > > To unsubscribe: [EMAIL PROTECTED]
> > >
> > >
> > >
> > > ---------------------------------
> > > YAHOO! GROUPS LINKS
> > >
> > >
> > > Visit your group "delphi-en" on the web.
> > >
> > > To unsubscribe from this group, send an email to:
> > > [EMAIL PROTECTED]
> > >
> > > Your use of Yahoo! Groups is subject to the Yahoo! Terms of
Service.
> > >
> > >
> > > ---------------------------------
> > >
> > >
> > >
> > >
> > > ---------------------------------
> > > Sell on Yahoo! Auctions - No fees. Bid on great items.
> > >
> > > [Non-text portions of this message have been removed]
> > >
> > >
> > >
> > > -----------------------------------------------------
> > > Home page: http://groups.yahoo.com/group/delphi-en/
> > > To unsubscribe: [EMAIL PROTECTED]
> > > Yahoo! Groups Links
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> >
> >
> >
> > -----------------------------------------------------
> > Home page: http://groups.yahoo.com/group/delphi-en/
> > To unsubscribe: [EMAIL PROTECTED]
> >
> >
> >
> > ---------------------------------
> > YAHOO! GROUPS LINKS
> >
> >
> > Visit your group "delphi-en" on the web.
> >
> > To unsubscribe from this group, send an email to:
> > [EMAIL PROTECTED]
> >
> > Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
> >
> >
> > ---------------------------------
> >
> >
> >
> >
> > ---------------------------------
> > Sell on Yahoo! Auctions - No fees. Bid on great items.
> >
> > [Non-text portions of this message have been removed]
> >
> >
> >
> > -----------------------------------------------------
> > Home page: http://groups.yahoo.com/group/delphi-en/
> > To unsubscribe: [EMAIL PROTECTED]
> >
> >
> >
>
> --------------------------------------------------------------------------
> --
> > ----
> > YAHOO! GROUPS LINKS
> >
> > a.. Visit your group "delphi-en" on the web.
> >
> > b.. To unsubscribe from this group, send an email to:
> > [EMAIL PROTECTED]
> >
> > c.. Your use of Yahoo! Groups is subject to the Yahoo! Terms of
> Service.
> >
> >
>
> --------------------------------------------------------------------------
> --
> > ----
> >
> >
> >
> >
> > [Non-text portions of this message have been removed]
> >
> >
> >
> > -----------------------------------------------------
> > Home page: http://groups.yahoo.com/group/delphi-en/
> > To unsubscribe: [EMAIL PROTECTED]
> > Yahoo! Groups Links
> >
> >
> >
> >
> >
> >
> >
>
>
>
> -----------------------------------------------------
> Home page: http://groups.yahoo.com/group/delphi-en/
> To unsubscribe: [EMAIL PROTECTED]
>
>
>
> ---------------------------------
> YAHOO! GROUPS LINKS
>
>
> Visit your group "delphi-en" on the web.
>
> To unsubscribe from this group, send an email to:
> [EMAIL PROTECTED]
>
> Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
>
>
> ---------------------------------
>
>
>
>
>
> ---------------------------------
> Sell on Yahoo! Auctions - No fees. Bid on great items.
>
> [Non-text portions of this message have been removed]
>
>
>
> -----------------------------------------------------
> Home page: http://groups.yahoo.com/group/delphi-en/
> To unsubscribe: [EMAIL PROTECTED]
> Yahoo! Groups Links
>
>
>
>
>
>
>
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
----------------------------------------------------------------------------
----
YAHOO! GROUPS LINKS
a.. Visit your group "delphi-en" on the web.
b.. To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
c.. Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
----------------------------------------------------------------------------
----
[Non-text portions of this message have been removed]
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/delphi-en/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
