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
<*> 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/
