El código adjunto envia un mail con archivo adjunto auna lista de cuentas de correo contenidas en un archivo de texto. Espero que te sirva.
/**** envia un e-mail a todasla las cuentas de correo residentes en el archivo de texto (CUENTASCORREO.TXT) ****/
DEF VAR CUENTA AS CHARACTER NO-UNDO.
DEFINE VARIABLE P-OriginName AS CHARACTER format "x(200)" NO-UNDO.
DEFINE VARIABLE P-RecipName AS CHARACTER format "x(200)" NO-UNDO.
DEFINE VARIABLE P-Subject AS CHARACTER format "x(200)" NO-UNDO.
DEFINE VARIABLE P-Bodytext AS CHARACTER format "x(200)" NO-UNDO.
DEFINE VARIABLE P-FilePathName AS CHARACTER format "x(200)" NO-UNDO.
/*
RUN mapi ( "Tu correo", "Correo de envio", "asunto", "Texto (todo lo que deseas escribirle a la persona ", "el archivo adjunto").
*/
/* definicion de incluidos */
{windows.i}.
/************ Main Block **********/
/** variables de valor fijo ***/
P-OriginName = "
[email protected]".
P-Subject = "Probando".
P-Bodytext = "Esto es una pequeña prueba".
P-FilePathName = "c:\carpeta\archivoarnviar.txt".
/*** Manda a todas las cuentas residentes en CUENTASCORREO.TXT ***/
INPUT FROM C:\direccionescorreo\CUENTASCORREO.TXT. /*** en cuentascorreo.txt se encuentran las cuantas de correo a las que enviar **/
REPEAT:
IMPORT UNFORMATTED CUENTA.
P-RecipName = CUENTA.
RUN mapi (P-OriginName, P-RecipName, P-Subject, P-Bodytext,P-FilePathName).
end.
INPUT CLOSE.
/*Procedimiento MAPI:*/
PROCEDURE MAPI:
DEFINE INPUT PARAMETER OriginName AS CHARACTER.
DEFINE INPUT PARAMETER RecipName AS CHARACTER.
DEFINE INPUT PARAMETER Subject AS CHARACTER.
DEFINE INPUT PARAMETER Bodytext AS CHARACTER.
DEFINE INPUT PARAMETER FilePathName AS CHARACTER.
DEFINE VARIABLE cc AS CHARACTER.
/*cc = "
[email protected]".*/ /* se puso en comentario para nada mas manejar el puro envio de un solo usuario */
/*cc = "
[email protected]"*/.
DEFINE VARIABLE SubjPtr AS MEMPTR.
SET-SIZE(SubjPtr) = LENGTH(Subject) + 1. /* maximum = 255 */
PUT-STRING(SubjPtr,1) = Subject.
DEFINE VARIABLE TextPtr AS MEMPTR.
SET-SIZE(TextPtr) = 16000.
PUT-STRING(TextPtr,1) = Bodytext + (IF FilePathName = "":U THEN "":U
ELSE CHR(10) + CHR(10) + " ":U).
/* if file attached place at end of Bodytext with line skip */
/* ---------------- Build Originator details ------------------------ */
DEFINE VARIABLE OriginNamePtr AS MEMPTR.
SET-SIZE(OriginNamePtr) = LENGTH(OriginName) + 1. /* maximum = 255 */
PUT-STRING(OriginNamePtr,1) = OriginName. /* Originator name */
DEFINE VARIABLE OriginDescPtr AS MEMPTR.
SET-SIZE(OriginDescPtr) = 25.
PUT-LONG(OriginDescPtr,1) = 0. /* Reserved */
PUT-LONG(OriginDescPtr,5) = 0. /* RecipClass 0 = MAPI_ORIG */
PUT-LONG(OriginDescPtr,9) = GET-POINTER-VALUE(OriginNamePtr). /* Name */
PUT-LONG(OriginDescPtr,13) = 0. /* Address */
PUT-LONG(OriginDescPtr,17) = 0. /* EID Size */
PUT-LONG(OriginDescPtr,21) = 0. /* Entry ID */
/* ----------------Build Recipient details -------------------------- */
DEFINE VARIABLE RecipNamePtr AS MEMPTR.
SET-SIZE(RecipNamePtr) = LENGTH(RecipName) + 1. /* maximum = 255 */
PUT-STRING(RecipNamePtr,1) = RecipName. /* Recipient name */
DEFINE VARIABLE RecipDescPtr AS MEMPTR.
SET-SIZE(RecipDescPtr) = 25.
PUT-LONG(RecipDescPtr,1) = 0. /* Reserved */
PUT-LONG(RecipDescPtr,5) = 1. /* RecipClass 1 = MAPI_TO */
PUT-LONG(RecipDescPtr,9) = GET-POINTER-VALUE(RecipNamePtr). /* Name */
PUT-LONG(RecipDescPtr,13) = 0. /* Address */
PUT-LONG(RecipDescPtr,17) = 0. /* EID Size */
PUT-LONG(RecipDescPtr,21) = 0. /* Entry ID */
/*----------------cON COPIA------------------------*/
DEFINE VARIABLE ccNamePtr AS MEMPTR.
SET-SIZE(ccNamePtr) = LENGTH(cc) + 1. /* maximum = 255 */
PUT-STRING(ccNamePtr,1) = cc. /* Recipient name */
SET-SIZE(ccNamePtr) = 25.
PUT-LONG(ccNamePtr,1) = 0. /* Reserved */
PUT-LONG(ccNamePtr,5) = 1. /* RecipClass 1 = MAPI_TO */
PUT-LONG(ccNamePtr,9) = GET-POINTER-VALUE(ccNamePtr). /* Name */
PUT-LONG(ccNamePtr,13) = 0. /* Address */
PUT-LONG(ccNamePtr,17) = 0. /* EID Size */
/*PUT-LONG(ccNamePtr,21) = 0. /* Entry ID */*/
/* --------------- Build File Details ------------------- */
IF FilePathName <> "":U THEN DO:
DEFINE VARIABLE FilePathNamePtr AS MEMPTR.
SET-SIZE(FilePathNamePtr) = LENGTH(FilePathName) + 1. /* maximum = 255 */
PUT-STRING(FilePathNamePtr,1) = FilePathName. /* File pathname */
DEFINE VARIABLE FILENAME AS CHARACTER NO-UNDO.
FILENAME = SUBSTRING(FilePathName,R-INDEX(FilePathName,"\":U) + 1).
/* extract filename (starting on last \) from filefullname */
/* for some strange reason the first five chars disappear */
DEFINE VARIABLE FileNamePtr AS MEMPTR.
SET-SIZE(FileNamePtr) = LENGTH(FILENAME) + 1. /* maximum = 255 */
PUT-STRING(FileNamePtr,1) = FILENAME. /* File name */
DEFINE VARIABLE FileDescPtr AS MEMPTR.
SET-SIZE(FileDescPtr) = 25.
PUT-LONG(FileDescPtr,1) = 0. /* Reserved */
PUT-LONG(FileDescPtr,5) = 0. /* Flags 0 = data file */
PUT-LONG(FileDescPtr,9) = LENGTH(Bodytext) + 2. /* Position */
PUT-LONG(FileDescPtr,13) = GET-POINTER-VALUE(FilePathNamePtr). /* PathName */
PUT-LONG(FileDescPtr,17) = GET-POINTER-VALUE(FileNamePtr). /* FileName */
PUT-LONG(FileDescPtr,21) = 0. /* FileType */
END.
/* ---------- Build Message Details ------------------- */
DEFINE VARIABLE MessageDescPtr AS MEMPTR.
SET-SIZE(MessageDescPtr) = 49.
PUT-LONG(MessageDescPtr,1) = 0. /* Reserved */
PUT-LONG(MessageDescPtr,5) = GET-POINTER-VALUE(SubjPtr). /* Subject */
PUT-LONG(MessageDescPtr,9) = GET-POINTER-VALUE(TextPtr). /* Text */
PUT-LONG(MessageDescPtr,13) = 0. /* MessageType */
PUT-LONG(MessageDescPtr,17) = 0. /* DateReceived */
PUT-LONG(MessageDescPtr,21) = 0. /* ConversationID */
PUT-LONG(MessageDescPtr,25) = 1. /* Flags */
PUT-LONG(MessageDescPtr,29) = GET-POINTER-VALUE(OriginDescPtr). /* Originator */
PUT-LONG(MessageDescPtr,35) = GET-POINTER-VALUE(ccNamePtr). /* QUITAR, posible cc ccNamePtr*/
PUT-LONG(MessageDescPtr,33) = 1. /* RecipCount */
PUT-LONG(MessageDescPtr,37) = GET-POINTER-VALUE(RecipDescPtr). /* Recips */
PUT-LONG(MessageDescPtr,41) = (IF FilePathName = "":U THEN 0
ELSE 1). /* FileCount */
PUT-LONG(MessageDescPtr,45) = (IF FilePathName = "":U THEN 0
ELSE GET-POINTER-VALUE(FileDescPtr)). /* Files */
/* EO Build Message Details */
/* -------- Send Message ------------ */
DEFINE VARIABLE ResultInt AS INTEGER NO-UNDO.
RUN MAPISendMail IN hpApi
(INPUT 0,
INPUT 0,
INPUT GET-POINTER-VALUE(MessageDescPtr),
INPUT 1, /*1 SIN EL SHELL <OUTLOOK> *//* 1 = MAPI_LOGON_UI + 2 = MAPI_NEW_SESSION + 8 = MAPI_DIALOG,11 ABRE OUTLOOK*/
INPUT 0,
OUTPUT ResultInt).
RUN MapiReturnCode (ResultInt).
/* ------- Free memory ------------ */
SET-SIZE(SubjPtr) = 0.
SET-SIZE(TextPtr) = 0.
SET-SIZE(OriginNamePtr) = 0.
SET-SIZE(OriginDescPtr) = 0.
SET-SIZE(RecipNamePtr) = 0.
SET-SIZE(RecipDescPtr) = 0.
SET-SIZE(FilePathNamePtr) = 0.
SET-SIZE(FileNamePtr) = 0.
END PROCEDURE.
PROCEDURE MapiReturnCode:
DEFINE INPUT PARAMETER ResultInt AS INTEGER. /* result from MAPISendMail */
DEFINE VARIABLE RESULT AS CHARACTER NO-UNDO.
IF ResultInt <> 0 THEN DO: /* 0 = Success */
CASE ResultInt:
WHEN 1 THEN RESULT = "User Abort".
WHEN 2 THEN RESULT = "Failure".
WHEN 3 THEN RESULT = "Login Failure".
WHEN 4 THEN RESULT = "Disk Full".
WHEN 5 THEN RESULT = "Insufficient Memory".
WHEN 6 THEN RESULT = "Blk Too Small".
WHEN 8 THEN RESULT = "Too Many Sessions".
WHEN 9 THEN RESULT = "Too Many Files".
WHEN 10 THEN RESULT = "Too Many Recipients".
WHEN 11 THEN RESULT = "Attachment Not Found".
WHEN 12 THEN RESULT = "Attachment Open Failure".
WHEN 13 THEN RESULT = "Attachment Write Failure".
WHEN 14 THEN RESULT = "Unknown Recipient".
WHEN 15 THEN RESULT = "Bad Recipient type".
WHEN 16 THEN RESULT = "No Messages".
WHEN 17 THEN RESULT = "Invalid Message".
WHEN 18 THEN RESULT = "Bodytext Too Large".
WHEN 19 THEN RESULT = "Invalid Session".
WHEN 20 THEN RESULT = "Type Not Supported".
WHEN 21 THEN RESULT = "Ambiguous Recipient".
WHEN 22 THEN RESULT = "Message in use".
WHEN 23 THEN RESULT = "Network failure".
WHEN 24 THEN RESULT = "Invalid edit fields".
WHEN 25 THEN RESULT = "Invalid recipients".
WHEN 26 THEN RESULT = "Feature not supported".
OTHERWISE RESULT = "Unknown error".
END CASE.
DO ON ENDKEY UNDO, LEAVE:
MESSAGE ResultInt RESULT VIEW-AS ALERT-BOX.
END.
END.
END PROCEDURE.
