Fórum Envio de E-mail, só funciona com o BO #261802

Meus Amigos programadores, estou em um dilema...

essa função abaixo só funciona com o SMTP do bol..qualquer outro q eu coloco não não autenticado, o e-mail volta..da de tudo, menos enviar..

se alguem puder me dar uma luz...aqui está ela...

[b:1f4f2069c0]
function TForm1.EnviarEMail(const wHost,wUser,wSenha, wEMailDestino, wEMailFonte, wAssunto,wMensagem: WideString):String;
var
Mensagem: TIdMessage;
IdSMTP1 : TIdSMTP;
begin
try
try
Result := ´ok´;
Mensagem := TIdMessage.Create(Self);
IdSMTP1 := TIdSMTP.Create(self);



Mensagem.ContentType := ´text/HTML´;
Mensagem.Recipients.Clear;
Mensagem.Recipients.Add.Address := wEMailDestino;
Mensagem.From.Text := wEMailFonte;
Mensagem.Subject := wAssunto;
Mensagem.Body.Text := wMensagem;

with IdSMTP1 do
begin
AuthenticationType := atLogin;
Host := wHost;
UserName := wUser;
PassWord := wSenha;

try
Connect();
Send(Mensagem);
finally
Disconnect;
end;
end; // width

except
On E:Exception do
Result := (´Erro ao Enviar E-mail´+#13+ E.Message);
end;

finally
Mensagem.Free;
IdSMTP1.Free;
end;
[/b:1f4f2069c0]

se alguem puder ajudar......