secure email with attachment sending...

Moderator: Rathinagiri

User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: secure email with attachment sending...

Post by danielmaximiliano »

Bingo :
Hotmail server.jpg
Hotmail server.jpg (44.07 KiB) Viewed 3916 times
Bingo.jpg
Bingo.jpg (41.96 KiB) Viewed 3916 times
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' }
Modify source

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
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
EduardoLuis
Posts: 682
Joined: Tue Jun 04, 2013 6:33 pm
Location: Argentina

Re: secure email with attachment sending...

Post by EduardoLuis »

Hola Dany:

En cuanto a los attachment, probe con un archivo *.PDF de 10.95 mg y lo transmitió correctamente.- TODO OK.-
FELICITACIONES.- AMIGO.-
Abrazo. Eduardo
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: secure email with attachment sending...

Post by danielmaximiliano »

hmgchang wrote:Happy New Year All ....
- How can we send email with attachment ( report/dbf) from Hmg program ?
- Can we secure the to only specified email address but not others ?
- If only I can hv a sample on the above issues....

Thks n Rgds

Chang
Hi Chang:

Look http://hmgforum.com/viewtopic.php?f=24&t=3473
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
User avatar
andyglezl
Posts: 1461
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Contact:

Re: secure email with attachment sending...

Post by andyglezl »

Hola Max, gracias por tu ejemplo.

Probe y no he podido hacer que se envie un mail. :?

Ya intente cambiar los nombres de Servidores y Puertos y nada.
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' } // <=== Con este envio desde OfficeOutlook
aServers [3] := { 'Yahoo Outgoing Mail Server ' , 'smtp.mail.yahoo.com.ar' , '465' }
Alguna idea ?

Otra cosa, estoy compilando con HMG 3.1.5 y me salen 2 "ToolTip" en los botones de la ToolBar (señalado con amarillo)
no se si sea problema de esta version, a alguien mas le aparece así ?
----------------------------------------------------------------------
Hi Max, thanks for your example.

I tried and I have not been able to do is send a mail. :?

Now try changing the names of servers and ports and nothing.

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' }
Any idea?

Another thing, I'm compiling with HMG 3.1.5 and I get 2 "ToolTip" in the ToolBar buttons (marked with yellow)
can be detailed in this version, so they appear to someone else?
Attachments
CDOMail.jpg
CDOMail.jpg (53.06 KiB) Viewed 3889 times
Andrés González López
Desde Guadalajara, Jalisco. México.
User avatar
andyglezl
Posts: 1461
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Contact:

Re: secure email with attachment sending...

Post by andyglezl »

Para los que tengan Win7 que puedan probar lo siguiente...
--------------------------------------------------------
For those who have Win7 you can try the following ...
--------------------------------------------------------
http://www.howtogeek.com/120011/stupid- ... -software/
Andrés González López
Desde Guadalajara, Jalisco. México.
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: secure email with attachment sending...

Post by danielmaximiliano »

andyglezl wrote:Hola Max, gracias por tu ejemplo.

Probe y no he podido hacer que se envie un mail. :?
Andy, lee este post http://hmgforum.com/viewtopic.php?f=24&t=3473
recuerda que necesitas configurar Outlook.com para acceder de aplicaciones externas POP3 y SMTP.
con la configuracion propuesta funciona.
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Post Reply