Use os seguintes m�todos da classe cQOEmail (Quick objects do CTD, da gcmail.apl), colocando o caminho/nome do arquivo onde aparece STR_ATAC_PM
 
 
Call O_EMAIL.EmailConnect( '','','', EMAIL_SYS_MSMAIL)
Set B_RET = O_EMAIL.EmailSendMessage( FALSE,
   STR_SUB_PM, STR_MEN_PM, STR_TO_PM,
   STR_CC_PM, STR_BCC_PM, STR_ATAC_PM, 0, 0 )
Call O_EMAIL.EmailDisconnect( )
obs.: O_EMAIL � uma var�avel local do tipo: "cQOEmail: O_EMAIL"
Os parametros do m�todo EmailSendMessage s�o os mostrados abaixo.
Boolean: bAllowEmailInterface
String: sSubject
String: sText
String: sToRecips
String: sCCRecips
String: sBCCRecips
String: sAttachments
Number: nPriority
Boolean: bRetReceipt
-----Mensagem original-----
De: Rosalvo [mailto:[EMAIL PROTECTED]]
Enviada em: quarta-feira, 26 de junho de 2002 14:34
Para: 'SqlWindows'
Assunto: [sqlwin] Envio de Arquivo por e_mail

Pessoal, estou fazendo uma rotina para envio de e_mail, j� consigo me conectar e enviar mensagens, estou usando a gcmail.apl.
Consigo gerar o arquivo usando a SalReportPrintToFile, gostaria de saber como fa�o para enviar este arquivo em anexo, desde j� agrade�o qualquer ajuda.

Responder a