ارسال ايميل از طريق پراكسي

[smakhavan]

سلام
در شركت ما اينترنت از طريق پراكسي تنظيم شده است
اگر بخواهيم از طريق برنامه ايميل ارسال كنيم چه تغييراتي بايد در كد ايجاد نمود؟
من براي ارسال از كد زير استفاده مي‌كنم


IdSMTP1.Username := Trim(Edit1.Text);
IdSMTP1.Password := Trim(Edit2.Text);
IdSMTP1.Host := Trim(Edit3.Text);
IdSMTP1.Port := StrToIntDef(Edit7.Text,25);
IdSMTP1.AuthenticationType := atLogin;
IdMessage1.Body := RichEdit1.Lines;
IdMessage1.Subject := Trim(Edit4.Text);
IdMessage1.From.Address := Edit6.Text;
IdMessage1.Recipients.Clear;
IdMessage1.Recipients.Add.Address := Edit5.Text;

Try

IdSMTP1.Connect(1000);
IdSMTP1.Send(IdMessage1);
ShowMessage('OK');
Finally
IdSMTP1.Disconnect;
End;