Ver Mensaje Individual
  #2
Antiguo 30 de mayo de 2019, 10:12
Joseg
El Foro es mi casa
Activista del Foro: Activista del Foro - Issue reason: Por participación activa Innovación: Por aportar innovaciones - Issue reason: Por aportar soluciones innovadoras en varias ocasiones 
Última Actividad 17.09.2026 18:23
Posts Posts: 401
Likes enviados Enviados: 130
Likes recibidos Recibidos: 179

Citación del post de Lascu Ver Mensaje
Hola Gente!

Consulto al grupo, alguien ha utilizado con éxito el ocx de ostrosoft para enviar correos electrónicos desde nuestras aplicaciones. Yo por más que lo he intentado no puedo hacerlo. Empecé con el ejemplo que dejo Josber en el foro.
Utilizo los servidores de gmail (tambien probé con yahoo) y siempre me termina dando un error 10060 al querer conectarme con el servidor pop3.

Cualquier ayuda es bienvenida.
Desde ya muchas gracias

Lascu

Eu recomendo este: SwithMail download | SourceForge.net
Muito poderoso. Funciona muito bem.


Sample:
Código COBOL:
  1.           string "SwithMail.exe /s /x swc.xml" delimited by size
  2.               " /to "  delimited by size                 *> para
  3.                Mail-TO delimited by "  "
  4.               into CommandLine
  5.           end-string
  6.  
  7.           IF Mail-CC NOT = SPACES
  8.              STRING CommandLine DELIMITED BY "  "         *> CC  
  9.                 " /CC "  delimited by size
  10.                 Mail-CC delimited by "  "
  11.                 INTO CommandLine
  12.              end-string
  13.           END-IF
  14.  
  15.           STRING CommandLine DELIMITED BY "  "
  16.               ' /sub "'  delimited by size
  17.               Mail-SUBJECT delimited by "     "     *> assunto
  18.               '"' delimited by size
  19.               INTO  CommandLine
  20.           end-string
  21.  
  22.           STRING CommandLine DELIMITED BY "  "
  23.               ' /b '  delimited by size             *> body
  24.               '"' delimited by size
  25.               Mail-BODY delimited by "                           "
  26.               '"' delimited by size
  27.               into CommandLine
  28.           end-string
  29.  
  30.           IF Mail-ATTACH NOT = SPACES      
  31.              STRING CommandLine DELIMITED BY "  "
  32.                 ' /a '  delimited by size
  33.                 '"' delimited by size
  34.                 Mail-ATTACH  DELIMITED BY "   "    *> anexo1
  35.                 '"' delimited by size
  36.                 INTO CommandLine
  37.              end-string
  38.           END-IF
  39.           INVOKE pow-self "Execute" USING CommandLine POW-SWHIDE  
Joseg is offline   Responder Con Cita