Citación del post de
Joseg
|
❞
Porque não gosto de usar OCXs de terceiros (é necessário registar em cada posto que o vai usar...),
uso esta ferramenta e funciona muito bem (mas há outras alternativas):
Código COBOL:
string "SwithMail.exe /s /x swc.xml" delimited by size " /to " delimited by size *> para wTO delimited by " " into CommandLine end-string IF wCC NOT = SPACES STRING CommandLine DELIMITED BY " " *> CC " /CC " delimited by size wCC delimited by " " INTO CommandLine end-string END-IF STRING CommandLine DELIMITED BY " " ' /sub "' delimited by size wSUBJECT delimited by " " *> assunto '"' delimited by size INTO CommandLine end-string STRING CommandLine DELIMITED BY " " ' /b ' delimited by size *> body '"' delimited by size wBODY delimited by " " '"' delimited by size into CommandLine end-string IF wATTACH NOT = SPACES STRING CommandLine DELIMITED BY " " ' /a ' delimited by size '"' delimited by size wATTACH DELIMITED BY " " *> anexo1 '"' delimited by size INTO CommandLine end-string END-IF INVOKE pow-self "Execute" USING CommandLine POW-SWHIDE
|
Muito obrigada pela sua ajuda.
Vou tentar usar esse e se pudesse agradecia que me enviasse um ficheiro exemplo do
swc.xml para eu ver a configuração.
Se tiver de anexar vários anexos ao email como ficaria o código?
Mais uma vezes agradeço-lhe imenso a sua ajuda.