secure email with attachment sending...

Moderator: Rathinagiri

User avatar
danielmaximiliano
Posts: 2264
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 295 times
Been thanked: 54 times
Contact:

Re: secure email with attachment sending...

Post by danielmaximiliano »

Bingo :
Hotmail server.jpg
Hotmail server.jpg (44.07 KiB) Viewed 2478 times
Bingo.jpg
Bingo.jpg (41.96 KiB) Viewed 2478 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: 664
Joined: Tue Jun 04, 2013 6:33 pm
Location: Argentina
Has thanked: 1 time
Been thanked: 61 times

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: 2264
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 295 times
Been thanked: 54 times
Contact:

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: 1239
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 37 times
Been thanked: 103 times
Contact:

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 2451 times
Andrés González López
Desde Guadalajara, Jalisco. México.

User avatar
andyglezl
Posts: 1239
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 37 times
Been thanked: 103 times
Contact:

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: 2264
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 295 times
Been thanked: 54 times
Contact:

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