Hola,
Tengo una aplicacion en la que quiero enviar mails. (NO HACER SPAM) Sino enviar mail a proveedores. Lo que quiero es que no pase a traves de outlook sino que de la misma aplicacion los envie.
Uso en el Form un TIdSMTP y TIdMessage de Indi. Y para enviar tengo el siguiente código.
Código Delphi
[-]
procedure TForm_EnviarXMail.Btn_EnviarClick(Sender: TObject);
var
Mail: Variant;
ArchivoAdjunto: boolean;
begin
StatusMemo.Clear;
SMTP.Host := Host;
SMTP.Port := 465;
MailMessage.From.Address := From;
MailMessage.Recipients.EMailAddresses := E_Para.Text;
MailMessage.Subject := E_Asunto.Text;
MailMessage.Body.Text := E_Cuerpo.Text;
if FileExists(ledAttachment.Text) then
TIdAttachment.Create(MailMessage.MessageParts, ledAttachment.Text);
try
try
SMTP.Connect(1000);
SMTP.Send(MailMessage);
except on E:Exception do
StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message);
end;
finally
if SMTP.Connected then SMTP.Disconnect;
end;
Enviado:= True;
end;
Obviamente lo tome de un ejemplo. las variables están bien cargadas.
Pasa que google como casi todos los servidores necesitan autenticación.
¿Como autentico sin usar outlook?
Gracias desde ya por las respuestas.