Envio de Correo con Archivos adjuntos

Envio de Correo con Archivos adjuntos

Postby servicomver » Thu Mar 03, 2022 11:56 pm

Hola, como puedo enviar mas de un archivo por thunderbird ? actualmente hago:

cCommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
cCommand = cCommand + " -compose " + "subject=" + Chr(34) + cSubject + Chr(34) + ","
cCommand = cCommand + "to=" + Chr(34) + cTo + Chr(34) + ","
cCommand = cCommand + "body=" + Chr(34) + cBody + Chr(34) + ","
cCommand = cCommand + "attachment=" + Chr(34) + cAtach1 + Chr(34)
oShell:=CreateObject("WScript.Shell")
WinExec( cCommand, 0 )

Lo envia sin problema, pero como adjunto 2 o mas archivos al mismo correo ?, ya lo intente comprimiendo en ZIP, para hacer solo uno, pero Hotmail y Gmail lo rechazan por considerarlo potencialmente peligroso.

Gracias, Saludos
servicomver
 
Posts: 190
Joined: Fri Nov 18, 2005 7:34 pm

Re: Envio de Correo con Archivos adjuntos

Postby hmpaquito » Fri Mar 04, 2022 8:04 am

Hola,

Me viene de perlas tu comando. Precisamente estoy toreando con el email y con Thunderbird, aunque aun no sé qué direccion tomar

Gmail cada vez estrecha más el circulo. ¿ Qué tipo de archivo intentas enviar ? En mi caso para enviar .exes se lo suele tragar en formato bz2.

Salu2
hmpaquito
 
Posts: 1482
Joined: Thu Oct 30, 2008 2:37 pm

Re: Envio de Correo con Archivos adjuntos

Postby hmpaquito » Fri Mar 04, 2022 8:52 am

Puede ser que lo que te esté pasando es que te falta unas dobles comillas para todo el item attachment o bien no estas separando por coma loas adjuntos. Algo asi:

thunderbird -compose "attachment='/etc/mtab,/etc/fstab'"
hmpaquito
 
Posts: 1482
Joined: Thu Oct 30, 2008 2:37 pm

Re: Envio de Correo con Archivos adjuntos

Postby servicomver » Fri Mar 04, 2022 11:43 pm

Efectivamente tenía mal ubicadas las comillas:

cCommand = cCommand + "attachment=" + Chr(39) + cFile1 + "," + cFile2 + Chr(39) + Chr(34)


Así ya funciona correctamente, Gracias y Saludos
servicomver
 
Posts: 190
Joined: Fri Nov 18, 2005 7:34 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 59 guests