secure email with attachment sending...

Moderator: Rathinagiri

User avatar
danielmaximiliano
Posts: 2161
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 172 times
Been thanked: 26 times
Contact:

Re: secure email with attachment sending...

Post by danielmaximiliano » Fri Jan 17, 2014 9:33 pm

Bingo :
Hotmail server.jpg
Hotmail server.jpg (44.07 KiB) Viewed 2138 times
Bingo.jpg
Bingo.jpg (41.96 KiB) Viewed 2138 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
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`.HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. : +54901169026142
Telegram Name : DaNiElMaXiMiLiAnO

EduardoLuis
Posts: 655
Joined: Tue Jun 04, 2013 6:33 pm
Location: Argentina
Has thanked: 1 time
Been thanked: 61 times

Post by EduardoLuis » Fri Jan 17, 2014 9:41 pm

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

Post by danielmaximiliano » Fri Jan 17, 2014 11:38 pm

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

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. : +54901169026142
Telegram Name : DaNiElMaXiMiLiAnO

User avatar
andyglezl
Posts: 1176
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 36 times
Been thanked: 83 times
Contact:

Post by andyglezl » Sat Jan 18, 2014 3:33 am

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

User avatar
andyglezl
Posts: 1176
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 36 times
Been thanked: 83 times
Contact:

Post by andyglezl » Sat Jan 18, 2014 5:40 am

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

Post by danielmaximiliano » Sat Jan 18, 2014 10:35 pm

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

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. : +54901169026142
Telegram Name : DaNiElMaXiMiLiAnO

Post Reply