Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > MicroFocus COBOL > AcuCobol
AcuCobol IDE y Compilador AcuCobol
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Componente] Enviar E-Mail desde PowerCOBOL Recato53 PowerCOBOL (ActiveX, v4 - v11) 17 30 de agosto de 2019 10:34
[Sintaxis] Enviar y Recibir Mail fastpho PowerCOBOL (ActiveX, v4 - v11) 1 14 de octubre de 2017 08:07
[Información] Envio SMS powercobol JuanJuan77 PowerCOBOL (ActiveX, v4 - v11) 1 9 de marzo de 2016 15:40
[Sintaxis] Envio de SMS Roger PowerCOBOL (ActiveX, v4 - v11) 10 22 de junio de 2015 21:57
[Sintaxis] Envio de alertas y Chat Roger PowerCOBOL (ActiveX, v4 - v11) 1 21 de marzo de 2015 21:25
Respuesta
 
Herramientas

  #1
Antiguo 20 de noviembre de 2019, 14:57
IDENTIFICATION DIVISION
Gusaiello
 Novato Senior
Concurso: Segundo puesto: Ganador/a del Segundo puesto en un concurso - Razón: Generador de código QR encriptado  Activista del Foro: Activista del Foro - Razón: Por aportar ejecrcicios para los novatos 
ENVIRONMENT DIVISION
Avatar de Gusaiello
DATA DIVISION
febrero 2015
Quilmes, Buenos Aires
66 años
15.06.2021 12:42
PROCEDURE DIVISION
Posts: 141
Enviado: 54
Recibido: 98
Soluiones: 7
Reputación: 16
Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road
E-mail Envio de e-mail con adjuntos

Hola a todos.
Estoy usando AcuCobol GT 5.1 para Windows.
A través de un programa puedo llamar al cliente de correo pasandole la dirección del destinatario.
Código COBOL:
  1. STRING "MAILTO:"                  
  2.        E-MAIL-CLI                
  3.        DELIMITED BY SIZE INTO MAIL
  4. display web-browser value MAIL

Donde E-MAIL-CLI es el campo del archivo de clientes donde guardo la dirección y MAIL es la variable que le paso a web-browser.

Quisiera saber si es posible a la vez que se le indica la dirección del destinatario, adjuntarle un archivo.

Revisé toda la documentación y no encontré nada.

Alguno sabe si es posible?.

Desde ya muchas gracias de antemano.
Gusaiello no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 20 de noviembre de 2019, 15:09
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
16.06.2021 09:06
PROCEDURE DIVISION
Posts: 1.754
Enviado: 552
Recibido: 721
Soluiones: 94
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Gusaiello, mira a ver si te sirve esto: vbscript - creating a vbs script function for sending email with attachment - Stack Overflow

Habrá que crear un fichero *.vbs y ejecutarlo desde tu programa.



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Gusaiello (20 de noviembre de 2019)
  #3
Antiguo 20 de noviembre de 2019, 16:45
IDENTIFICATION DIVISION
Joseg
 Forero
Innovación: Por aportar innovaciones - Razón: Por aportar soluciones innovadoras en varias ocasiones 
ENVIRONMENT DIVISION
Avatar de Joseg
DATA DIVISION
abril 2015
14.06.2021 22:24
PROCEDURE DIVISION
Posts: 211
Enviado: 50
Recibido: 86
Soluiones: 12
Reputación: 15
Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about
Predeterminado

Eu uso SwithMail:

Código COBOL:
  1.           string "SwithMail.exe /s /x swc.xml" delimited by size
  2.               " /to "  delimited by size                 *> para
  3.                JH-TO delimited by "  "
  4.               into CommandLine
  5.           end-string
  6.  
  7.           IF JH-CC NOT = SPACES
  8.              STRING CommandLine DELIMITED BY "  "        *> CC  
  9.                 " /CC "  delimited by size
  10.                 JH-CC delimited by "  "
  11.                 INTO CommandLine
  12.              end-string
  13.           END-IF
  14.  
  15.           STRING CommandLine DELIMITED BY "  "
  16.               ' /sub "'  delimited by size
  17.               JH-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.               JH-BODY delimited by "                   "
  26.               '"' delimited by size
  27.               into CommandLine
  28.           end-string
  29.  
  30.           IF JH-ATTACH NOT = SPACES      
  31.              STRING CommandLine DELIMITED BY "  "
  32.                 ' /a '  delimited by size
  33.                 '"' delimited by size
  34.                 JH-ATTACH  DELIMITED BY "   "       *> anexo1
  35.                 '"' delimited by size
  36.                 INTO CommandLine
  37.              end-string
  38.           END-IF
  39.          
  40.           ---> chamar aqui a CommandLine   (não sei como é em Acucobol)


