Citación del post de
Celina
|
❞
Muchas gracias por su respuesta.
Si envío el siguiente texto:
"Isto é um teste. Não consigo enviar palavras com acentos faça as alterações que fizer."
En el correo electrónico el texto enviado es:
“Isto i um teste. Nco consigo enviar palavras com acentos faga as alteragues que fizer.”
en su ayuda se asigna el archivo RTF:
object.Charset As String
Character set used in message (default - "us-ascii")
pero no sé cómo trabajar con él.
MOVE "Text" OF CmEML-ENVIO TO "MailFrom" OF SMTP1
MOVE "ISO-8859-1" TO "Charset" OF SMTP1
MOVE "Text" OF CmUSER TO "Username" OF SMTP1
MOVE "Text" OF CmPASS TO "Password" OF SMTP1
MOVE "Text" OF CmPOP3 TO "POPServer" OF SMTP1
MOVE "Text" OF CmSMTP TO "Server" OF SMTP1
MOVE "Text" OF CmPORTA TO "Port" OF SMTP1
MOVE 2 TO "AuthenticationType" OF SMTP1 *>AUTH LOGIN
MOVE "Text" OF CmASSUNTO TO "MessageSubject" OF SMTP1
MOVE "Text" OF CmMENSAGEM TO "MessageText" OF SMTP1
Puedes ver cómo se ve en la imagen.
Muchas gracias
|
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