Yo ocupo ademas de los programas desarrollados por Luis Alfonso, un utilitario para el envío de email
1097 ENVIAE:
1098 LET NOME$=STBL("!Ad_0"),NOME$=NOME$(1,LEN(NOME$)-3)
1099 LET SUBJECT$="Documento electrónico enviado por EasyClick."
1100 LET MESSAGE$="Estimado cliente "+CVS(NOMD$,3)+", el contribuyente "+CVS(NOM
E$,3)+" le ha enviado el documento electrónico No."+NF$+$0A$+$0A$+"Servicio prop
1101 PRINT (GB__SYSGUI)'FOCUS'(0),'RAISE','SETCURSOR'(3),'TITLE'(300,"Enviando a
rchivos...")
1102 REM ".....< Enviando con Blat >....."
1103 LET VAR=SCALL("cmd /c del *.log")
1104 LET OS$=INFO(0,1),OS$=OS$(1,1)
1105 IF OS$="5" THEN LET EJEC$="systemx/blat.exe "
1106 IF OS$="6" THEN LET EJEC$="systems/blat.exe "
1107 LET ORDEN$=STBL("!Ad_00")+EJEC$+"-q -server "+HOST$+" -port "+STR(PORT)+" -
f "+CHR(34)+FROM$+CHR(34)+" -to "+CHR(34)+TO$+CHR(34)+","+CHR(34)+ECOPY$+CHR(34)
-body "+CHR(34)+MESSAGE$+CHR(34)+" -u "+CHR(34)+FROM$+CHR(34)+" -pw "+CHR(34)+P
ASS$+CHR(34)+" -attach "+CHR(34)+ATTACHMENTS$+CHR(34)+" -r -log email.log -d -de
bug -dsn sf"
1108 LET SEND=SCALL(ORDEN$)
1109 CLOSE (90); OPEN (90)"email.log"
1110 LL: READ (90,END=NL)DL$
1111 IF DL$="" OR LEN(DL$)<5 THEN GOTO LL
1112 IF DL$(1,5)="Error" THEN GOTO ML
1113 GOTO LL
1114 ML: LET MSG=MSGBOX(DL$,16,"Atención")
1115 LET MSG=MSGBOX("No fue posible enviar los datos...",64,"Atención")
1116 RETURN
1117 NL:
1118 LET MSG=MSGBOX("Documento electrónico enviado...",64,"Atención")
>?message$
Estimado cliente WP CONSTRUCTORA, S.A DE C.V., el contribuyente CREADORES DIGITA
LES COATZACOALCOS le ha enviado el documento electrónico No.000245
>?orden$
/creadix/systems/blat.exe -q -server mail.creadi.net -port 587 -f "cfdi@creadi.n " -body "Estimado cliente WP CONSTRUCTORA, S.A DE C.V., el contribuyente CREADOR
ES DIGITALES COATZACOALCOS le ha enviado el documento electrónico No.000245
net" -pw "PassWord" -attach "T:/Entrada/AIVL870822CR5/C/FAC/XML\C000245-AIVL87
0822CR5_C245_20160219_FA.xml,T:/Entrada/AIVL870822CR5/C/FAC/PDF\C000245-AIVL8708
22CR5_C245_20160219_FA.pdf" -r -log email.log -d -debug -dsn sf
Contenido de email.log
2016.02.20 01:36:29 (Sat)------------Start of Session-----------------
Blat v3.1.2 (build : Dec 27 2013 14:33:12)
32-bit Windows, Full, Unicode
<<<getline<<< 220-We do not authorize the use of this system to transport unsolicited,
<<<getline<<< 220 and/or bulk e-mail.
>>>putline>>> EHLO servidor
<<<getline<<< 250-SIZE 52428800
<<<getline<<< 250-8BITMIME
<<<getline<<< 250-PIPELINING
<<<getline<<< 250-AUTH PLAIN LOGIN
<<<getline<<< 250-STARTTLS
<<<getline<<< 250 HELP
Subject: Documento electrónico enviado por EasyClick.
Attached binary file: T:/Entrada/AIVL870822CR5/C/FAC/XML\C000245-AIVL870822CR5_C245_20160219_FA.xml
Attached binary file: T:/Entrada/AIVL870822CR5/C/FAC/PDF\C000245-AIVL870822CR5_C245_20160219_FA.pdf
>>>putline>>> AUTH PLAIN *****
<<<getline<<< 235 Authentication succeeded
<<<getline<<< 250 OK
<<<getline<<< 250 Accepted
<<<getline<<< 250 Accepted
<<<getline<<< 250 Accepted
<<<getline<<< 250 Accepted
>>>putline>>> DATA
<<<getline<<< 354 Enter message, ending with "." on a line by itself
<<<getline<<< 250 OK id=1aX28H-0002Ak-35
>>>putline>>> QUIT
2016.02.20 01:36:39 (Sat)-------------End of Session------------------