Envio de email TLS ( Hotmail)

18/04/2013

1

Olá pessoal tenho um envio de email usando uma classe do Windows ( CDO.Message ) e estou com problema para enviar email com a conta do hotmail, ouvi falar que tem um nova parâmetro para passar ( TLS ) más não estou conseguindo faze-lo.

Será que alguém pode me dar uma ajuda, vou colocar abaixo minha rotina.


Obrigado.

Mail:= CreateOleObject('CDO.Message');
Mail.From:= dm.Pesq.FieldByName('Remetente').AsString;
Mail.To:= wpara;
Mail.Subject:= wassunto;
Mail.TextBody:= wcorpo;
if wanexo1 <> '' then Mail.AddAttachment(wanexo1);

Mail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/smtpusessl') := wcrip; // servidor requer cripitografia ( ig / hotmail / gmail )
Mail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/smtpauthenticate') := wautent; // modo de autenticação
Mail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/sendusing') := 2; // modo usado para envio
Mail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/smtpserver') := dm.Pesq.FieldByName('smtp').AsString;
Mail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/smtpserverport') := dm.Pesq.FieldByName('Porta').AsString;
Mail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/sendusername') := dm.Pesq.FieldByName('Conta').AsString;
Mail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/sendpassword') := dm.Pesq.FieldByName('Senha').AsString;

Mail.Configuration.Fields.Update;
Mail.Send;
Responder