HMGforum.com

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

Code: Select all

 aServers [1] := { 'Gmail   Outgoing Mail Server ' , 'smtp.gmail.com'         , '465' }
*aServers [2] := { 'Hotmail Outgoing Mail Server ' , 'smtp-mail.outlook.com'  , '25'  }  // 587
 aServers [2] := { 'Hotmail Outgoing Mail Server ' , 'smtp.live.com'          , '587' }  // [color=#FF0000]<=== With this configuration I send from OfficeOutlook[/color]
 aServers [3] := { 'Yahoo   Outgoing Mail Server ' , 'smtp.mail.yahoo.com.ar' , '465' }