Usando o Outlook:
Criar um arquivo line sequencial:

Código COBOL:
  1.      move spaces to regsm
  2.      MOVE "Dim o" to regsm
  3.      WRITE regsm
  4. *-----------------------------------------------------------------------------
  5.      move spaces to regsm
  6.      MOVE "Dim m" to regsm
  7.      WRITE regsm
  8. *-----------------------------------------------------------------------------
  9.      move spaces to regsm
  10.      MOVE 'Set o = CreateObject("Outlook.Application")' to regsm
  11.      WRITE regsm
  12. *-----------------------------------------------------------------------------
  13.      move spaces to regsm
  14.      MOVE 'Set m = o.CreateItem(0)' to regsm
  15.      WRITE regsm
  16. *-----------------------------------------------------------------------------
  17.      move spaces to regsm
  18.      STRING "m.to = " DELIMITED BY SIZE
  19.             '"' DELIMITED BY SIZE
  20.             pmail DELIMITED BY ' '      *> EMAIL
  21.             '"' DELIMITED BY SIZE
  22.             INTO regsm
  23.      WRITE regsm
  24. *-----------------------------------------------------------------------------
  25.      move spaces to regsm
  26.      MOVE spaces TO pcc    *> CC
  27.      IF pcc NOT = " "
  28.         STRING "m.Cc = " DELIMITED BY SIZE
  29.             '"' DELIMITED BY SIZE
  30.             pcc DELIMITED BY ' '
  31.             '"' DELIMITED BY SIZE
  32.             INTO regsm
  33.         WRITE regsm
  34.      END-IF
  35. *-----------------------------------------------------------------------------
  36.      move spaces to regsm
  37.      MOVE spaces TO pbcc   *> BCC
  38.      IF pbcc NOT = "  "
  39.         STRING "m.Bcc = " DELIMITED BY SIZE
  40.             '"' DELIMITED BY SIZE
  41.             pbcc DELIMITED BY ' '
  42.             '"' DELIMITED BY SIZE
  43.             INTO regsm
  44.         WRITE regsm
  45.      END-IF
  46. *-----------------------------------------------------------------------------
  47.      move spaces to regsm
  48.         STRING "m.Subject = " DELIMITED BY SIZE
  49.             '"' DELIMITED BY SIZE
  50.             passunto DELIMITED BY '   '      *> assunto
  51.             '"' DELIMITED BY SIZE
  52.             INTO regsm
  53.      WRITE regsm
  54. *-----------------------------------------------------------------------------
  55.      move spaces to regsm
  56.      MOVE "m.Display" to regsm
  57.      WRITE regsm
  58.  
  59. *-----------------------------------------------------------------------------
  60.  
  61.      move spaces to regsm
  62.    
  63.         STRING "m.HTMLBody = " DELIMITED BY SIZE
  64.             '"' DELIMITED BY SIZE
  65.             pbody DELIMITED BY '                 '  *> body
  66.             '" & "<br>" & m.HTMLBody  ' DELIMITED BY SIZE
  67.             INTO regsm
  68.      WRITE regsm
  69. *-----------------------------------------------------------------------------
  70.      move spaces to regsm
  71.     *> Attachments
  72.         STRING "m.Attachments.Add " DELIMITED BY SIZE
  73.             '"' DELIMITED BY SIZE
  74.             pAttachments DELIMITED BY '            '   *> anexos
  75.             '"' DELIMITED BY SIZE
  76.             INTO regsm
  77.      WRITE regsm
  78. *-----------------------------------------------------------------------------
  79.      move spaces to regsm
  80.      MOVE "m.Display" to regsm
  81.      WRITE regsm
  82.  
  83. *-----------------------------------------------------------------------------
  84.      move spaces to regsm
  85.      MOVE "m.Send" TO regsm
  86.       WRITE regsm
Joseg no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 3
Gusaiello (20 de noviembre de 2019), Josber (20 de noviembre de 2019), panzaverde (21 de diciembre de 2020)
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 13:03.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.