Try modify servers
Code: Select all
aServers [1] := { 'Gmail Outgoing Mail Server ' , 'smtp.gmail.com' , '465' }
aServers [2] := { 'Hotmail Outgoing Mail Server ' , 'smtp-mail.outlook.com' , '25' } /* [color=#FF0000]Work [/color]*/
aServers [3] := { 'Yahoo Outgoing Mail Server ' , 'smtp.mail.yahoo.com.ar' , '465' }
Code: Select all
TRY
/* Guardamos la configuracion de Servidor, Puerto, Usuario */
loCfg := CREATEOBJECT( "CDO.Configuration" )
WITH OBJECT loCfg:Fields
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ) :Value := aServers [Main.Server.Value , 2 ]
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) :Value := VAL (aServers [ Main.Server.Value , 3])
:Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ) :Value := 2
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := .T.
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ) :Value := .T.
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") :Value := 1
:Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ) :Value := Main.cFrom.Value
:Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ) :Value := Main.cPass.Value
:Update()
END WITH